エクセルVBA 参照ファイルに書き込み出来ない

Question

エクセル2016の振る舞いがエクセル2003と異なる
何とかしたいが、エクセル2003では何の問題も無い。
Workbooks(Csvbook).Worksheets(CSV_SHEET_NAME).Range(Cells(Line, 1), Cells(Line, 234)) = VAL()
または
Worksheets(CSV_SHEET_NAME).Cells(Line, N).Value = UserForm1.Controls("TextBox" & Format$(N)).Text
実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラーです。
で処理事止まるが継続で正常動作する。
プログラム変更後ビルド前では思ったように動作する。
別のエラー発報後はサクサク動作する。
2003と2016の見た目は
2003では参照CSVウインドウがActivateのままである
解決策ご教示頂けないでしょうか。

Answer 1

ありがとうございます

2003で10年以上動いていたのですが

With式に変更してこの部分は動作しましたが別の問題が・・・

Answer 2

> 実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラーです。> 2003と2016の見た目は> 2003では参照CSVウインドウがActivateのままである> Workbooks(Csvbook).Worksheets(CSV_SHEET_NAME).Range(Cells(Line, 1), Cells(Line, 234))

Worksheet オブジェクトの Range プロパティに対して
別の Worksheet オブジェクト（この場合はアクティブシート）に
含まれる Range オブジェクトを渡しているため。
（バージョンの違いは直接関係していない）

---

With Workbooks(Csvbook).Worksheets(CSV_SHEET_NAME)
    .Range(.Cells(Line, 1), .Cells(Line, 234)).Value = VAL
End With

---

あと VAL という変数名はあまり推奨できません（ Val 関数と競合するので）。

> Worksheets(CSV_SHEET_NAME).Cells(Line, N).Value

同様に、アクティブブックに存在しない Worksheet オブジェクトを
参照しようとしているからでは。
（その際に発生する実行時エラーは 1004 ではなく 9 のはず）

Answer 3

VBA専用のフォーラムがございますため、下記へご投稿してみてください。

https://social.msdn.microsoft.com/Forums/ja-JP/...

どうぞ宜しくお願い致します。