0

このコードを機能させようとしていますが、getopenfilename コマンドから文字列を取得したくないようです。 getopenfilename 文字列をテキストとして、代わりに実際のパスとして...

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
4

1 に答える 1

0

2 行目を次のように変更します。

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

FilePathこれにより、接続文字列に値が挿入されます。

于 2013-05-18T02:58:46.803 に答える