MS Accessのa.accdb上のVBA関数から、b.accdb上のテーブルをCVSファイルに出力したい

Question

前提・実現したいこと

タイトルの通りなのですが、a.accdb上に実装したVBA関数から、同じフォルダ内のb.accdb上の"tmp_tbl"テーブルの内容をCVSファイルに出力しようとすると、「このデータベースを開くことができません。データベースファイルが存在しないか、他のユーザーが排他モードで開いているか、ADPファイルでないことが原因です。」というエラーメッセージが表示されます。

今の方法にこだわりはありません。
a.accdb上のVBA関数でb.accdb上のテーブルの内容をファイル出力したいのですが、どのようにしたら出来ますでしょうか？
ご教示頂けたらと思います。

発生している問題・エラーメッセージ

実行時エラー　'7866'
このデータベースを開くことができません。データベースファイルが存在しないか、他のユーザーが排他モードで開いているか、ADPファイルでないことが原因です。

該当のソースコード

Dim accessFile As String
Dim acc As Access.Application

accessFile = "\aaa\bbb\ccc\b.accdb"

Set acc = New Access.Application
acc.OpenCurrentDatabase accessFile ←ここでエラー発生
acc.DoCmd.TransferText TransferType:=acExportDelim, tableName:="tmp_tbl", fileName:="\aaa\bbb\ccc\aaa.csv"
acc.Quit

補足情報（FW/ツールのバージョンなど）

Microsoft Office Professional Plus 2016

Answer 1

結局、a.accdbからb.accdbにアクセスするのは諦め、新たにc.xlsmを準備し、下記のように実装したところ、やりたいことができました。
ご回答くださった皆様、ありがとうございました。

Dim acc As Object
Dim acExportDelim As Integer
Dim acTable As Integer
Dim accessFile as String

acExportDelim = 2
acTable = 0
accessFile = "\aaa\bbb\ccc\b.accdb"

Set acc = CreateObject("Access.Application)
acc.OpenCurrentDatabase accessFile
acc.DoCmd.TransferText TransferType:=acExportDelim,TableName:="tmp_tbl",fileName:="\aaa\bbb\ccc\aaa.csv", HasFieldNames:=True

acc.Quit

Answer 2

OpenCurrentDatabase の引数であるExclusiveは既定値は共有モードですから、他の処理で排他モードで開いているという事になります。

特に排他モードで開いていない（リンクテーブルも含め）のなら、b.accdbのオプションの設定で排他モードになっていないか確認してみて下さい。
ファイル　→　オプション　→　クライアントの設定　→　詳細設定　→　既定の開くモード

Comments

[tarou_tabi]

ご回答ありがとうございます。
確認しましたが、a.accdb/b.accdbいずれも共有モードになっていました。

Answer 3

こんにちは。
DoCmd.TransferDatabase を使用して、b.accdbのテーブルリンクを生成すればできると思います。

    Dim dataPath Ad String

    dataPath = "b.accdb"

    DoCmd.SetWarnings False
    DoCmd.TransferDatabase acLink, "Microsoft Access", dataPath, acTable, "tmp_tbl", "tmp_tbl"
    :
    'tmp_tblに対する処理
    :
    CurrentDb.TableDefs.Delete "tmp_tbl"    '使い終わったらリンクを削除

こんな感じで。

Comments

[tarou_tabi]

ご回答ありがとうございます。
頂いたソースを実施したところ、b.accdbをmydocumentに置かないといけないようなので、
今回のケースでは使えないのですが、テーブルリンクという物を知らなかったので、勉強になりました。
ありがとうございました！！！

[DreamTheater]

それならdataPathにb.accdbが存在するパスを含めて記述するだけですよ。

[tarou_tabi]

含めると、前にmydocumentのパスが付いてしまったので、固定なのかなと思いました。
何か書き方があるのでしょうか？

[DreamTheater]

絶対パスで書いてもダメですか？

DoCmd.TransferDatabase メソッドはこちらをご参考ください
https://docs.microsoft.com/ja-jp/office/vba/api/access.docmd.transferdatabase

[tarou_tabi]

そうなんです。
絶対パスで書いたのですが、ダメでした。
DreamTheater様から頂いたコメントを拝読して、なんとなくですが、先頭がドライブじゃなくて、サーバのパスだからダメなのかなと思いました。

¥¥xx.xx.xx.xx.¥フォルダ¥フォルダ¥b.accdb
みたいになってるので、絶対パスと判断出来ていないのかもです。

[DreamTheater]

他サーバであっても問題ないと思うのですが、、、
エクスプローラーから上記パス指定でb.accdbは開きますよね？

[tarou_tabi]

お返事遅くなりまして申し訳ありません。
開きます。