Harshil Mehta
Board Regular
- Joined
- May 14, 2020
- Messages
- 85
- Office Version
- 2013
- Platform
- Windows
Sub Get_Data_From_Files()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim lr As Long
lr = Cells(Rows.Count, "B").End(xlUp).Rows
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & import range", Filefilter:="Excel Files(*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(3).RANGE("B2:AK" & lr).Copy
ThisWorkbook.Worksheets("Input Data").RANGE("C3").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = True
End Sub
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim lr As Long
lr = Cells(Rows.Count, "B").End(xlUp).Rows
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & import range", Filefilter:="Excel Files(*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(3).RANGE("B2:AK" & lr).Copy
ThisWorkbook.Worksheets("Input Data").RANGE("C3").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = True
End Sub