以下示例从另一个WORD文档,并从中复制数据到本地表中 Private Sub CommandButton1_Click() Dim i As Integer Dim f As Document Set f=Application.Documents.Open('************.doc') For i=2 to f.Tables(7).Rows.Count Me.Tables(2).Cell(2+i,1).Range.Text=Mid(f.Tables(7).Cell(i,2).Range.Text,1,Len(f.Tables(7).Cell(i,2).Range.Text)-2) Next i End Sub |
|
来自: 新用户49643053 > 《VBA学习文件夹》