VB6 Excel 導入 Access 路徑問題：動態構建連接字串與 OpenSchema

問題

SQL `INSERT INTO ... IN 'data.mdb'` 中 `data.mdb` 為相對路徑，僅當 Excel 與 MDB 同目錄才能找到。

修正

' 1. 使用 CommonDialog 選擇 Excel 文件
With CommonDialog1
    .Filter = "Excel Files|*.xls;*.xlsx"
    .ShowOpen
    excelPath = .FileName
End With

' 2. 構建完整 Access 連接字串
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
Conn.Open strCnn

' 3. 動態構建 SQL，Excel 路徑用完整路徑
sql = "INSERT INTO " & sjbm & " IN ''" & App.Path & "\data.mdb'' " & _
      "SELECT * FROM [data$] IN ''" & excelPath & ''"EXCEL 8.0;HDR=YES;IMEX=1;''"
Conn.Execute sql

關鍵點

• `IN ''path''` 後可跟 `;EXCEL 8.0;HDR=YES;IMEX=1` 指定 Excel 驅動屬性。
• 使用 `CommonDialog` 讓用戶選文件，避免硬編碼路徑。