ファイルの保存方法について。

データをOLEからexcelに出力させて、ファイルを閉じる場合のファイル名に現在の時刻を使いたいのですが、うまくプログラムできません。私がやってるのは、コモンダイアログのファイル形式の指定で時刻を載せているんですが、・・・。どなたか教えて頂けませんか?

No.2 ベストアンサー 回答者： imogasi 回答日時：2002/01/28 22:58

力不足で論点がずれているかもしれませんが

Sub aaa111()
' Workbooks("book1").Activate
'---ａｂｃでファイルの分類名をその後に日付を入れる
filenam = "abc" & Year(Now()) & Month(Now()) & Day(Now())
MsgBox filenam '確認のため
ActiveWorkbook.SaveAs Filename:=filenam
End Sub
ファイル名が「ａｂｃ２００１０１２８．ｘｌｓ」となりましたがこれでは回答になりませんか。
時刻なら、"abc" & Hour(Now()) & Minute(Now()) & Second(Now()).

この回答へのお礼

そうです。こんなかんじなんです。
どうもありがとうございました。

お礼日時：2002/01/29 09:03

No.1 回答者： chupark 回答日時：2002/01/28 12:55

Excelを参照設定して

Dim xlsheet As Excel.Worksheet
Dim strFileName

strFileName=Now()

'既存のファイルを開いています。
Set xlbook = GetObject("C:\temp\test.xls")
Set xlsheet = xlbook.ActiveSheet

'ＥＸＣＥＬの形式で保存させます。(ちなみにxlNormalをかえるとCSVなどでもできます。)
xlsheet.SaveAs FileName:=strFileName,FileFormat:=xlNormal

…なんてやるとファイル名を自在につけてＥＸＣＥＬ形式で保存することができると思いますが、だめでしょうか？

この回答へのお礼

どうもありがとうございます。
早速ためしてみます。

お礼日時：2002/01/28 12:58