word中读取excel中数据

dogingate

第一，要在vbe的工具中引用microsoft excel 12.0 object library，或者microsoft word 12.0 object library第二，如果要用正则表达式的话，就引用microsoft vbscript regular expression
第三，就是问题了

使用set xlapp=createobject("excel.application")没有问题，但是set wb=xlapp.workbook.open()问题就有了，返回的是一个空值

奇怪，这我在另外一台电脑上运行没有问题的，今天换了一台，就有错误了，不知道咋回事情，卸载重装了2007还是有问题

后来只能采用老方法，就是wb=getobject("wbPath"),直接使用要打开的excel文件地址来打开这个文件并读取数据了，没问题

奇怪，搜索了下论坛，但是没有找到问题

dogingate

以下是测试正常的代码
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Filters.Add "Excel文档", "*.xlsx; *.xls; *.xlsm", 1
    .FilterIndex = 1
    If .Show = -1 Then
        wbFilePath = .SelectedItems(1)
    End If
End With
Set fd = Nothing

Set wb = GetObject(wbFilePath)
data = wb.Worksheets("汇总表").Range("a1").CurrentRegion.Value