C# と VB.NET の質問掲示板

お世話になります。jinです。
VB2008にてWindowsフォームを開発しているのですが、
以前、VBからSQLを実行し、その結果をExcelに書き込むという
質問をさせていただき、無事行えるようになりました。
今回の質問は、その保存方法についてお聞きしたいと思っております。
まず、以下のソースをご覧いただきたいと思います。
'変数に今日の日付をつける
	   Dim day As String = Format$(Now, "yyyy/MM/dd hhmmss")

            '===========================
            ' 新規のEXCELファイルを開く。
            '===========================
	   Dim xlApp As Excel.Application
            Dim xlBook As Excel.Workbook
            Dim xlSheet As Excel.Worksheet

            xlApp = New Excel.Application
            xlApp.Visible = True 'EXCELの表示
            xlApp.Workbooks.Add() '新規ブックを作成する
            xlBook = xlApp.ActiveWorkbook 'Workbook
            xlSheet = DirectCast(xlBook.ActiveSheet, Excel.Worksheet) 'Worksheet

	    '*******************************************************
	　　'Excelへの書き込みを行った後にcsvファイルとして保存する。
	    '*******************************************************

	    
	   '解放の処理を行う。
	　　xlApp.DisplayAlerts = False 

	   'TEMPというフォルダに保存する。
            xlSheet.SaveAs("C:\TEMP\'" & day & "'.csv")

            MRComObject(xlSheet)       '←xlSheet のMarshal.ReleaseComObject

            MRComObject(xlBook)        '←xlBook のMarshal.ReleaseComObject
             
            MRComObject(xlApp)         '←xlApp のMarshal.ReleaseComObject

            xlSheet = Nothing
            xlBook = Nothing
            xlApp = Nothing

上記のソースはExcelの立ち上げから解放までのソースです。
書き込みについては問題が無いので、載せていません。

'************************************************************
問題は、Excelのファイルを保存する際、タイトルに
時刻を含めた今日の日付を設定したいということです。
名前を付けて保存する際、
「day」という今日の日付を設定した変数を名前に指定すると、
以下のエラーが出ます。
'************************************************************

ファイル 'C:\TEMP\集計(月次)'2009\06' にアクセスできません。
次のいずれかの理由が考えられます。  
• ファイル名またはパス名が存在しない可能性があります。 
• 開こうとしているファイルは、ほかのユーザーまたはプログラムによって開かれています。
ほかのプログラムで開いている場合、ファイルを閉じた後、もう一度実行してください。 
• 保存しようとしているファイルと同じ名前のファイルが、
既に読み取り専用のファイルとして保存されています。別の名前で保存してみてください。

非常に長いのですが、以上がエラーの内容になります。

目的としては何度同じ動作を行っても、
それぞれ別の名前で保存したということです。
そこで考えましたのが、時刻を含めた名前を付けるということです。

申し訳ないのですが、日付を設定してファイルを保存する方法を
ご教授願えないでしょうか、

本題はよねＫＥＮさんが既に回答されているので、今回の問題とは別の点について指摘。

■No36926 (jin さん) に返信
> Dim day As String = Format$(Now, "yyyy/MM/dd hhmmss")

$ は冗長なので、単に Format でよいかと思いますよ。

Excel VBA や VB6 等では、Format と Format$ の 2 種類がありましたが、
VB.NET では Format しかありません。

'-------------
　' 旧 VB
　Dim V As Variant
　V = Now()
　'V = Null    ' Null を渡すと、$版はエラーになる。
　Debug.Print Format(V, "yyyyMMdd_hhmmss")
　Debug.Print Format$(V, "yyyyMMdd_hhmmss")
　Debug.Print [_B_var_Format](V, "yyyyMMdd_hhmmss")
　Debug.Print [_B_str_Format](V, "yyyyMMdd_hhmmss")
'-------------

VB.NET で関数名に $ を付けるというのは、
  Function Sample(ByVal n As Integer) As String
    Return CStr(n)
  End Function
を、
  Dim x As String = Sample(100)
  Dim y As String = Sample$(100)
のいずれでも呼び出せる程度の意味しかなかったりします。
旧VB のように、「$付きの方が処理効率が良い」といった効能は無いのでご注意を。



> xlApp.Workbooks.Add() '新規ブックを作成する
> xlBook = xlApp.ActiveWorkbook 'Workbook
これは問題があるかと思います。この場合は、

　Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
　Dim xlBook  As Excel.Workbook  = xlBooks.Add()

が適切です。


> xlSheet.SaveAs("C:\TEMP\'" & day & "'.csv")
この場合、「'」もファイル名の一部となり、
シングルクォーテーション付きで保存されますが、それで良いのでしょうか?

> 2009/06/10(Wed) 10:24:55 編集(投稿者)

よねKENさん、
魔界の仮面弁士さん、

ありがとうございました。
無事、日付をつけての保存が出来るようになりました。
最終的にのソースとなりました。

            '変数に今日の日付をつける
	   Dim day As String = Format(Now, "yyyyMMdd hhmmss")

	   '=========================================================
            ' 新規のEXCELファイルを開きDataGridViewの内容を書き込む。
            '=========================================================
            Dim xlApp As Excel.Application
            Dim xlSheet As Excel.Worksheet

            '======================
            ' EXCELファイルを開く。
            '======================
            xlApp = New Excel.Application

            Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
            Dim xlBook As Excel.Workbook = xlBooks.Add()
            xlApp.Visible = True 'EXCELの表示
            xlSheet = DirectCast(xlBook.ActiveSheet, Excel.Worksheet) 'Worksheet            

	    '*******************************************************
	　　'Excelへの書き込みを行った後にcsvファイルとして保存する。
	    '*******************************************************

	    '=============================
	    '解放の処理を行う。
　　　	　　'=============================
	　　xlApp.DisplayAlerts = False 

	    'TEMPというフォルダに保存する。
            xlSheet.SaveAs("C:\TEMP\" & day & ".csv")

            MRComObject(xlSheet)       '←xlSheet のMarshal.ReleaseComObject

            MRComObject(xlBook)        '←xlBook のMarshal.ReleaseComObject

            MRComObject(xlBooks)       '←xlBooks の Marshal.ReleaseComObject
             
            MRComObject(xlApp)         '←xlApp のMarshal.ReleaseComObject

            xlSheet = Nothing
            xlBook = Nothing
            xlBooks = Nothing
            xlApp = Nothing

よねKENさんの
>この"/"はファイル名に含むことのできない文字です。

形としては、
"/"を外しただけなのですが、
「20090610 102035.csv」
というタイトルでの保存が出来るようになり、
常に個別のタイトルを付けての保存が出来るように
なりました。


さらに、魔界の仮面弁士さんがご教授してくださった、
Excelの立ち上げに関しまして、

>Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
>Dim xlBook  As Excel.Workbook  = xlBooks.Add()
>が適切です。

という形に変えましたところ、
解放処理が問題なく出来るようになりました。

実をいうと、今回の仕様について、
解放処理がうまくいかないことがありました。
タスクマネージャーのプロセスに
EXCEL.EXEが残ってしまうことがあったのですが、
魔界の仮面弁士さんのご指摘どおりに訂正したところ、
そちらも解決することができました。

ありがとうございます。