0
在VBA下面的代碼設置數據源目錄用於連接到Access數據文件:在VBA
Public Const sConnect As String = "Provider = Microsoft.ACE.OLEDB.12.0;" & _
"Data Source = D:\data.accdb"
我想設置爲從MS Access數據源中的目錄,通過使用功能像ActiveWorkbook.Path
或CurDir()
:
Public data_source As String
data_source = ThisWorkbook.Path & Application.PathSeparator & "data.accdb"
然後:
Public Const sConnect As String = "Provider = Microsoft.ACE.OLEDB.12.0;" & _
"Data Source = data_source "
但它沒有工作,程序說「外部程序無效」。看來ActiveWorkbook.Path
只適用於Sub?有什麼辦法可以正確地做到這一點嗎?萬分感謝。
它完美。非常感謝! :) –
@Luu Quant-Trung請將上面的解決方案標記爲已接受的解決方案,因爲您可以使用Cominten提供的解決方案解決問題。記住將來也要將其標記爲可接受的解決方案。 –