August 19, 2015

How to get multiple values from closed workbook using VBA

Posted on by Dinesh Kumar Takyar

In the last post we learnt how to get a value from a closed workbook and place it in a new worksheet in a new workbook. Today’s video explains how to get multiple values from a closed workbook using VBA code with a ‘for next loop’.

Watch the training video  below before studying the VBA code:

 

Watch the video on YouTube.

Here’s the complete VBA code to get multiple values from a closed workbook:

Private Function GetValueFromClosedWorkbook
(path, file, sheet, ref)

Dim arg As String

‘ Let’s check whether the file exists
If Right(path, 1) <> “\” Then path = path & “\”
If Dir(path & file) = “” Then
GetValueFromClosedWorkbook = “File Not
Found”
Exit Function
End If

‘ We create the argument
arg = “‘” & path & “[” & file & “]” & sheet & “‘!” & _
Range(ref).Range(“A1”).Address(, , xlR1C1)

‘MsgBox arg
‘ Now we execute an XLM macro
‘All references must be given as R1C1 strings.
GetValueFromClosedWorkbook =
ExecuteExcel4Macro(arg)
End Function

Sub GetMultipleValuesFromClosedWorkbook()
Dim p As String, f As String
Dim s As String, a As String
Dim r As Long, c As Long

p = ThisWorkbook.path
f = “testworkbook.xlsx”
s = “Sheet1”
c = 10
Application.ScreenUpdating = False

For r = 1 To 3
a = Cells(r, c).Address
MsgBox a
Cells(r, 2) = GetValueFromClosedWorkbook
(p, f, s, a)
Next r
End Sub

7 thoughts on “How to get multiple values from closed workbook using VBA”

  1. how to direct the extract ed results to a desired location? i mean to a different raw and column address?
    this always goes to “a1”
    thank for the wonderful coding.

  2. I cannot get this to run correctly.
    Every time I run it, I get a RUNTIME ERROR 1004. “The Formula you typed contains an error.”
    When I click the DEBUG button. It highlights the line:
    GetValueFromClosedWorkbook = ExecuteExcel4Macro(arg)
    I have checked my code repeatedly and it appears to be exactly the same as yours.
    I am frustrated and confused.
    Any help with this would be greatly appreciated.
    Thank you in advance
    Scott

    1. Got it working! I was missing 2 apostrophes from between the quote marks.
      All is good now,
      Thanks

  3. BRAVO, j’en reste bouche bée, vous êtes des cracks!!!! mais ça nous étonne qu’à moitié. Je voudrais juste vous rappeler l&e1c87;obj#2tif de départ: ARRIVER!Maman Papa.

  5. Pingback: Get Column Data from Closed Workbook | Excel VBA Training Videos

  6. I cannot get this to run correctly.
    Every time I run it, I get a RUNTIME ERROR 424. “object required.”
    When I click the DEBUG button. It highlights the line:
    GetValueFromClosedWorkbook = ExecuteExcel4Macro(arg)

Comments are closed.