• ベストアンサー

Q>Excelファイルをテキスト形式で任意の拡張子で保存したい

Excelのファイルを○○.txtにしないで任意の拡張子にしてtxt形式で保存したいと思っています。 (1)あとで名前を変えれば済む話なのですが、VBAで自動化を考えているのでSaveAsでできないでしょうか? (2)もしだめなら、その後moveコマンドのバッチファイルを作って起動して名前を変えようかと思いますが、ExcelVBAからバッチファイルを呼び出す方法がわかりません。 (1)(2)のどちらかが解りましたら教えてください。 ちなみにExcel2000を使っています。 よろしくお願いします。m(_ _)m

質問者が選んだベストアンサー

  • ベストアンサー
  • neKo_deux
  • ベストアンサー率44% (5541/12319)
回答No.1

名前を付けて保存の際に、 "test.abc"(テキスト、タブ区切り) のようにダブルクォートで囲って保存するとOKです。 -- > VBAで自動化を考えているので 上の操作を記録すると、 ActiveWorkbook.SaveAs Filename:= "C:\~\test.abc", FileFormat:=xlText, CreateBackup:=False のように記録されました。 この書き方ならば、まさか勝手に.txtなんて付けないハズですが。

abekkan
質問者

お礼

うまくいきました。意外と簡単にできるんですね。ありがとうございました。

その他の回答 (1)

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.2

こんにちは。maruru01です。 SaveAsメソッドの引数FileFormatに、「xlCurrentPlatformText」(=-4158)を指定して下さい。 No.1の方の回答にある、「xlText」は定数の意味としては正しくありません。 (でも、値は同じ「-4158」なので問題ないですが。) マクロの記録はこういうおかしなコードをよく記述します。 ちなみに、この方法で保存すれば、名前が「AAA.xls」のようにExcelの拡張子でもテキストエディタで開けます。 (通常のxlsファイルは正しく表示されません。)

