set function and variable file names

[Ox1138]

Hi All

Thanks for any help on this, I am fairly new and still learning.

I am trying to develop a macro that will open, copy, (and if possible close) from about 50 closed workbooks. I am currently using this code:

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\Me\Path\AA.csv", True, True)
ThisWorkbook.Activate

But this only opens the file AA.csv, I have a variable "Live" which cycles through the names of the closed workbooks. However, everytime I try to change the Set wb to something that has a variable in it, I seem to fail.

For clarity - I want to be able to change "aa.csv" (or any longer part of the string if necessary) within the macro.

Thanks for any help you can offer.

Cheers

 

[DanteAmor]

For example:

Sub OpenWb()
    Dim wb As Workbook
    Dim live As Variant, wPath As String
    
    wPath = "C:\Users\Me\Path\"
    live = Dir(wPath & "*.csv")
    Do While live <> ""
        Set wb = Workbooks.Open(wPath & live, True, True)
        ThisWorkbook.Activate
        '
        'here your code
        '
        live = Dir()
    Loop
End Sub

 

[Ox1138]

DanteAmor

Thank you very much, this works perfectly!!

Have a wonderful day

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.