04 2010 档案
摘要：Private Sub Command1_Click() Dim vDoc, vTag, coll Dim i As Integer Dim j As Integer Set vDoc = ie.Document Dim mstrcell As String Set coll = vDoc.All("19") For i = 0 To coll.rows.length - 1 For j = 0 To coll.rows(i).cells.length - 1 mstrcell = mstrcell & Space(4) & coll.rows(i).cel
阅读全文
