エクセルのマクロ

質問

あるエクセルのブック内のシートをdドライブに自動的にunicodeのタブ区切りテキストで保存するマクロを作成しています。コードは

for i = 1 to 10

Sheets(i).Select
f_name = "d:\" + Trim(Str(i)) + ".txt"
ActiveWorkbook.SaveAs Filename:=f_name,_
FileFormat:=xlUnicodeText, CreateBackup:=False

next i

こんな感じです。

しかしこれを実行するとイルカが

'aaa.txt'にアクセスできません。ファイルは読み取り専用であるか、または読み取り専用の場所にアクセスしようとしています。または、サーバー上に保存されているドキュメントから応答がありません。

と言うメッセージを出し、そこでキャンセルボタンを押すと

実行時エラー'1004'：
'SaveAs'メソッドは失敗しました。'_Workbook'オブジェクト

というメッセージが出ます。さらにデバックを押すと、プログラムコードの
ActiveWorkbook.......の行で止まります。

環境はwindows2000、excel2000です。

何か足りないコードがあるのでしょうか？
よろしくお願いします。

回答No.1

TAGOSAKU7 · ベストアンサー

どもども田吾作７です。

Ｄドライブを指定してるけど、存在してますか？
ＷＩＮ２０００のセキュリティでアクセス権がないとか？

でわでわ

補足

dドライブは存在しています。
ファイル、フォルダにアクセス権はあります。（たぶん）
ちょっと色々いじってみたのですが、マクロを実行するファイル属性の読み取り専用にチェックを打つとそのようなエラーが出てこなくなりました。
なんででしょう！？よくわかりません。

回答No.2

TAGOSAKU7

どもども田吾作７です。

[マクロでファイルオープン]で質問されてますね。そちらが解決したらこちらの問題も解決するはずです。
ファイルは上書き保存だったんですね。読み取り専用属性を持つファイルのためにこのメッセージが出てると思われます。

でわでわ