|
ADOを使ってexcelでaccessデータベースを読み込むをファイルですが、
マクロ定義して実行すれば次の部分で次のエラーが出ます。
dbCon.Open cnsADO_CONNECT1 & ThisWorkbook.Path & cnsADO_CONNECT2
エラー内容:"ファイルの名前が正しくありません。"
まだよく分からないので宜しくお願いします。
プログラム:マクロで(TEST5())定義しています。
Const cnsADO_CONNECT1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const cnsADO_CONNECT2 = "C:\salesmanage\ado\DB\SAMPLE.mdb;"
Sub TEST5()
' 参照設定「Microsoft Active Data Object 2.x Library」
Dim dbCon As New ADODB.Connection
Dim dbRes As New ADODB.Recordset
Dim dbCols As ADODB.Fields
Dim strSQL As String
Dim GYO As Long
' 画面描画更新停止
Call GP_StopSCUPD
Worksheets("Sheet1").Activate
' 接続を確立する
dbCon.Open cnsADO_CONNECT1 & ThisWorkbook.Path & cnsADO_CONNECT2
|
|