データベースのテーブル追加について (ID:121100)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お返事有難うございます。 自分で調べられるだけ調べて、ここまで出来ましたが、 絶対パスでないとエラーになってしまう部分がありまして、 どなたか、分かる方がいらっしゃいましたらご指導をしていただくと助かります。 宜しく御願いします。 Dim MyTable As DAO.TableDef Dim Db As Database Dim strSQL As String Dim Inport_DB_Path As String Dim Export_DB_Path As String Inport_DB_Path = App.Path + "\DB_Inport.mdb" Export_DB_Path = App.Path + "\DB.mdb" '''''1個目のテーブル追加 strSQL = "SELECT * INTO [;DATABASE= Export_DB_Path(×絶対パス)].[Aテーブル] FROM Aテーブル" Set Db = DBEngine.Workspaces(0).OpenDatabase(Inport_DB_Path) Db.Execute strSQL Db.Close Export_DB_Pathの所が絶対パスでないとエラーになってしまいますが、 Export_DB_Pathに入っているパスにするにはどうすればいいでしょうか？