![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
No1です。
同じ名前のファイルが存在した場合の処理を
付加しておきます。それと、一部変更します。
Private Sub コマンド0_Click()
Dim strReportName As String
Dim strPath As String
Dim strFileName As String
'対象のレポート名
strReportName = "r1"
出力先のフォルダ名
strPath = "C:\Documents and Settings\user\デスクトップ\OKWeb2\登録Web1"
'出力するExcelのファイル名
strFileName = strPath & "\" & Format(Date, "yyyy" & "mm" & "dd")
DoCmd.OpenReport strReportName, acViewPreview
If MsgBox("レポートをExcelへ転送しますか", vbYesNo) = vbYes Then
If Dir(strFileName & ".xls") = "" Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".xls", True
DoCmd.SetWarnings True
Else
If MsgBox("同じ名前のファイルがあります。上書きしますか", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".xls", True
DoCmd.SetWarnings True
Else
DoCmd.Close acReport, strReportName
Exit Sub
End If
End If
End If
DoCmd.Close acReport, strReportName
End Sub
なお、レポートをすでに開いている場合には、
コード中の、
DoCmd.OpenReport strReportName, acViewPreview
DoCmd.Close acReport, strReportName
などは、コメントアウトするか削除してください。
No.3
- 回答日時:
マクロのアクション 「書式設定を保持したままエクスポート」 で出力している、ということでしょうか?
でしたら、引数 「出力ファイル」 のところに
= "C:\xxx\○○○\" & Format(Date(),'yyyymmdd') & ".xls"
のような感じで行けると思います。
No.1
- 回答日時:
フォームにボタンを一つ作成して、そのクリック時の
イベントで、
Private Sub コマンド0_Click()
Dim strReportName As String
Dim strPath As String
Dim strFileName As String
'対象のレポート名
strReportName = "r1"
'出力先のフォルダ名
strPath = "C:\Documents and Settings\user\デスクトップ\出力先"
'出力するExcelのファイル名
strFileName = strPath & "\" & Format(Date, "yyyy" & "mm" & "dd")
DoCmd.OpenReport strReportName, acViewPreview
If MsgBox("レポートをExcelへ転送しますか", vbYesNo) = vbYes Then
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".xls", True
End If
DoCmd.Close acReport, "r1"
End Sub
上記の場合、Excelの形式をxlsにしていますが、環境に合わせてacFormatXLS
と、".xls" を変更してください。
しかし、レポートをそのままExcelに出力して出力したときの
Excelでの表示は思うものになっていますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
- Access(アクセス) 教えてください。 アクセスでクエリデータを 指定フォルダに保存するマクロを作成しているのですが、ファ 2 2022/11/13 10:35
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
-
4
教えてください! アクセスの書式設定を保持したまま エクスポートについてですが、 出力ファイル名を
Access(アクセス)
-
5
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
6
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
7
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
8
Accessでエクセル出力の保存先指定
その他(データベース)
-
9
AccessにてExcelファイル名にパラメーター情報を追加
Access(アクセス)
-
10
Access Excel出力する保存先を指定したいのですが?
その他(データベース)
-
11
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
12
アクセスからエクスポートするファイル名に日付を入れたい
Access(アクセス)
-
13
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
14
AccessのテーブルデータをExcelの特定のワークシート名にエクスポートすることは可能ですか
Excel(エクセル)
-
15
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
16
アクセスクエリ(複数)→マクロ→エクセル出力(ワークシート別)
その他(パソコン・スマホ・電化製品)
-
17
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
18
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
19
エクセルの指定したシートにエクスポート
その他(データベース)
-
20
ACCESS クエリの抽出条件で全てを抽出したい
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
printfとputcharの違いは
-
MMDでavi出力が出来ない
-
OBS配信すると、マイクが途切れ...
-
c言語でグラフをつくる
-
センサーのタンパー出力について
-
cout と cerrの違い
-
VBAでIEを操作、ポップアップさ...
-
スマホのバッテリー消費につい...
-
プログラムについての質問です...
-
コンセントの電力は入力と出力...
-
VBA UTF-8形式のテキストファイ...
-
【UWSC】WEBページ中の特定文字...
-
標準出力の上書き
-
エクセルVBAでテキストファイル...
-
Zガンダムのハイザックて、ジェ...
-
中国の電子レンジの火力は何ワ...
-
無停電電源装置(UPS)の待機時...
-
VBAで特定範囲のセルの平均値を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
プログラムについての質問です...
-
printfとputcharの違いは
-
cout と cerrの違い
-
COBOLのMOVEで桁数が異なる場合
-
テキストファイルから特定の文...
-
MMDでavi出力が出来ない
-
コンセントの電力は入力と出力...
-
アクセスでエクセルに出力する...
-
OBS配信すると、マイクが途切れ...
-
coutで出力した文字を消去する...
-
CRC16計算について
-
VBA レジストリの値の読み方に...
-
ACCESS クエリ→フォーム...
-
printfの書式%.*s
-
VBAで有効数字の設定
-
VBAでテキスト出力時のスペース...
-
VBAのExecメソッドで画面を非表...
-
makeで文字化けする。migwのmak...
おすすめ情報