打开Excel文件的问题

初学者　发表于：2018-10-31 10:44:21 　

我希望链接Excel文件并读取数据，通过以下编码实现，但在运行到黑体标注时，提示：“#432 自动化操作时文件名或类名未找到”，烦请老师指点，如何解决，谢谢！！

    Dim xlAPP As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet

    strFileName = "产品明细.xls"
    Set xlWbk = GetObject(CurrentProject.Path & "\ '" & strFileName & "'")
    Set xlWsh = xlWbk.Worksheets("产品")

Top

Natsume Takashi 发表于：2018-10-31 14:56:38

Set xlWbk = GetObject(CurrentProject.Path & "\ " & strFileName & ")

Top

初学者发表于：2018-10-31 17:33:36

老师：按照你的语句在VBA编辑中就提示语句错误，望再帮忙看看，谢谢！！

Top

仙来发表于：2018-11-02 11:23:18

Dim xlAPP As Excel.Application
Dim xlWbk As Excel.Workbook
' Dim xlWsh As Excel.Worksheet

strFileName = "产品明细.xlsx" '低版本Excel 为：strFileName = "产品明细.xls"
Set xlAPP = CreateObject("Excel.Application")
xlAPP.Visible = True
Set xlWbk = xlAPP.Workbooks.Open(CurrentProject.Path & "\" & strFileName)
Set xlAPP = Nothing
Set xlWbk = Nothing

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

打开Excel文件的问题