使用VBA将Access查询输出导入到Excel中

我试图让这段代码正常工作，但它似乎并不想从getopenfilename命令中拉出字符串，所以我想我会查看是否有人有任何想法如何重新配置该代码，以便它不会处理getopenfilename字符串作为文本，而是作为一个真实路径......使用VBA将Access查询输出导入到Excel中

Sub DB_Import() 
    Dim FilePath As Variant 

    MsgBox ("Select the path and filename of the correct database") 
    FilePath = Application.GetOpenFilename 

    With ActiveSheet.ListObjects.Add(
     SourceType:=0, 
     Source:=Array(_ 
      "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin; " & _ 
      "DataSource=FilePath;Mode=Share Deny Write;Extended Properties=""""; " & _ 
      "Jet OLEDB:System database="""";Jet OLEDB:Registry Path=""""; " & _ 
      "Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=6;" & _ 
      "Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;" & _ 
      "Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";" & _ 
      "Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet " & _ 
      "OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;" & _ 
      "Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;" & _ 
      "Jet OLEDB:Bypass UserInfo Validation=False"), 
     Destination:=Range("$A$1")).QueryTable 

     .CommandType = xlCmdTable 
     .CommandText = Array("Query1") 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .PreserveColumnInfo = True 
     .SourceDataFile = FilePath 
     .ListObject.DisplayName = "Table_ExternalData_1" 

     .Refresh BackgroundQuery:=False 
    End With 
End Sub

来源

2013-05-17 user2386878

“它似乎不想从getopenfilename命令中拉出字符串”。那是什么意思？ – ApplePie

更改2号线到这一点：

"DataSource=" & FilePath & ";Mode=Share Deny Write;Extended Properties=""""; " & _

这将插入将值FilePath添加到您的连接字符串中。

来源

2013-05-18 02:58:46

啊，所以你需要在那里的＆符号？非常感谢！ – user2386878

不客气。是的，这通常是您如何从文字和变量中创建一个字符串，例如“我的名字是”＆名字＆“”＆LastName＆“。” –

这是非常真实的。我不知道为什么这些没有像你提到的其他文字和变量一样在我眼前消失。我已经做了几十次循环！ – user2386878

使用VBA将Access查询输出导入到Excel中

回答

相关问题