Как выбрать весь рабочий лист с кодом VBA

Question

Я новичок в коде VBA и пытаюсь выяснить, как выбрать весь файл Excel при переносе данных в мой шаблон.Я ежедневно открываю файл, и имя меняется, а количество строк и столбцов меняется.Как изменить код, чтобы выбрать весь лист при автоматическом импорте.Код, который я использую, выбирает только первую строку на листе, а не весь лист.

Вот код, который у меня есть:

Sub ImportFile()       
    Application.ScreenUpdating = False    

    Dim parentWorkbook As Excel.Workbook        
    Dim otherWorkbook As Excel.Workbook        
    Dim workbookName As Variant

    Set parentWorkbook = ActiveWorkbook

    workbookName = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")

    If Not workbookName = False Then     
        Set otherWorkbook = Workbooks.Open(workbookName)        
        parentWorkbook.Sheets(2).Range("A2:AR2").Value = otherWorkbook.Sheets(1).Range("A2:AR2").Value     
        otherWorkbook.Close False 
        Set otherWorkbook = Nothing 
    End If

    Application.ScreenUpdating = True  
End Sub

Answer 1

Можете ли вы сказать

parentWorkbook.Sheets(2).Range("A1").Resize(otherWorkbook.Sheets(1).UsedRange.Rows.Count, otherWorkbook.Sheets(1).UsedRange.Columns.Count).Value = otherWorkbook.Sheets(1).UsedRange.Value

Answer 2

попробуйте активировать рабочий лист, прежде чем делать фактический выбор.так что-то вроде:

Sub SelectSingleSheet()
       Sheets("Sheet1").activate
       Sheets("Sheet1").Select //where 'Sheet1' is name of sheet

End Sub