| |
▼小僧 さん：
ご回答有難うございます。
ＶＢＡ初心者です。
> 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とオートメーションの知識が必要となってきます。
|
|
ＶＢＡ初心者
- 10/1/13(水) 13:51 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
