hatena
hatena
2022/07/14 (木) 12:56:57
まずは、動作確認中(デバッグ中)は、エクセルを表示させて実行しましょう。
' xl_app.Visible = False '可視設定
xl_app.Visible = True
エラーが出て中断すると、非表示のエクセルの残ってしまいますので。非表示のエクセルはPCをシャットダウンしないかぎり、閉じるのが難しいので。
エラーが出る前の行に下記のようなデバッグ用のコードを挿入して実行してみてください。
Debug.Print rs!A.Value
Debug.Print line_no
Debug.Print .cells(line_no, 1).Address
.cells(line_no, 1) = rs!A 'ここでエラー
これでエラーが出て中断したときのイミディエイトウィンドウに出力されたものをコピーしてもらえますか。
それで原因がわかるかもしれません。
通報 ...