• ベストアンサー
  • すぐに回答を!

VBA EXCEL ""の付いた文字列に""""を読み込んで""""をつける方法

  • 質問No.3828519
  • 閲覧数349
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 100% (1/1)

EXCELのダブルクォーテーションの付いた文字列を読み込んで""""""をCSVファイルに書き込むためにはどのように記述したらよいでしょうか? CSVファイルにデータの出力はできていますがダブルクォーテーションが一つしか入らないという状況なので分かる方がいらしたら、ご教授の程お願いします。
です。

Private Const g_cnsCOLEDIT = "77777777777777777777777777777777777777777777777777"
Private Function FP_EDIT_COLUMN(SH As Worksheet, GYO As Long, COL As Long) As String
Dim strTEXT As String
strTEXT = Trim(SH.Cells(GYO, COL).Value)
Select Case Mid(g_cnsCOLEDIT, COL, 1)
Case "7"
' 自動判定(ダブルクォーテーションの付いた文字のみ「""」囲い)
If strTEXT = "" Then
FP_EDIT_COLUMN = strTEXT
ElseIf strTEXT = g_cnsDQ Then ' ダブルクォーテーション
FP_EDIT_COLUMN = g_cnsDDQ & strTEXT & g_cnsDDQ
Else
FP_EDIT_COLUMN = strTEXT ' その他(文字列)
End Select
' カラムを加算
COL = COL + 1
End Function

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 20% (31/149)

http://www2.moug.net/bbs/exvba/thread000001.htm

ここで質問するとGOODですよ。
私はいつもこのサイトでお世話になってます。
お礼コメント
J1-Vegalta

お礼率 100% (1/1)

有難うございます。このサイトで伺いたいと思います。
投稿日時:2008/03/03 13:10
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