質問: Nothing DoCmd.SetWarnings True Exit Sub ``` VBA ``` ### 試したこと 既存のシートにて二行目から下全部を削除したら、ちゃんと2行目に張り付きました。 また、4744、4743行にはもちろん、何も入っていません。
回答: AccessのVBAは詳しくないし、動作確認もしていませんが、エラーの行で直接Cellsと書いているのが気になります。 AccessでCellsと書くと、どのオブジェクトを指すんでしょうかね? ひとまずきちんとワークシートを明示してあげたらどうでしょうか。 ``` llastrow = Cells(Rows.Count, 1).End(xlUp).Row’エラーが起きるのはここ ↓ llastrow = wb.Sheets(stSheet).Cells(wb.Sheets(stSheet).Rows.Count, 1).End(xlUp).Row’エラーが起きるのはここ ```