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

質問

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

回答No.2

imogasi · ベストアンサー

力不足で論点がずれているかもしれませんが
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()).

お礼

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

回答No.1

chupark

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

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

お礼

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