意味の説明

質問

ＶＢＡだと思うのですが
次はそのプログラムの意味で，ｗｉｔｈ以下のコードの意味がどういうことを意味しているか、全くわからないので解釈していただけませんか。
私はＶＢＡはしろうとです。

If i = 0 Then MsgBox MY_FOLDER & " には、CSVファイルが存在しません。", vbCritical: Exit Sub
　 Application.ScreenUpdating = False
　 Application.DisplayAlerts = False
　 For Each n In myCSVFnames
　　　xlFileName = Mid$(n, 1, InStrRev(n, ".csv")) & ".xls"
　　　If Dir(MY_FOLDER & "\" & xlFileName) = "" Then
　　　　 With Workbooks.Open(MY_FOLDER & "\" & n, Format:=2)
　　　　　　.SaveAs MY_FOLDER & xlFileName
　　　　　　Workbooks(xlFileName).Close False
　　　　　　j = j + 1
　　　　 End With
　　　End If
　 Next n

回答No.2

galoon · ベストアンサー

ANo.1です。
内容ではなかったんですね(^^;

(1)Withは指定したオブジェクトの記述を省略するためのものです。
ここでは、Workbooks.Open が戻す CSVファイルを含む Workbook オブジェクトになります。
(2).SaveAs の「.」は(1)のWithと関連していて、省略したオブジェクトの属性を指定するためのものです。
正式には(Workbook).SaveAsということで、括弧内を省略しています。
(3).SaveAs の第二引数で指定できます。
ご希望のタイプとしては、「xlExcel9795」を指定すればいいようです。

回答No.1

galoon

MY_FOLDER にある csv ファイルをExcelで開き、Excel形式のファイルとしてMY_FOLDERに保存し、開いたファイルを閉じています。
つまりCSV→XLS変換を行っているんですね。

お礼

早速のご回答ありがとうございます。ここで新たに質問内容を補足しました。
以上宜しくお願いします。

補足

はいその通りです。
３つ質問があります。
(1)ここでＷＩＴＨというのは何でしょうか。関数ではないと思うのですが。
(2)ＳＡＶＥＡＳの前の”.”は何でしょうか。
(3)保存形式としてMicro　soft　excel　９７－２０００及び5.0/９５bookで保存したいのですが、それをコードに反映できますか。