|
CSV形式の出力には成功したのですが、
同じファイル名があるときにキャンセルすると
マクロがエラーになるので、キャンセルしたとき
の処理を行いたいのです。
VBAは初心者ですので分からない説明かと思いますが
どなたかご指導のほどよろしくお願いいたします。
「マクロの記録」で作った現在のマクロです。
Range("M9").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheet2.Visible = True
Sheets("変換シート").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("A1").Select
Sheets("変換シート").Select
Application.CutCopyMode = False
Sheets("変換シート").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\daidai\デスクトップ _
\データ.csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1").Select
Sheets("入力").Select
Selection.End(xlToLeft).Select
Sheet2.Visible = False
|
|