OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    처리 (sdc0713) 추천:  2 파일:     조회:  906 제목:   csv파일로 변환
-엑셀버전 Microsoft 365용 MSO(버전 2212 빌드 16.0.15928.20196) 64비트 수고하십니다 엑셀을 CSV파일로 변환해서 사용하고 있는데요, 시트가 여러개 있다보니 시트하나씩 변환을 하다보니 시간이 많이 걸립니다. 시트전체를 CSV파일로 변환하는 법을 알려주시면 엄청나게 업무에 도움이 되고, 시간 또한 단축 될것입니다. 고수의 귀한 정보 부탁드립니다 　 [불량 게시물 신고]
잡초 Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog    Set folder = Application.FileDialog(msoFileDialogFolderPicker)     If folder.Show <> -1 Then Exit Sub    xDir = folder.SelectedItems(1)    For Each xWs In Application.ActiveWorkbook.Worksheets       xWs.SaveAs xDir & "\" & xWs.Name, xlCSV    Next End Sub 01-06 (20:02) ⓧ삭제 ■신고
작성일 : 2023-01-06(17:32) 최종수정일 : 2023-01-06(17:32)