ご無沙汰しています。
また行き詰まりました。アドバイスをよろしくお願いします。
【現在】
『物品』フォルダを作成し、そこにアクセス「物品」ファイルを置いています。
アクセス「物品」ファイル内の「終了」ボタンをクリックすると、
同じフォルダにエクセル「物品要求書」ファイルを作成し、
「抽出クエリ」を「注文出力」タブに書き出しています。
Private Sub 終了_Click()
Dim FileName As String
FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "¥")) _
& "物品要求書.xls"
DoCmd.TransferSpreadsheet acExport,
acSpreadsheetTypeExcel9, "注文抽出クエリ",
FileName, True, "注文出力"
End Sub
【やりたいこと】
『物品』フォルダにもうひとつ『総務部』フォルダを用意して、
そこにエクセル「物品要求書」ファイルを出力したい。
【やってみたこと】
場所指定の「FileName」を修正すれば良いと考えましたが、ここで詰まりました。
ネットで色々と探りましたが、同じ場所のパターンはありますが、
同じ場所のフォルダを指定する方法が見つかりません。
"¥" を "¥総務部¥" にしたり & "総務部¥" にしたりしてみましたが、
反応がなかったりマイピクチャに出力されたり、よくわかりません……。
ご教授よろしくお願いします。
自己解決しました!
以下の修正でできました。よく考えたらシンプルにパス記述を
考えるべきだったんですね。
お騒がせしました。
& "物品要求書.xls"
↓
& "総務部\物品要求書.xls"
連投失礼します。半角「\」が投稿時に「/」になってしまいました。
& "物品要求書.xls"
↓
& "総務部¥物品要求書.xls"
FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "¥")) & "総務部¥物品要求書.xls"
赤文字のところを付け加えました。
これでいかかでしょうか?
まさにその通りです!返信ありがとうございました!