Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10833 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19652】テキスト保存時のダブルコーテーションの扱い ろん 04/11/12(金) 20:49 質問[未読]
【19658】Re:テキスト保存時のダブルコーテーション... ちゃっぴ 04/11/13(土) 0:41 回答[未読]
【19664】Re:テキスト保存時のダブルコーテーション... ろん 04/11/13(土) 3:27 お礼[未読]
【19652】テキスト保存時のダブルコーテーションの...
質問  ろん E-MAIL  - 04/11/12(金) 20:49 -
引用なし
パスワード
   初めまして、ろんと言います。

現在、エクセルのワークシートに文字列をせってい、それをタブ区切り
のテキストファイルで吐き出すプログラムを組んでいます。

そのときに、文字列に"をくっつけて、テキストファイルに保存したいのです。

Worksheets("hoehoe").Cells(1,1) = chr(34) + "ほえほえ" + chr(34)

とすると、hoehoeワークシートに"ほえほえ"と言う文字列を設定できます。
が、それをテキストで保存すると、

"""ほえほえ"""

と、余計な"が増えてしまいます。当方としては、"ほえほえ"の状態で保存したいの
ですが、どうすれば良いでしょうか。
【19658】Re:テキスト保存時のダブルコーテーショ...
回答  ちゃっぴ  - 04/11/13(土) 0:41 -
引用なし
パスワード
   ▼ろん さん：
>初めまして、ろんと言います。
>
>現在、エクセルのワークシートに文字列をせってい、それをタブ区切り
>のテキストファイルで吐き出すプログラムを組んでいます。
>
>そのときに、文字列に"をくっつけて、テキストファイルに保存したいのです。
>
>Worksheets("hoehoe").Cells(1,1) = chr(34) + "ほえほえ" + chr(34)
>
>とすると、hoehoeワークシートに"ほえほえ"と言う文字列を設定できます。
>が、それをテキストで保存すると、
>
>"""ほえほえ"""
>
>と、余計な"が増えてしまいます。当方としては、"ほえほえ"の状態で保存したいの
>ですが、どうすれば良いでしょうか。

Open ステートメントか、FileSystemObjectのTextStreamオブジェクトを
使用して、TextFileに出力するようにすればいいです。

当然、Tabは自分で入れるようProgramする必要があります。
【19664】Re:テキスト保存時のダブルコーテーショ...
お礼  ろん E-MAIL  - 04/11/13(土) 3:27 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>Open ステートメントか、FileSystemObjectのTextStreamオブジェクトを
>使用して、TextFileに出力するようにすればいいです。
>
>当然、Tabは自分で入れるようProgramする必要があります。

ありがとうございます。以下のコードで意図していた動きを実現できました。

　　Dim File1 As String
　　
　　CommonDialog1.ShowSave
　　
　　File1 = CommonDialog1.FileName
　　
　　　　　　　　
　　Open File1 For Output As #1
　　　　Print #1, "0"; Chr(9); Chr(34); "ほえほえ"; Chr(34)
　　Close #1

エクセルでも、CommonDialogとかOpen文とか使えるんですね・・・。(^^;;;
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10833 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free