Copy excel file from a specific folder to the open excel worksheet.

[timacrafts]

I'm trying to run the Marco listed below but it's not opening the specific folder for me to select the excel sheet I want it to copy...I have to Brower to it. How can I indicate that I want it to go to the following folder. C:\Users\olayo_000\Desktop\Supplements\Daily List

Sub Get_Data_From_File
Dim FileToOpen As Variant
Dim OpenBook As Workbook
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:B595").Copy
ThisWorkbook.Worksheets("NON GV FIs").Range("h6").PasteSpecial xlPasteValues
Application.CutCopyMode = False
OpenBook.Close False
End If
End Sub

[Greg M]

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

The highlighted values may be altered to suit your requirements.

The routine works not by copying and pasting, but by assigning the values in the source range to an array, and then assigning the values in that array to the target range.


Hope this helps - please let me know how you get on.

Regards,

Greg M

[timacrafts]

This worked....Thanks!

[Greg M]

Hi again,

Many thanks for your feedback.

You're welcome - glad I was able to help.

Regards,

Greg M