Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8532 / 13646 ツリー ←次へ | 前へ→

【32734】CSVへの文字の出力で困っています EWF 05/12/21(水) 14:14 質問[未読]
【32748】Re:CSVへの文字の出力で困っています Jaka 05/12/21(水) 16:23 発言[未読]
【32754】Re:CSVへの文字の出力で困っています EWF 05/12/21(水) 16:45 お礼[未読]
【32753】Re:CSVへの文字の出力で困っています Kein 05/12/21(水) 16:45 発言[未読]
【32759】Re:CSVへの文字の出力で困っています EWF 05/12/21(水) 16:59 お礼[未読]
【32762】Re:CSVへの文字の出力で困っています EWF 05/12/21(水) 17:54 お礼[未読]

【32734】CSVへの文字の出力で困っています
質問  EWF  - 05/12/21(水) 14:14 -

引用なし
パスワード
   どなたか、ご存知の方がいらっしゃいましたらお教え下さい。

シートの内容をファイル形式「CSV」にして出力していますが、
文字情報の前後に「"」を付けて出力したいと思っています。
何も考えずに出力すると、
「あいうえお,かきくけこ,さしすせそ」
といった形で出力され、
出力前のデータに「"」を付与して出力すると
「"""あいうえお""","""かきくけこ""","""さしすせそ"""」
となってしまいます。
実際に出力したいのは、以下のような内容です。
「"あいうえお","かきくけこ","さしすせそ"」

どなたか対応方法をご存知でしたら、
ご教授のほど、よろしくお願い致します。

【32748】Re:CSVへの文字の出力で困っています
発言  Jaka  - 05/12/21(水) 16:23 -

引用なし
パスワード
   ▼EWF さん:
>出力前のデータに「"」を付与して出力すると
>「"""あいうえお""","""かきくけこ""","""さしすせそ"""」
>となってしまいます。
>実際に出力したいのは、以下のような内容です。
>「"あいうえお","かきくけこ","さしすせそ"」
好みの形式で出力するには、マクロで1セルずつ値を取得後、
""で囲んでから、CSVに吐き出す事なります。

手作業なら
>「"""あいうえお""","""かきくけこ""","""さしすせそ"""」
>となってしまいます。
このファイルをワードで開いて、
置換え文字「"""」、置換え後の文字「"」で、置き換えればすみます。

【32753】Re:CSVへの文字の出力で困っています
発言  Kein  - 05/12/21(水) 16:45 -

引用なし
パスワード
   >シートの内容をファイル形式「CSV」にして出力
は、どのようなやり方をしてますか ? Openステートメントで Write# を使って
CSV作成すれば、自動的に文字列に "" が付きますが。

【32754】Re:CSVへの文字の出力で困っています
お礼  EWF  - 05/12/21(水) 16:45 -

引用なし
パスワード
   >このファイルをワードで開いて、
>置換え文字「"""」、置換え後の文字「"」で、置き換えればすみます。

やはりExcelだけでは無理なようですね。
Jakaさん、お忙しいところありがとうございました。

【32759】Re:CSVへの文字の出力で困っています
お礼  EWF  - 05/12/21(水) 16:59 -

引用なし
パスワード
   >>シートの内容をファイル形式「CSV」にして出力
>は、どのようなやり方をしてますか ? Openステートメントで Write# を使って
>CSV作成すれば、自動的に文字列に "" が付きますが。

ActiveWorkbook.SaveAs Filename:=sToFileName & "xxx.csv", _
FileFormat:=xlCSV, CreateBackup:=False

とこんな感じでやっていたのですが、教えて頂いたWrite#のHELPを確認したところ、
ご指摘の通り文字列には自動で""が付与されると記述されていました。
HELPを見ながら試してみて、分らない場合は再度ご質問させて頂きたいと思います。
Keinさん、ありがとうございました。

【32762】Re:CSVへの文字の出力で困っています
お礼  EWF  - 05/12/21(水) 17:54 -

引用なし
パスワード
   無事解決致しました。
Jakaさん、Keinさん、ありがとうございました。

8532 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free