VBAで「,」⇒「.」へ置換後、タグ区切りでテキスト保存したい。
VBAで「,」⇒「.」へ置換後、タグ区切りでテキスト保存したい。
お世話になっております。
VBAで下記を行いたいと考えております。
全体の流れとしては、テキストを読み込み⇒エクセル上で編集⇒テキスト保存です。
そのエクセル上で編集⇒テキスト保存で悩んでおります。
編集した複数のシートを、個別にタブ区切りのテキストファイルに保存したいと考えております。
出力する際に、小数点の「,」⇒「.」に変換します。
※小数点を「,」として利用しています（海外対応）
編集するシートは全てのセルが文字列形式になっており、列も行も読み込むテキストによって可変なので、統一されているわけではありません。
最終行はA列ではなくB列でカウントします。
全てのセルに値が入っているわけではなく、空白もあります。
また、各セルには「0.00000」や「02.24」等の数値も入っており、数値形式にしてしまうと0が消えてしまうので、全てのセルを文字列形式として編集しています。
なお、小数点以下の桁数も可変です。
つまり、小数点が「,」となっているのを「.」になおし、タブ区切りのテキストファイルとして保存したいのです。
出力する際に、いったん別ブックに保存⇒不要なシートを削除⇒タブ区切りで保存はできたのですが、自分があまりVBAに詳しくないせいか、これでは文字列形式で保存されなかったため、シートを新規ブックにコピー⇒タグ区切りで保存に変更しました。
しかし、これではcells.replace ～で置換すると、「00,000」が「0」になってしまいました。
※「22,222」等は問題ないのですが……何故かは分かりませんでした。
ファイルとしては20000万行～25000行程度です。
列としては40列前後になります。
あまりVBAには詳しくないので、まとはずれな事を言っているかもしれません。
何か良い方法はありますでしょうか？
宜しくお願いいたします。
お礼
ありがとうございました。 しかし、 CSVをノートパッドで見ると、 一部、まだダブルクォーテーションが残ってるんです。
補足
VBAを使って解決できました。 SaveAs メソッドで、FileFormatパラメータを xlTextWindowsにしたら、 できました。