CSV로 내보낼 때 복사 한 워크 시트 닫기

Question

엑셀 스프레드 시트의 각 워크 시트를 CSV 파일에 저장하려고합니다. 다음 스크립트는 작업을 수행합니다. 줄 .Parent.Close savechanges:=False은 생성 된 워크 시트를 닫지 만 주석을 제거하면 첫 번째 시트가 끝난 후 스크립트가 중지됩니다. 내가 주석을 달면 모든 시트가 처리됩니다.

Dim newWks As Worksheet 
Dim wks As Worksheet 

For Each wks In ActiveWorkbook.Worksheets 
wks.Copy 'to a new workbook 
Set newWks = ActiveSheet 
With newWks 
.SaveAs Filename:="C:\home\tmp\base\" & wks.Name & ".txt", FileFormat:=xlTextWindows 
.Parent.Close savechanges:=False 
End With 
Next wks 

MsgBox "done with: " & ActiveWorkbook.Name 

Answer 1

액티브 워크 북을 닫습니다. 당신은 새로 생성 된 개체를 닫으려는 경우 같은 것을 할 (그것을 테스트하고 나를 위해 작동) :

Dim newWkb As Workbook 
Dim wks As Worksheet 

For Each wks In ActiveWorkbook.Worksheets 
    wks.Copy 'to a new workbook 
    Set newWkb = ActiveWorkbook 
    With newWkb 
    .SaveAs Filename:="C:\home\tmp\base\" & wks.Name & ".txt", FileFormat:=xlTextWindows 
    newWkb.Close savechanges:=False 
    End With 
Next wks 

MsgBox "done with: " & ActiveWorkbook.Name