エクセルのマクロ

あるエクセルのブック内のシートを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 回答日時： 2001/07/13 10:31

どもども田吾作７です。

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

でわでわ

この回答への補足

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

補足日時：2001/07/13 16:01

No.2 回答者： TAGOSAKU7 回答日時： 2001/07/13 17:17

どもども田吾作７です。

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

でわでわ