Sub csv保存()
Application.DisplayAlerts = False '上書き保存する際に、警告メッセージを無視します。
ActiveSheet.Copy '現在のアクティブシートを新規ブックに保存します。
ActiveWorkbook.SaveAs Filename:="C:\Users\user\Documents\text.csv", FileFormat:=xlCSV, Local:=True 'CSVファイルに保存します。
Application.DisplayAlerts = True '警告メッセージの無視を解除します。
ActiveWorkbook.Close SaveChanges:=False
End Sub
More than 3 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme