Pulling Data from another workbook with VBA

[phbryan]

I have these declarations at the beginning of my code:

Sub Transfer__Data()
Dim ws1 As Worksheet: Set ws1 = Sheets("Input Data")
Dim ws2 As Worksheet: Set ws2 = Sheets("Sample Report")
Dim dDate As Date
Dim iShift As Integer
Dim rFind As Range
Dim startaddress As String

What i would like to change what is in bold, Set ws1 = Sheets("Input Data"). This designates the worksheet "Input Data" as the source. I want to change this to a different sheet in a different workbook with know file path (example: C:\Users\Documents)

I only want to read data from this workbook, so only open it as "Read-only"

Thank you

[balajim]

Please Login or Register  to view this content.

Hope it will work for you

[balajim]

Let me know if u have issue on this

[phbryan]

I like it!
Thank you!

One thing that is bothering me though. When i run the program it opens the external worksheet on my computer. I just want the program to pull data from the workbook and close it again WITHOUT saving. Is this possible?

[phbryan]

Never mind i figured it out.

Thanks for the code!