テキストファイルが文字化けする

質問

エクセルのシートからテキストファイルに
ＶＢＡで出力しようとしたのですが、
出力したテキストファイルは文字化けしてしまいます。
Dim ws As Worksheet
For Each ws In Worksheets
ws.SaveAs ws.Name + ".txt"
Next ws

としたのですがどこがいけないのでしょうか？
アクティブにしているエクセルのファイルのシートは、
１つだけとしています。
＊Excel2002を使用しています。
お願い致します。

回答No.2

papayuka · ベストアンサー

再びこんにちは。

> Excel2002だと出来ないので

それは失礼しました、こちらはExcel97です。^^;;
メソッドが変わったのでしょうかね。

Sub Test()
Dim ws As Worksheet, wb As Workbook
For Each ws In ThisWorkbook.Worksheets
　ws.Copy
　Set wb = ActiveWorkbook
　wb.SaveAs wb.Worksheets(1).Name + ".txt", xlText
Next ws
End Sub

これでダメなら、ゴメンナサイです。

お礼

回答ありがとうございます。
試してみたところ無事出来ました。
このコードをじっくり読んで理解したいと思います。

回答No.1

papayuka

こんにちは。

文字化けではなく、通常のExcelフォーマットになってます。拡張子を.xlsにすればExcelで普通に開けるハズです。

ブック内のシート数が1つならループする必要な無いと思いますが。。。

ws.SaveAs ws.Name + ".txt", FileFormat:=xlText

補足

ご早い回答ありがとうございます。
早速　ws.SaveAs ws.Name + ".txt", FileFormat:=xlText
と試してみたのですが
`SaveAs`メソッドは失敗しました。`Worksheet`オブジェクト
とエラーが出ます。
Excel2000では
ws.SaveAs ws.Name + ".txt", xlText
これで出来たのですが、Excel2002だと出来ないので
ご教授いただきたいです。
お願いいたします。