excel vba csvデータ取り込み時のエラーについて

Question

excel2016です。

職場でだれにもきけず、持ち帰ってきたためコードが不十分でしたら大変申し訳ないです。
エラー分が出ず、次のコードが黄色くなるだけで処理が止まってしまいます。

Dim I as integer
Dim hoge_name as vari =
"""TEXT;" & hoge_name & sheet_name(I) & "_allbk.csv""", _
Destination:= Range($C$4)

excel vbaはやったことがなくマクロの記録をして編集して書いているようなレベルです。

なにかお気づきのことがあれば教えてください。

Answer 1

Dim hoge_name as vari = 

この部分ですが

Dim hoge_name as Variant = 

となっていたのではないでしょうか。
あと、コピー&ペーストのミスでなければ、

Dim hoge_name as Variant = _ ←ここ
"""TEXT;" & hoge_name & sheet_name(I) & "_allbk.csv""", _ 
Destination:= Range($C$4)

と'='の後に'_'がないと、次の行に続いていると解釈してくれないはずです。

Comments

[yoshipu]

分かりやすくありがとうございます。

Answer 2

シンタックスエラー（文法間違い）ですね。
もし下記のように修正してもエラーが出てしまう場合、前後のコードを見ないと何とも言えません。

'この行は問題ないと思います
Dim I As Integer

'恐らくVariantです
Dim hoge_name As Variant

',ではなく半角スペースに修正
"""TEXT;" & hoge_name & sheet_name(I) & "_allbk.csv""" _ 

'この行は問題ないと思います
Destination:= Range($C$4)

Comments

[yoshipu]

ありがとうございます。
最初にご回答いただいたので、ベストアンサーにさせていただきました。