|
VBA初心者で、他の方の作成されたVBAを見よう見まねで、作成しています。
上手くいかずに困っておりますので、ご教授宜しくお願い申し上げます。
●したい事
CSVファイルでセーブしたい
●困っていること
空白しかないシートでセーブされてしまう
●作成した物
Workbooks(FileName).Activate
'他の場所にバックアップしているため、Cドライブに戻している
ChDrive "C"
ChDir "C:\Documents and Settings\管理者\My Documents\データ登録用フォルダ"
Worksheets("登録").Activate
ActiveWorkbook.SaveAs FileName:=FileName & ".csv", FileFormat:=xlCSV _
, CreateBackup:=False, Local:=True
ActiveWorkbook.Save
この結果、同じブック内に「FileName.csv」という新しい空白のシートが出来、
空白のCSVファイルが出来てしまいます。
行ないたいことは、「登録」シートの内容をCSVファイルにしたいのです。
ご教授、宜しくお願い申し上げます。
|
|