関連するQ&A

  • VB6でEXCELの表をHTML形式で保存する方法は?

    VB6でEXCELのデータを作成してHTML形式で保存したいのですが、根本的にできないものでしょうか? EXCELのVBAではWebページで保存ということができるので試行錯誤してみたのですが VB6のヘルプでSaveAsメソッドを見る感じでは新しいファイル名までは指定できますが保存形式はEXCEL VBAのように指定できないようです。 XLSファイルの表までは完成できますが、そのXLSファイルをHTMLファイルにできればぃぃんです。 VB6からEXCELを制御してHTML形式で保存させるとか なにかいい方法はないでしょうか?

  • Excel2010のファイル保存形式について

    誤字がったので質問しなおします。 会社でExcel2010を使用しています。 OSはWinodws7です。 今まで「名前をつけて保存」しようとすると、 「ファイルの種類」というところに、プルダウンでいくつも選択肢がありました。 自分は自宅のofficeが2003なので「Excel 97-2003ブック(*xls)」(だったと思います。)で保存していたのですが、 急に「ファイルの種類」が「Excelファイル(*xls)(*xls)」「テキストファイル(*txt)」「CSVファイル(*.csv;*.*)」の3種類しか出なくなってしまいました。 ただこのまま「.xls」で保存すると今度開くときに 「開こうとしているファイルは、実際にはその拡張子が示すファイル形式ではありません。このファイルを開く前に、ファイルが破損していないこと、信頼できる発行元からのファイルであることを確認してください。ファイルを今すぐ開きますか?」と表示されます。 これはなぜでしょうか? 拡張子を手動で「.xlsx」に変更すると開くことができます。 ただ「.xlsx」だと自宅の2003では開かないし、「.xls」のままでも2003では開きません。 思うに、拡張子は「.xls」になっていても「.xlsx」形式で保存されているような気がするのですが。。。 どなたか現状を修復し、従来通り正しい2003形式で保存する方法を教えていただけないでしょうか。

  • VBA 新規ファイルを元ファイルと同じ場所に保存する方法

    こんにちは。VBA初心者です。 エクセルファイルのシートを、いろいろ行を増やしたり計算を自動にするようにして、 最後にテキスト形式にするためのマクロをつくっております。 元のエクセルファイルの対象のシートをコピーして、新しいファイルを作成しペースト→保存→ファイルを閉じるところまでなんとかできました。 現在、下記のコードで新しいファイルは「マイドキュメント」に保存されていますが、元のエクセルファイルと同じ場所に保存したいのですが、どのようにコードを書けばよろしいでしょうか。 教えていただけますと幸いです。宜しくお願い申し上げます。 Sheets("TXT").Copy Sheets("TXT").SaveAs FileFormat:=xlCurrentPlatformText, Filename:="今月.txt" With Workbooks("今月.txt") .Saved = True .Close

  • ExcelファイルをCSV 形式で保存するには?

    ExcelファイルをCSV 形式 (Windows、カンマ区切り) (*.csv)にして書類を提出するように言われたのですが、その方法について教えてください。 データの内容は会社の詳細で、1社につき100項目のデータがあり、それが50社あります。その場合、1社目のデータをA列に、2社目のデータをB列にというように入力すればよいのでしょうか? Excel の [名前を付けて保存] ([ファイル] メニュー) を使って、CSV (カンマ区切り) (*.csv)ファイルで保存すると、各項目がカンマで区切られるのでしょうか? 1レコード目と2レコード目はどういった区切りになるのでしょうか? またファイル形式はCSV 形式でと言うことですが、提出するファイル名の拡張子を.txtとしないといけないのですが、それはどうすればいいのでしょうか?

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

      エクセルのシートからテキストファイルに VBAで出力しようとしたのですが、 出力したテキストファイルは文字化けしてしまいます。 Dim ws As Worksheet For Each ws In Worksheets ws.SaveAs ws.Name + ".txt" Next ws としたのですがどこがいけないのでしょうか? アクティブにしているエクセルのファイルのシートは、 1つだけとしています。 *Excel2002を使用しています。 お願い致します。

  • ExcelやWordのファイル:拡張子がなくても開くのはなぜでしょうか

    拡張子がなくても、Excelのファイルはダブルクリックで開きます。 それはなぜですか。 詳しく述べます。 エクスプローラ(またはデスクトップ)上に、テキストファイル(拡張子txt)があります。 このファイルの拡張子を外します。(~~.txt → ~~) このとき、 「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか?」 と訊いてくるので、「はい」をクリックすると、ファイルのアイコンはウィンドウズのマーク(旗みたいなもの)になります。 これは、拡張子がなくなったために、アイコンとの関連付けがなくなったからだと思います。 このファイルをダブルクリックすると、「ファイルを開くアプリケーションの選択」というウィンドウが立ち上がります。 拡張子がないから、どのアプリケーションを使うのかわからないのですね。 他方、 エクスプローラ(またはデスクトップ)で、エクセルのファイルの名前の拡張子を外します。 (~~.xls → ~~) このファイルをダブルクリックすると、エクセルが立ち上がって、ファイルが開かれます。 なぜ、エクセルの場合は、拡張子がなくても開けるのでしょうか。 ワードで作ったdocファイルでも、エクセルと同樣です。 拡張子がなくてもダブルクリックで開ける設定があるのでしょうか。 たとえ、エクセルやワードのファイルでも、txtという拡張子を付けると、テキストエディタで開く(私のPCの場合はViViというテキストエディタが設定されていますが、普通はメモ帳ですよね。)ので、拡張子がまったく無視されているわけでもないです。 (もちろん、中身は文字化けしていますけど。) Windows98SE Excel2000 Word2000

  • 同じ名前で拡張子が違うファイル

    ExcelのVBAで、同じ名前で拡張子が違うファイルを操作するマクロを使用しています。(○○.txtと○○.xlsなど) フォルダオプションで「拡張子を表示しない」設定になっていた場合におこりうる不具合を教えてください。 私は以下のような不具合に遭遇しました。 ○○.txtを読み込み○○.xlsにコピペするマクロ  ・まず○○.xlsを開く。  ・次に○○.txtを開き中身をコピー。  ・貼り付け先の○○.xlsをアクティブにしようとするが、   ○○.txtがアクティブになったまま。 そもそも同じ名前なのがいけないとは思いますが、ファイル名はそのままでエラーを回避できる方法があれば、それも知りたいです。 よろしくお願いします。

  • 拡張子をExcel形式にすると数値の一番左がゼロのものが消える

    いつもお世話になっております TEXT形式で作ったタブ区切りの改行付きのファイルを Excel形式の拡張子に変更して開くと「00001」が「1」に なってしまいます。これをExcelの書式設定とか Excel側の操作をしないで何とかするにはどうしたら いいでしょうか?力を貸して下さい。

  • ExcelでXMLファイル形式で保存するには

    Excelで作ったデータがあり、XMLファイル形式で保存したいと思います。 ファイルの種類には「XMLスプレッドシート」と「XMLデータ」がありますが、どう違うのでしょうか? よくExcel問題集にある「XMLファイル形式」で名前をつけて保存してください・・・とあった場合は、どちらで保存をすれば正解ですか?

  • エクセル テキスト形式の名称変更保存

    みなさまお世話になります 早速ですが、標記の件です csv形式になっているテキストファイル(拡張が異なりますset)をエクセルで カンマ区切りにて開いた後 保存しようとした場合 上書き保存であれば、拡張も元々の拡張子で保存されるのですが マクロを使用してファイル保存をしようとすると ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, FileFormat:=xlCSV, CreateBackup:=False 拡張子がCSVになってしまいます。 それを元々の拡張にて保存を行いたいのです。 またファイル名が長いので 変更をかけた後  シート名の一部を変更して保存したいためにActiveSheet.Nameを 使用しています どうぞよろしくお願いします。

専門家に質問してみよう