Excel VBAでCSV出力をすると実行時エラー
Excelで品番ごとの数量データなどを他のシステムに取り込むためにCSV形式で出力するプログラムをVBAで作りました。
CSV出力を実行すると
「実行時エラー1004： 'ファイル名.csv'は読み取り専用です。アクセスできません。」
のエラーが出てしまいます。
このプログラムを作成したのは去年であり、Windows XPとExcel2003の環境では一度も出なかったエラーなのですが、PCの更新で新しい端末がWindows7とExcel2010となってから出るようになりました。
コードは以下の通りです
==================================================================
11桁の品番の間のハイフンや後ろに記号などを削除してTempシートのA列にデータを貼り付け(コード省略)
bolTemp = Application.DisplayAlerts
Application.DisplayAlerts = False
Sheets("temp").Copy
'ＣＳＶ出力
ActiveWorkbook.SaveAs Filename:="C:\Hinban Data.csv", FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.DisplayAlerts = bolTemp
MsgBox ("CSVデータの出力が完了しました(C:\Hinban Data.csv)")
End Sub
==================================================================
エラーが起きるエクセルファイルを以前の端末(廃棄前)にコピーして実行したらCSV出力ができました。
Windows7とExcel2010の環境下では何かコードの追記が必要なのでしょうか。
ネット検索などで調べましたがそれらしいヒントが見つかりません。
対処法などご存じでしたら、教えていただけるととても助かります。
よろしくお願いいたします。
お礼
よく読んでみます。 ご回答ありがとうございます。