CSV 파일로 내보내기 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 더보기 이전 1 2 3 4 5 6 7 8 ··· 1071 다음