Excel VBA で「型が一致しませんエラー
Excel VBA で「型が一致しません」というエラーが発生します。
--------------------------------------------------------------------------------
Dim katacode as String
katacode = "(1001,1002,1005,1010,1015,1020,1030,1035,1036,1040,…(省略)…,1150)"
With ActiveSheet.QueryTables.Add(Connection:= _
pubfncgetConnectString,Destination:=Range("A1"))
.CommandText = Array(_
"SELECT ~
FROM ~
WHERE コード IN katacode
--------------------------------------------------------------------------------
「katacode」の値が、文字列の長さが155までは上手く動くのですが
それ以上に追加すると「型が一致しません」というエラーが発生します。
原因がわかりましたら教えていただけないでしょうか。よろしくお願い致します。
お礼
ありがとうございます。 2列目の変更なのになぜ1列目の処理が反応するのかと思っていましたが、2列目の処理でも Target.Column = 1 と Target.Cells(1, 1).Value = "" を処理しているということなのですね。