前提・実現したいこと
Excelに \ が含まれているセルがあります。
DBに文字列として登録したく、VBAで''とエスケープした状態に変換しようとしております。
発生している問題・エラーメッセージ
セルの値に含まれている \ が、IF文の評価で \ と等価となりません。
該当のソースコード
以下の状態を前提としたコードです。
シート:hoge
セル:A1
値:\
VBA
1a = ThisWorkbook.Sheets("hoge").Range("A1") 2Debug.print "a = " & a 3 4If a = "\" Then 5 Debug.Print True 6Else 7 Debug.Print False 8End If 9 10結果: 11a = \ 12False
試したこと
①部分一致:
VBA
1If a Like "**" Then 2 Debug.Print True 3Else 4 Debug.Print False 5End If 6 7結果→False
②何らかの文字が含まれているとして、*のみで評価
VBA
1If a Like "*" Then 2 Debug.Print True 3Else 4 Debug.Print False 5End If 6 7結果→True
補足情報(FW/ツールのバージョンなど)
VBA:7.1
office2016
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/07/25 01:08
2018/07/25 01:20
2018/07/25 01:34