Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

96 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【11375】Re:フォームで抽出したデータをExcel出力

ＶＢＡ初心者 - 10/1/13(水) 13:51 -


	引用なし

	パスワード

▼小僧さん：
ご回答有難うございます。
ＶＢＡ初心者です。

>　　xlsFileName = Format(Date, "yyyy_mm_dd") & "ホストデータ.xls"
として出力するファイル名を「yyyy_mm_ddホストデータ.xls」として出力
できたのですが、
>>Const xlsFileName As String = "D:\ホストデータ.xls"
にて初期値としてＤドライブ保存をしていたのですが、同じようにＤドライブ
直下に初期値で保存する設定はできますでしょうか。
　>>Const xlsFileName As String = "D:\xlsFileName"としようとしても
二重定義になりエラーになります。

また、>Output To メソッドではなく、TransferSpreadsheet メソッドを
　　　>使用するのには問題がありそうでしょうか。
とご教授いただいて、
　DoCmd.OutputTo ObjectType:=acOutputQuery _
　　　　　　　　 , ObjectName:="Q_Rireki" _
　　　　　　　　 , OutputFormat:=acFormatXLS _
　　　　　　　　 , OutputFile:=xlsFileName _
　　　　　　　　 , AutoStart:=True
の記述を
　　　　　　　
　　DoCmd.SetWarnings False
　　DoCmd.TransferSpreadsheet acExport, 8, "Q_Rireki", "D:\xlsFileName", True, ""
　　DoCmd.SetWarnings True

などにしてみたのですが、上手く出力できません。

お忙しい中恐縮ですが、ご教授をお願い致します。

>▼ＶＢＡ初心者さん：
>こんにちは。
>
>> 例:（2010/01/12ホストデータ.xls）として
>> 保存する方法がありますでしょうか。
>
>Windows上で名前の変更の操作を行って頂くと
>解りやすいかと思われますが、
>ファイル名に「/」は使えませんので「_」等で代用しましょう。
>
>
>>Const xlsFileName As String = "D:\ホストデータ.xls"
>
>まず、Const句は定数を宣言するもので
>日付によって内容を変えたいのであれば変数の宣言が必要です。
>
>→ Dim xlsFileName As String
>
>次に「システム日付」を「yyyy_mm_dd」という書式に変換するには
>Format関数を使います。
>
>　　xlsFileName = Format(Date, "yyyy_mm_dd") & "ホストデータ.xls"
>
>
>> Excel上のも「2010/01/12」として出力する方法はありますでしょうか。
>
>簡単な解決方法として
>Output To メソッドではなく、TransferSpreadsheet メソッドを
>使用するのには問題がありそうでしょうか。
>
>Output To メソッドを使った後に書式を変更する事も可能ですが
>ExcelVBAとオートメーションの知識が必要となってきます。

>▼ＶＢＡ初心者さん：
>こんにちは。
>
>> 例:（2010/01/12ホストデータ.xls）として
>> 保存する方法がありますでしょうか。
>
>Windows上で名前の変更の操作を行って頂くと
>解りやすいかと思われますが、
>ファイル名に「/」は使えませんので「_」等で代用しましょう。
>
>
>>Const xlsFileName As String = "D:\ホストデータ.xls"
>
>まず、Const句は定数を宣言するもので
>日付によって内容を変えたいのであれば変数の宣言が必要です。
>
>→ Dim xlsFileName As String
>
>次に「システム日付」を「yyyy_mm_dd」という書式に変換するには
>Format関数を使います。
>
>　　xlsFileName = Format(Date, "yyyy_mm_dd") & "ホストデータ.xls"
>
>
>> Excel上のも「2010/01/12」として出力する方法はありますでしょうか。
>
>簡単な解決方法として
>Output To メソッドではなく、TransferSpreadsheet メソッドを
>使用するのには問題がありそうでしょうか。
>
>Output To メソッドを使った後に書式を変更する事も可能ですが
>ExcelVBAとオートメーションの知識が必要となってきます。