Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8544 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：
>出力前のデータに「"」を付与して出力すると
>「"""あいうえお""","""かきくけこ""","""さしすせそ"""」
>となってしまいます。
>実際に出力したいのは、以下のような内容です。
>「"あいうえお","かきくけこ","さしすせそ"」
好みの形式で出力するには、マクロで１セルずつ値を取得後、
""で囲んでから、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さん、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8544 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free