Hello All,
I am trying to use the getopen application to open a csv file, copy its selected range in the background and paste it in another worksheet.
This CSV will have dynamic range which starts at A4 but ends in B(X), where X is dynamic for different csv.
This is the code:
FileToOpen = Application.GetOpenFilename(Title:="Browse for the LTE Best Server File", FileFilter:="CSV Files(*.csv),*csv*")
If FileToOpen <> False Then
Set Openbook = Application.Workbooks.Open(FileToOpen)
Openbook.Sheets(1).Range("A4", Range("B" & Rows.Count).End(xlUp)).Copy
ThisWorkbook.Worksheets("LTE_Best Server by RSRP").Range("A2").PasteSpecial xlPasteValues
Openbook.Close False
I am getting error in line: Openbook.Sheets(1).Range("A4", Range("B" & Rows.Count).End(xlUp)).Copy
Any help appreciated.
Thanks
I am trying to use the getopen application to open a csv file, copy its selected range in the background and paste it in another worksheet.
This CSV will have dynamic range which starts at A4 but ends in B(X), where X is dynamic for different csv.
This is the code:
FileToOpen = Application.GetOpenFilename(Title:="Browse for the LTE Best Server File", FileFilter:="CSV Files(*.csv),*csv*")
If FileToOpen <> False Then
Set Openbook = Application.Workbooks.Open(FileToOpen)
Openbook.Sheets(1).Range("A4", Range("B" & Rows.Count).End(xlUp)).Copy
ThisWorkbook.Worksheets("LTE_Best Server by RSRP").Range("A2").PasteSpecial xlPasteValues
Openbook.Close False
I am getting error in line: Openbook.Sheets(1).Range("A4", Range("B" & Rows.Count).End(xlUp)).Copy
Any help appreciated.
Thanks