EXCEL VBAでカンマ区切りCSVファイルに変換する方法

EXCELで作成したシートをVBAでカンマ区切りCSVファイルに変換する方法を教えてください
下記のプログラムではXLSファイルで保存されますが、カンマ区切りCSVにする方法が分かりませんでした。

'保存先パス名
NetPath = "V:\AAAA\"
' セルA1 には、ファイル名記入
BkName = ThisWorkbook.Sheets("Sheet1").Range("A1").Text & ".XLS"

補足：マクロを実行した時に自動でネットワークドライブ(V:\AAAA)へ保存、ファイル名はSheet1のセルA1の文字をファイル名として
保存するようにしたいです。
宜しくお願い致します。

No.1 回答者： Wizard_Zero 回答日時： 2009/11/30 17:54

保存時にFileFormatをxlCSVにすればよいかと。

'保存先パス名
NetPath = "V:\AAAA\"
' セルA1 には、ファイル名記入
BkName = ThisWorkbook.Sheets("Sheet1").Range("A1").Text & ".csv"

ThisWorkbook.SaveAs Filename:=BkName, FileFormat:=xlCSV, CreateBackup:=False

この回答へのお礼

他のプログラムのエラーでなかなか確認できなくて返事遅れてしまいましたが
無事ＣＳＶで形式で保存することが出来ました。
ありがとうございました。

お礼日時：2009/12/02 23:32

No.2 回答者： NOBNNN 回答日時： 2009/11/30 18:00

同じ質問が回答済みです

http://oshiete1.goo.ne.jp/qa2439638.html

こちらを参考にしてください。

まずは　Google　などで検索することをおすすめします。

たとえば 「Excel CSv VBA」　とか　のキーワード