私はこのコードを使用していますが、何らかの理由で、8文字を超える名前は切り捨てられます。
Dim SaveName As String
Dim CurrentDate As Date
CurrentDate = Now
SaveName = InputBox("Save Database as..", "Save as..", CurrentDate)
DoCmd.TransferDatabase _
acExport, _
"dBase IV", _
"C:\Data\PLC_MOBZ\Test\export", _
acTable, _
"DB_Total", _
SaveName, _
False
ご存知のように、何も入力されていない場合でも、デフォルトの名前は次のようになります。
"22-2-2013 14:42:44"
これは8文字より長くする必要があります。