No.1ベストアンサー
- 回答日時:
エラー処理はほとんどしていませんが、以下の
コードではどうですか。
フォームのボタンクリックのイベントに設定
します。インプットボックスが二回表示されます。
保存するレポート名と保存先です。保存先は
たとえば、
C:\Documents and Settings\user\デスクトップ\hogehoge
あるいは、
C:\Temp
などと入力します。
Private Sub コマンド0_Click()
Dim strReportName As String
Dim strPath As String
Dim strMsg1 As String
Dim strMsg2 As String
strMsg1 = "保存するレポートの名前を入力してください"
strMsg2 = "保存先をフルパスで入力してください"
If MsgBox("Wordで保存しますか?", vbYesNo) = vbYes Then
strReportName = InputBox(strMsg1, "レポート名")
strPath = InputBox(strMsg2, "保存先")
If strPath <> "" Then
DoCmd.OutputTo acOutputReport, strReportName, acFormatRTF, strPath & "\" & Format(Date, "yyyymmdd") & ".doc", False
End If
End If
End Sub
この回答への補足
わざわざ、補足まで書いて頂き、ありがとうございます。
大変、役立ち、早速活用させて頂きました。
ついでに、厚かましいのですが、マクロの進行のなかに、メッセージBOXが出、
タイトル{ファイルへ出力} ファイル形式の選択と出て、Snapshot Format,Rich Text Format,MS-DOS Text,Micrsoft Excel,HTMLと5つの選択画面が出ます。
この選択メッセージBOXなしには成らないのですか?
サアーとワード文章にしたいのです。すみません、よろしく回答お願いいたします。
申し訳ありません
acFormatRTF,のスペル間違って記入してました。
できました。ありがとうございました。
今後、活用させていただきまし。
No.3
- 回答日時:
>クロの進行のなかに、メッセージBOXが出、
>タイトル{ファイルへ出力} ファイル形式の選択と出て、
>Snapshot Format,Rich Text Format,MS-DOS Text,Micrsoft Excel,HTML
>と5つの選択画面が出ます。
>この選択メッセージBOXなしには成らないのですか?
最初は、? と思ったのですが、多分こういうことではないかと。
もし、提案したコードを実行中に補足のようなことが起きるとする
ならば、多分、
DoCmd.OutputTo acOutputReport, strReportName, acFormatRTF, strPath & "\" & Format(Date, "yyyymmdd") & ".doc", False
のところで、
acFormatRTF
が何らかの理由で省略されてしまっているのでは、と思います。
これを省略して、
DoCmd.OutputTo acOutputReport, strReportName,, strPath & "\" & Format(Date, "yyyymmdd") & ".doc", False
のようにすると補足のようなことが起きます。レポートは
直接Word形式に変換するのではなく、一旦RTF、すなわち
RichText形式に変換し、拡張子をdocにするという方法を
とります。したがって、acFormatRTFを所定の位置に入れると
補足のようなことは起きないはずです。
追加として、質問では保存するときにファイル名も指定
しておきたい、ということでしたから、
Private Sub コマンド0_Click()
Dim strReportName As String
Dim strPath As String
Dim strFileName As String
Dim strMsg1 As String
Dim strMsg2 As String
Dim strMsg3 As String
strMsg1 = "保存するレポートの名前を入力してください"
strMsg2 = "保存先をフルパスで入力してください"
strMsg3 = "保存するときのファイル名を入力してください"
If MsgBox("Wordで保存しますか?", vbYesNo) = vbYes Then
strReportName = InputBox(strMsg1, "レポート名")
strPath = InputBox(strMsg2, "保存先")
strFileName = InputBox(strMsg3, "ファイル名")
If strPath <> "" Then
DoCmd.OutputTo acOutputReport, strReportName, acFormatRTF, strPath & "\" & strFileName & Format(Date, "yymmdd") & ".doc",
False
End If
End If
End Sub
以上です。補足に関して私の解釈が間違っていなければ、
と思う次第です。何かあれば補足してください。
No.2
- 回答日時:
No1です。
DoCmd.OutputTo acOutputReport, strReportName, acFormatRTF, strPath & "\" & Format(Date, "yyyymmdd") & ".doc", False
のところで、
yyyymmdd
を
yymmdd
にしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/04/17 13:07
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 2 2022/11/18 15:34
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
AccessからWordの差し込み印刷文書を印刷するVBAについて教えてください
Access(アクセス)
-
Accessのレポート出力をWordに出力する方法
その他(データベース)
-
WordやExcelで作ってた帳票をAccessで出力したい
Word(ワード)
-
-
4
ACCESS VBAからWordのテンプレートに
Visual Basic(VBA)
-
5
ACCESSのレポートにWORDで作った文書を貼り付けるには?
Access(アクセス)
-
6
accessレポートにwordの文書を貼り付ける
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
作成したファイルの保存先を変...
-
有料Microsoft365は、PCを変え...
-
ペイントの囲み線を消す
-
Excel 名前を付けて保存のVBA
-
私本管理Plusの保存の仕方
-
blender 保存方法
-
保存がGIMPに
-
MPEG-4ファイルを音声ファイル...
-
16bitへの画像変換
-
wardに貼り付けた画像を普通の...
-
Windows11のデスクトップアイコ...
-
OneDriveのアイコンに赤の×印
-
重複ファイルとは何ですか?削...
-
ファイルを隠し設定していない...
-
Windows11なのですがPDFにパス...
-
複数フォルダをまとめて移動す...
-
imgファイル→isoファイル変換
-
動画をDVDに書き込んだが、...
-
『HP/nx6120』の“Swsetup”とい...
-
別のプログラムを選択の画面で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ペイントの囲み線を消す
-
作成したファイルの保存先を変...
-
Excel 名前を付けて保存のVBA
-
有料Microsoft365は、PCを変え...
-
グループ化した図形を保存できない
-
カメラで取った画像を図として...
-
16bitへの画像変換
-
エクセルで作ったものをUSBに入...
-
メールをディスクに保存したい...
-
WORDで保存の時にでるファイル...
-
保存がGIMPに
-
スウォッチパネルにライブラリ...
-
学校で情報の授業がありました...
-
ペイントの保存先を今のフォル...
-
アクセスのレポートをワードに...
-
私本管理Plusの保存の仕方
-
fc2ファイルのアップロード...
-
描いた絵の保存が出来ないのです。
-
PCのインターネットの画面を「...
-
MPEG-4ファイルを音声ファイル...
おすすめ情報