VBA: Ошибка метода диапазона

Question

Я писал код, чтобы выбрать все записи данных рабочей книги, которые я открываю в диапазоне, но компилятор дает ошибку на последней строке (настройте диапазон rng)

Dim wb As Workbook 
Set wb = Workbooks.Open(Range("C2") & Range("C3")) 
'here Range("C2") & Range("C3") contains the location of the file's path 
Dim ws As Worksheet 
Set ws = wb.ActiveSheet 
Dim frow As Long 
frow = ws.Range("A" & Rows.count).End(xlUp).Row 
Dim rng As Range 
Dim frow1 As Long 
frow1 = ws.Cells(1, Columns.count).End(xlToLeft).Column 
Set rng = wb.ActiveSheet.Range(Cells(1, 1), Cells(frow, frow1)) 

Answer 1

Try:

Dim frow As Long 
frow = ws.Range("A" & ws.Rows.count).End(xlUp).Row 
Dim rng As Range 
Dim fcol As Long 
fcol = ws.Cells(1, ws.Columns.count).End(xlToLeft).Column 
Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(frow, fcol)) 

Помните, что если вы используете множество листа и есть ссылаться на него во всем диапазоне объектов