VBA エクセル2003だと出るエラー

質問

VBAはじめたばかりですが、宜しくお願いいたします。
エクセル2000ではエラーがでませんが、2003の場合次のようなエラーがでます。

実行時エラー1004
アプリケーション定義またはオブジェクト定義エラーです

「デバック」を押して、コードをみますと、次の行に黄色いマーカーがつきます。
Sheets("TXT").SaveAs FileFormat:=xlCurrentPlatformText, Filename:=ThisWorkbook.Path & "\今月.txt"

マウスオーバーすると、次の２つが表示されます。
xlCurrentPlatformText=　-4158
ThisWorkbook.Path ="C:\Document&【現在このファイルがあるパス】"

解決方法はありますでしょうか。

ご存知の方、いらっしゃいましたら、なにとぞ宜しくお願いいたします。

このマクロの実行目的は、あるエクセルファイルを加工して、最終的にテキストファイルを生成することです。
テキストファイルをつくったあと、保存するタイミングでエラーがおきるようです。

回答No.1

FEX2053 · ベストアンサー

SAVEASの必須引数、2000と2003で違ってなかったですか？
VBAはバージョンによって結構引数が違ってますよ。

お礼

早速ありがとうございます。
バージョンが違うと引数も違うとは存じませんでした。
それをヒントに調べましたところ、無事思いとおりになりました。

本当にありがとうございました。

回答No.4

Wendy02

こんにちは。

両方のバージョンで確認しました。ただ、Excel 2000 でも、正しくコードが書ければ、そのような問題は発生しません。しかし、一度は、教わらないと分かりません。私も、書き方の方法は、入門時に教わりました。ただ、今回のように、オブジェクトそのものの違いは、私自身、知りませんでした。マクロの書き方自身は、Excel2000も、上位バージョンも変わりません。

Help を見ると、Worksheets.Add でコピーするように書かれていますが、今回は、特例で、以下のSheet のCopyをしたら良いです。

今回は、終了方法が書かれていません。この後、ご自身で分からなければ、補足かお礼の中で、お尋ねになってください。

Sub TestSave()
　Sheets("TXT").Copy
　ActiveWorkbook.SaveAs _
　　　 FileFormat:=xlCurrentPlatformText, _
　　　 Filename:=ThisWorkbook.Path & "\今月.txt"
End Sub

お礼

具体的にコードをつけていただき、ありがとうございます。

無事解決することができました。
基本をしっかり身に着けずにつくってしまったため、
反省です。

ありがとうございました。

回答No.3

jam-best

直接的な解決にはならないと思いますが、
Sheets("TXT").SaveAs ～ Filename:=ThisWorkbook.Path & "\今月.txt"
↑保存するものはSheetではなくWorkBookなりじゃないでしょうか？

お礼

ありがとうございます。

2000ではなぜかSheetでも流れから無事に保存できていたのですが、
これはWorkBookにするべきだとわかりました。

ありがとうございます。

回答No.2

myRange

引数FileFormatの値をxlTextにしてみてください。

FileFormat:=xlText

外しましたらご容赦願います。

お礼

ありがとうございます。

具体的に値を教えていただき、感謝いたします。