Microsoft Access 掲示板

エクセルファイル出力時のフォルダ指定

4 コメント
views
4 フォロー

ご無沙汰しています。
また行き詰まりました。アドバイスをよろしくお願いします。

【現在】

『物品』フォルダを作成し、そこにアクセス「物品」ファイルを置いています。
アクセス「物品」ファイル内の「終了」ボタンをクリックすると、
同じフォルダにエクセル「物品要求書」ファイルを作成し、
「抽出クエリ」を「注文出力」タブに書き出しています。


Private Sub 終了_Click()

    Dim FileName As String

    FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "¥")) _
                    & "物品要求書.xls"

    DoCmd.TransferSpreadsheet acExport,
            acSpreadsheetTypeExcel9, "注文抽出クエリ",

            FileName, True, "注文出力"

End Sub


【やりたいこと】

『物品』フォルダにもうひとつ『総務部』フォルダを用意して、
そこにエクセル「物品要求書」ファイルを出力したい。

【やってみたこと】

場所指定の「FileName」を修正すれば良いと考えましたが、ここで詰まりました。
ネットで色々と探りましたが、同じ場所のパターンはありますが、
同じ場所のフォルダを指定する方法が見つかりません。

"¥" を "¥総務部¥" にしたり & "総務部¥" にしたりしてみましたが、
反応がなかったりマイピクチャに出力されたり、よくわかりません……。

ご教授よろしくお願いします。

鉄血
作成: 2020/12/26 (土) 13:21:23
通報 ...
1
鉄血 2020/12/27 (日) 11:55:04 43d60@ce856

自己解決しました!
以下の修正でできました。よく考えたらシンプルにパス記述を
考えるべきだったんですね。
お騒がせしました。


                   & "物品要求書.xls"

                   & "総務部\物品要求書.xls"

2
鉄血 2020/12/27 (日) 11:57:02 43d60@ce856

連投失礼します。半角「\」が投稿時に「/」になってしまいました。


                   & "物品要求書.xls"

                   & "総務部¥物品要求書.xls"

3
おか。 2020/12/27 (日) 12:51:21 31438@cab8e

FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "¥")) & "総務部¥物品要求書.xls"
赤文字のところを付け加えました。
これでいかかでしょうか?

4
名前なし 2020/12/27 (日) 18:25:57 8b661@ce856

まさにその通りです!返信ありがとうございました!