ExcelVBAでテキスト保存
ExcelVBAを使って、ワークシートをテキストファイルに保存しようとしています。
CSV形式で保存するときは、
Sheets("test").Activate
ActiveSheet.SaveAs Filename:=ActiveSheet.Name & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
でtest.csvに保存できますが、
単純にテキストファイルとして保存したいときに
Sheets("test").Activate
ActiveSheet.SaveAs Filename:=ActiveSheet.Name & ".txt", _
FileFormat:=xlText, CreateBackup:=False
としても、実行時に下記のエラーになってしまいます。
実行時エラー '1004'
アプリケーション定義またはオブジェクト定義のエラーです。
どうしたらよいのでしょうか?
また、CSVで保存した時も開いているファイルがtest.csvに変わってしまいますが、できれば、開いているファイルは元のファイルのままでシートだけを保存するにはSaveAsメソッドではなく、他のメソッドを使うのでしょうか?
(hogehoge.xlsのtestシートを保存してもhogehoge.xlsが開いたままにしたい)
以上、宜しくお願いします。
お礼
テキストの拡張子をtxtにしたら読み込めました。 ありがとうございます。