1

ワークブック オブジェクトを使用して指定されたワークブックをファイル形式 csv として保存しようとしていますが、いくつか問題があります。以下のコードでは、名前を付けて保存行の後に、.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
4

1 に答える 1

0

次のように変更する必要があります: sSaveWorkbookAsCSV(c, "C:\Testing.csv")

于 2012-12-13T22:08:05.687 に答える