• 締切済み

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

エクセル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のままである 解決策ご教示頂けないでしょうか。

みんなの回答

  • kkkkkm
  • ベストアンサー率66% (1719/2589)
回答No.2

Cells(Line, 1), Cells(Line,234) がCSV_SHEET_NAMEがActiveでない場合エラーになると思います。

  • kkkkkm
  • ベストアンサー率66% (1719/2589)
回答No.1

VAL()がいまいち何か分かりませんが > 2003では参照CSVウインドウがActivateのままである 該当コードの前に参照CSVウインドウをActivateにしてみるとか、あとエラー時にLine, Nの値を見てみるとかはどうでしょうか。 "TextBox" & Format$(N)は"TextBox" & Nでもいけると思います。