Word中应用VBA语句读取Excel文件内容遇到的问题

andiy90

在Excel的VBA语句中可以如下写法：

1. Cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties ='Excel 12.0;hdr=no';Data Source =" & c
   
2.     SQL = "select * from [sheet1$]"
   
3.     d = Cnn.Execute(SQL).GetRows

复制代码

但是我应用此语句在Word中，数组d无法获取数据。窃以为，问题出在建立链接的语句上，但这个就是我之前复制前辈高手们的语句，不知道怎么去修改。求大神帮忙解惑。 97 邮件合并专用.zip (31.06 KB, 下载次数: 2)

2016-10-23 13:12 上传

点击文件名下载附件

duquancai

完全可以办到。。。。。。。。

andiy90

duquancai 发表于 2016-10-23 12:59
完全可以办到。。。。。。。。

额 为啥我办不到。。。请问在哪里出了问题？

duquancai

andiy90 发表于 2016-10-23 13:02
额 为啥我办不到。。。请问在哪里出了问题？

你不提供附件，我办不到，另请高明吧！呵呵

andiy90

duquancai 发表于 2016-10-23 13:05
你不提供附件，我办不到，另请高明吧！呵呵

(⊙﹏⊙)b
附件更新到主贴上了 麻烦帮忙啊

duquancai

andiy90 发表于 2016-10-23 13:13
(⊙﹏⊙)b
附件更新到主贴上了 麻烦帮忙啊

现在手机上网中，有空再看

duquancai

andiy90 发表于 2016-10-23 13:13
(⊙﹏⊙)b
附件更新到主贴上了 麻烦帮忙啊

详见附件，打开Word文件，点击按钮》》》》》

1. Private Sub CommandButton1_Click()
   
2.     Dim cx As New ADO, sql$, p$, f$
   
3.     p = ThisDocument.Path & ""
   
4.     f = Dir(p & "*.xls*")
   
5.     sql = "select * from [" & p & f & "].[sheet1$]"
   
6.     arr = cx.筛选结果(p & f, sql)
   
7.     For i = 0 To UBound(arr, 2)
   
8.         For j = 0 To UBound(arr)
   
9.             If j = 0 Then
   
10.                 s = arr(j, i)
    
11.             Else
    
12.                 s = s & vbTab & arr(j, i)
    
13.             End If
    
14.         Next
    
15.         Selection.Text = s & vbCr
    
16.         Selection.Collapse wdCollapseEnd
    
17.     Next
    
18.     ActiveDocument.Content.ConvertToTable 1, UBound(arr, 2) + 1, UBound(arr) + 1
    
19.     ActiveDocument.Tables(1).Style = "网格型"
    
20. End Sub

复制代码