初めての投稿となります。
よろしくお願いいたします。
Accessにて年月日をパラメーター入力すると、該当年月日のDATAを抽出するクエリを作成しました。
現在はマクロにて自動的にデスクトップに該当DATAをExcelファイルに変換は出来るようになっておりますが、自動的にそのExcelファイル名の頭に入力したパラメーター情報を追加したいのですが、どのようにすれば出来るのでしょうか?
現在のファイル名: 情報.xls
自動作成時希望ファイル名:20090415情報.xls
[20090415]がパラメーター入力情報です。
どうぞ宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
VBAになれた方なら、VBAでSQL文を作って実行するようなやり方をするでしょう。
ーー
あえてそれに踏み込まず、
もう少し簡単に出来る方法を述べてみます。
Moduleに、ですが
Sub test02()
x = InputBox("年月日")
MsgBox x
'DoCmd.OpenQuery "クエリ1"
DoCmd.TransferSpreadsheet acExport, 8, "クエリ1", "C:\Documents and Settings\xxxx\デスクトップ\" & x & "名簿原本.xls", False
End Sub
(xxxxは自分のユーザーIDなどの質問者の実情に合わせること)
と入れて、実行します。
年月日を聞いてきます。文字列で入れます。年月区切りに/を入れる方式はうまくいかなかったので、20090416のようにしてテストした。
上記クエリ1は私の場合、パラメータクエリで、パラメータを聞いてきますから入れます。私の場合は条件は年月ではなかったですが。
これでデスクトップに検索(選択)結果のデータのエクセルファイルが出来ました。シート名はクエリ名。
クエリを作るとき、表示フィールドが2度同じものを指定しないようにします(重複した・・のエラーが出ますから。私は出しちゃった)
ーーーー
上記を実行したとき聞いてきた年月日が、質問者の場合、クエリのパラメータで有るようです。クエリ1に上記xの文字列をプログラムで渡せればよいのですが、不可能ではないかと(現状小生には判りません)思います。
簡単さを求めた(アクセスのマクロを使おうとしたため)ためですが、重複入力がイヤならこの回答は無視してください。
VBAでSQLを扱う方式を勉強してください。
No.2
- 回答日時:
> [20090415]がパラメーター入力情報です。
このパラメータですが、クエリのデザインビューの『抽出条件』
部分に『[年月日]』といった形で入力を要求するようにしている、
ということでよろしいでしょうか。
だとすると、マクロからその値を参照するのは難しいと思います。
(少なくとも私は(VBA使用時を含めて)その方法を知りません(汗))
ですので、Excelファイルを作成するマクロを設置したフォームに
テキストボックスを追加し、その値を、「クエリの抽出条件」と
「ファイル名」に使い回す、という代替案を提案します。
具体的には、以下の通りです(フォーム名が「フォーム1」、
テキストボックス名が「年月日」だった場合):
【クエリ】
<現在の抽出条件の式>
[年月日]
<変更後の抽出条件の式>
[Forms]![フォーム1]![年月日]
(パラメータ入力ダイアログは表示されなくなります)
【マクロ】
a)『アクション』に「出力」を指定している場合:
※この場合は、AccessのバージョンによってはExcel5.0という
古いExcelの仕様に従っているらしく、16000行程度までしか
出力されないので要注意。
<現在の『出力ファイル』欄の式>
c:\~~\情報.xls
<変更後の『出力ファイル』欄の式>
="c:\~~\" & Forms!フォーム1!年月日 & "情報.xls"
b)『アクション』に「ワークシート変換」を指定している場合:
<現在の『ファイル名』欄の式>
c:\~~\情報.xls
<変更後の『ファイル名』欄の式>
="c:\~~\" & Forms!フォーム1!年月日 & "情報.xls"
※拡張子を省略すると、「出力」アクションでは拡張子なしで、
「ワークシート変換」アクションでは『ワークシートの種類』
欄で指定したものに対応する拡張子が追加された状態で、
それぞれ出力されるようです。
(WinXP・Access2003での確認結果)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) マクロの付いたExcelが開けません 3 2023/02/01 10:54
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) Excelで漢字人名が勝手に並び変わる(続) 4 2023/03/21 21:28
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) Excelのマクロについて 1 2023/04/17 17:22
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
アクセスでエクセルに出力する際のファイル名を日付に
その他(Microsoft Office)
-
-
4
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
5
ACCESS でインポートファイル名とエキスポートファイル名を変数にしたい
Access(アクセス)
-
6
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
7
Accessでエクセル出力の保存先指定
その他(データベース)
-
8
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
9
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
10
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
11
2つのテーブルに共通するレコードを削除したい
Access(アクセス)
-
12
アクセスクエリ(複数)→マクロ→エクセル出力(ワークシート別)
その他(パソコン・スマホ・電化製品)
-
13
ACCESSのデータに自動で半角スペースを入れたい
その他(データベース)
-
14
【Access】Dcount関数の複数条件で順位を付ける方法について
Access(アクセス)
-
15
教えてください! アクセスの書式設定を保持したまま エクスポートについてですが、 出力ファイル名を
Access(アクセス)
-
16
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
17
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
18
Access:クエリーにて集計後に文字列結合したい。
その他(データベース)
-
19
マクロで待機時間を作りたい
Access(アクセス)
-
20
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのフォームで、空欄のレ...
-
アクセスのフォームにカンマ区...
-
VBAからクエリのパラメータを設...
-
年月日を持つテーブルから年月...
-
Accessの検索フォームで。
-
ACCESS マクロで検索に...
-
Access2000で文字列中の半角ス...
-
アクセス マクロのメッセージ...
-
access 検索フォームで検索が...
-
検索フォームで空白を抽出したい
-
Access テキストボックスとlik...
-
Access レポート印刷するときに...
-
データベースのINT型項目にNULL...
-
YahooのIDがロックされてしまい...
-
passwordが入れられません・・・・
-
レコードを保存するコード ア...
-
アクセスで数値型のフィールド...
-
「フォームを作成できませんで...
-
ACCESS フォームをそのまま印刷...
-
アクセスでテキストボックスの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
年月日を持つテーブルから年月...
-
SQL*Loader
-
検索フォームで空白を抽出したい
-
Accessのフォームで、空欄のレ...
-
アクセスのフォームにカンマ区...
-
ACCESS2003 でクエリの抽出条件...
-
VBAからクエリのパラメータを設...
-
AccessにてExcelファイル名にパ...
-
アクセス マクロのメッセージ...
-
access 検索フォームで検索が...
-
Accessの検索フォームで。
-
ACCESSのフォーム上で複数検索...
-
Access2000で文字列中の半角ス...
-
複数条件検索について
-
Access2007のサブフォームのReq...
-
パススルークエリの動的パラメ...
-
ACCESS マクロで検索に...
-
Access テキストボックスとlik...
-
Accessでパラメータークエリの...
-
Accessで検索画面を作る方法
おすすめ情報