none
実行時エラー1004 RRS feed

  • 質問

  • よろしくお願いします。

    Excelファイルのそれぞれのワークシートのデータをワークスシート名.csvで保存しようと

    して以下のマクロを作成したのですが、「実行時エラー1004 ’ワークシート名.csv’

    は読み取り専用です。アクセスできません。」

    と表示され、うまくいきません。どのように修正すれば良いでしょうか。

    ちなみに、パス、ファイル名、ワークシート名は全て英数字です。

    環境は、macOS 10.15.6 ,Excel 2019使用です。

    Sub MAKE_CSV()

    Dim ws As Worksheet
    Dim wsName As String

    For Each ws In ThisWorkbook.Sheets
    ws.Activate
    wsName = ws.Name
    ws.SaveAs FileName:=ThisWorkbook.Path & "/" & wsName + ".csv", FileFormat:=xlCSV, CreateBackup:=False
    ws.Name = wsName
    Next

    End Sub

    以上、お教えください。

    2020年9月10日 15:16