IDL
CSV 파일로 내보내기
알 수 없는 사용자
2010. 2. 24. 05:52
Sub ExportActiveWorksheet()
Dim oldname$, oldpath$, oldformat
Application.DisplayAlerts = False 'avoid safetey alert
With ActiveWorkbook
oldname = .Name
oldpath = .Path
oldformat = .FileFormat
.ActiveSheet.SaveAs _
Filename:="c:\file.csv", FileFormat:=xlCSV
.SaveAs Filename:=oldpath + "\" + oldname, FileFormat:=oldformat
End With
Application.DisplayAlerts = True
End Sub