从excel抓取内容写入word中

mariko91

从excel抓取内容写入word.zip (24.46 KB, 下载次数: 9)

2016-11-25 12:04 上传

点击文件名下载附件

如何把excel中编号为同一类的所有项目自动填写在word表格中。
刚开始学习word vba，尝试写了几行代码，但是运行到"Dim aBook As Workbook"就无法运行。
请高手指点。

duquancai

附件，打开word文档，点击按钮》》》》》》》

1. Private Sub CommandButton1_Click()
   
2.    Dim cx As New ADO, sql$, pf$, f$, str$, ostr$
   
3.    Application.ScreenUpdating = False
   
4.    pf = ThisDocument.Path & "\Test1.xlsx"
   
5.    str = Replace(Split(Trim(ActiveDocument.Paragraphs(1).Range), "]")(0), "[", "")
   
6.    sql = "select 公司名称 from [" & pf & "].[sheet1$] where 编号='" & str & "'"
   
7.    arr = cx.Sqlist(pf, sql)
   
8.    For j = 0 To UBound(arr, 2)
   
9.       For i = 0 To UBound(arr)
   
10.          If i = 0 Then
    
11.             s = arr(i, j)
    
12.          Else
    
13.             s = s & vbTab & arr(i, j)
    
14.          End If
    
15.       Next
    
16.       ostr = ostr & s & vbCr
    
17.    Next
    
18.    With ActiveDocument.Content
    
19.       .MoveStart 4, 1: .Delete: .Text = vbCr: .Text = ostr
    
20.       .ConvertToTable 1, UBound(arr, 2) + 1, UBound(arr) + 1
    
21.       .Tables(1).Style = "网格型"
    
22.    End With
    
23.    Application.ScreenUpdating = True
    
24. End Sub

复制代码

mariko91

duquancai 发表于 2016-11-25 13:06
附件，打开word文档，点击按钮》》》》》》》

请问 arr = cx.Sqlist(pf, sql)这句话是什么意思？
我在excel里新添加了一个sheet，把 sql = "select 公司名称 from [" & pf & "].[sheet1$] where 编号='" & str & "'"中的sheet1改掉之后，arr= cx.Sqlist(pf, sql)这句话就报错了

duquancai

又没附件，那谁知道呢？不知道。

mariko91

duquancai 发表于 2016-11-25 14:40
又没附件，那谁知道呢？不知道。

从excel抓取内容写入word_2.zip (32.64 KB, 下载次数: 10)

2016-11-25 15:17 上传

点击文件名下载附件

如附件所示，sheet表名改过了。其他编号对应的科目如果也想用vba写入word，代码需要怎么改？

duquancai

mariko91 发表于 2016-11-25 15:20
如附件所示，sheet表名改过了。其他编号对应的科目如果也想用vba写入word，代码需要怎么改？

附件，点击按钮》》》》》》》

小花鹿

duquancai 发表于 2016-11-25 13:06
附件，打开word文档，点击按钮》》》》》》》

借这个帖子请教个问题：
ActiveDocument.Content与ActiveDocument.Range有什么不同？
我把前者改成后者没发现有什么改变
谢谢

maoer8783

很好，学习了

duquancai

小花鹿 发表于 2016-11-25 22:41
借这个帖子请教个问题：
ActiveDocument.Content与ActiveDocument.Range有什么不同？
我把前者改成后者 ...

ActiveDocument.Content与ActiveDocument.Range   返回的都是range对象
Content是ActiveDocument对象的属性      这是通过属性返回range对象
Range是ActiveDocument对象的方法 （这个ActiveDocument对象的range方法的2个参数(Start, End）都是可选的）    这是通过方法返回range对象

小花鹿

duquancai 发表于 2016-11-25 22:52
ActiveDocument.Content与ActiveDocument.Range   返回的都是range对象
Content是ActiveDocument对象的 ...

谢谢讲解，从开始学习VBA一直到现在始终搞不清属性和方法的区别，只是模糊的认为属性指的是”是什么“，方法指的是”做什么“，但对它们的严格区分一直搞不清楚，郁闷