VBA 開いたブック任意の範囲を取得
解決したいこと
任意のブックを開いて任意の範囲を取得したいです。
解決方法を教えて下さい。
発生している問題・エラー
実行時エラー 1004 アプリケーション定義またはオブジェクト定義のエラーです
または、問題・エラーが起きている画像をここにドラッグアンドドロップ
該当するソースコード
Sub CopyBooksData()
Application.ScreenUpdating = False
Dim listWB As Workbook
Dim wbpath As String
wbpath = ThisWorkbook.Path & "\メイン18.xlsx"
Set listWB = Workbooks.Open(wbpath)
Dim listHeadrow, listLastrow, listHeadcolumn, listLastcolumn As Long
listHeadrow = 43
listHeadcolumn = 2
lsitLastcolumn = 11
listLastrow = listWB.Worksheets("チェックシート").Cells(Rows.Count, listHeadcolumn).End(xlUp).Row
listWB.Activate
Dim listRng As Range
Set listRng = listWB.Worksheets("チェックシート").Range(Cells(listHeadrow, listHeadcolumn), Cells(listLastrow, lsitLastcolumn))
End Sub
0 likes
