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の環境下では何かコードの追記が必要なのでしょうか。
ネット検索などで調べましたがそれらしいヒントが見つかりません。

対処法などご存じでしたら、教えていただけるととても助かります。
よろしくお願いいたします。

回答No.1

m-take0220 · ベストアンサー

＞ ActiveWorkbook.SaveAs Filename:="C:\Hinban Data.csv", FileFormat:=xlCSV, Local:=True

Windows7だと、Cドライブの直下には一般ユーザーでは書き込みができないのでは?
たとえ管理者権限をもつユーザーでも、「管理者として実行」でプログラムを実行しなければ、UACによって一般ユーザーと同等の権限しか与えられないので、その点がWindowsXPと違ってる部分だと思います。

お礼

ご指摘のとおりでした。
出力先をC:\CSV DATA\...に設定し直したら、うまく出力できるようになりました。
Windows7の書き込み権限の仕様についてよく把握しておりませんでした。

これでまた効率よく業務を進めることができます。
ありがとうございました！