Are you sure you want to delete the question?

Leaving a resolved question undeleted may help others!

VBAでcsvファイルを作成したい

Q&A

Closed

macにて動かしています。
VBAでcsvファイルを作成したいのですが以下エラーが発生します。

エラー番号: 1004

エラー説明: 'testデータ_test.csv' は読み取り専用です。アクセスできません。

コードは以下の通りです。

' CSVファイルの名前と保存パスを設定
csvFilePath = AnalyzerDataFolder & "testデータ_" & sheetName & ".csv"
' 読み取り専用属性を解除
SetAttr csvFilePath, vbNormal
' 新しいワークブックをCSV形式で保存
c.SaveAs fileName:=csvFilePath, FileFormat:=xlCSV
' 新しいワークブックを閉じる
newWb.Close False

以下コードでは正しく実行されました。

' xlsxファイルの名前と保存パスを設定
xlsxFilePath = AnalyzerDataFolder & "testデータ_" & sheetName & ".xlsx"
' 新しいワークブックをxlsx形式で保存
newWb.SaveAs fileName:=xlsxFilePath
' 新しいワークブックを閉じる
newWb.Close False

読み取り専用エラーが出るのでSetAttr csvFilePath, vbNormalを追加しましたがダメでした。
ご回答よろしくお願い致します。

0 likes

3Answer

自分のMac(Excel for Mac Version 16.83)でも再現しました。
ネットをググったところ、Excelのバグ?の様で、対策版を待てとのことです。

This is now resolved. There is a patch in version 16.9 that fixes it. I don’t yet have this version myself, as not on the Beta channel, but another user has confirmed it now works. The solution is, to wait!

1Like

Comments

  1. ありがとうございます!!!!
    教えて頂き本当に助かりました。
    対策版を待ちます:runner_tone5:

  2. SaveAsを使わない方法でcsvファイルを出力することはできます。
    例えば、

VBA を動かしているアカウントのアクセス権の問題ではないのですか?

問題の CSV ファイルのプロパティを開いて、そのセキュリティタブを見て、それに VBA を動かすユーザーが含まれていて、必要なアクセス権を与えられているか調べてください。

ACL.jpg

0Like

Comments

  1. ありがとうございます!確認したところ、読み書きが可能でした。スクリーンショット 2024-04-12 13.34.08.png

  2. @koshi_waru さんの回答のコメントによると Mac の話だそうですね。上は Windows OS の話です。Mac は自分は全く知りませんので、他の方の回答をお待ちください。

    質問する際は、最初の質問に自分の環境(OS, Office のバージョン・エディションなど)を書くようお願いします。

  3. 失礼致しました。
    ご丁寧に教えて頂きありがとうございます!

Comments

  1. csvFilePath = AnalyzerDataFolder & "testデータ_" & sheetName & ".csv"
    こちらでパスを指定しており、以下のようはファイルパスになります!
    /Users/○○/Desktop/test/結果/testデータ_20240404.csv
    PCはmacです。

  2. macOSの方は詳しくないのですが、
    AnalyzerDataFolderという変数の中身が

    AnalyzerDataFolder = "/Users/○○/Desktop/test/結果"
    

    みたいに記述していて
    末尾の/をつけ忘れているとかは無いでしょうか?

  3. 環境説明不足で申し訳ございませんでした。
    AnalyzerDataFolderは"/Users/○○/Desktop/test/結果/"となっており、不足はございませんでした!

  4. MAC版Excelでの不具合だったんですね!
    解決ではないですが、答えにたどり着いて良かったです

Your answer might help someone💌