[[20071220123550]] 『スペース区切りでの保存(txtファイル)』(ハウ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『スペース区切りでの保存(txtファイル)』(ハウ)

いつもお世話になります。
下記のような保存ソースがありますが、これで保存するとカンマ区切りになってしまいます。これをスペース区切りに変更したいのですが、どのように書き換えればいいのか教えていただけないでしょうか。

よろしくお願いします。




If ii < 10 Then

    ActiveWorkbook.SaveAs Filename:= _
        file_path & "000" & ii & ".txt", FileFormat _
       :=xlCSV, CreateBackup:=False
ElseIf ii < 100 Then
ActiveWorkbook.SaveAs Filename:= _
        file_path & "00" & ii & ".txt", FileFormat _
       :=xlCSV, CreateBackup:=False

ElseIf ii < 1000 Then
ActiveWorkbook.SaveAs Filename:= _

        file_path & "0" & ii & ".txt", FileFormat _
       :=xlCSV, CreateBackup:=False
。
。
。
。


 参考までにマクロの記録では、このようになりました。    (マクロの記録)
     ActiveWorkbook.SaveAs FileName:= _
     "C:\Documents and Settings\Administrator\My Documents\Book2.txt", FileFormat _
     :=xlText, CreateBackup:=False

(マクロ記録様)

そのようにしたところ、できました!
どうもありがとうございます。
しかし、中にはスペースで分けられていないものが数十枚単位の間隔で含まれるのですが、こちらは何か対処法はありますか?(ハウ)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.