2012-12-13 3 views
1

통합 문서 개체를 사용하여 지정된 파일 형식 CSV로 저장하려고하는데 몇 가지 문제가 있습니다.vba : CSV 파일로 통합 문서 저장

Sub Button1_Click() 
    Dim c As Workbook 
    Set c = Application.Workbooks.Open(Filename:="C:\Testing\testbook.xlsx", IgnoreReadOnlyRecommended:=True) 
    Call sSaveWorkbookAsCSV(c, "C:\Testing") 
End Sub 

Public Sub WBookToCSV(wkbktosv As Workbook, strOutputFilePath As String) 

    Application.DisplayAlerts = False 
    Call wkbktosv.SaveAs(strOutputFilePath, xlCSV, CreateBackup:=False) 
    Application.DisplayAlerts = True 
    Call wkbktosv.Close(SaveChanges:=False) 

End Sub 
+0

c : \ testing \ testbook.csv라는 파일이 있고 읽기 전용인지 확인 했습니까? – GTG

+0

csv 파일이 생성되지 않습니다. .xlsx 파일이 존재하며 읽기 전용이 아닙니다. – mezamorphic

+0

오, 죄송합니다. 코드를 잘못 읽었습니다. c : \ testing.csv라는 이름으로 저장하려고합니다. 어쩌면 그 중 하나가 존재하고 읽기 전용입니까? – GTG

답변

0

당신은 그것을 변경해야합니다 : "sSaveWorkbookAsCSV (C C : \ Testing.csv 아래의 코드에서, 나는 저장 -로 라인, .csv 파일은 읽기 전용 말을 한 후 오류가 ")

관련 문제