VBA/Macro to open multiple files with same file name, but different extensions

mongo26 · Apr 16, 2018

Hello,

I have a macro that works great, but I need to tweak it. Instead of opening just the one file based on (Sheet1, cell C3), I need it to open all files in a specific source folder with the same file name.

There are 4 different file types/extensions in the source folder (.one, .two, .three, .four), however based on changes in (sheet1, cell C3) there will be cases where some of these files do not exist.

I need to make sure the macro doesn't ''stop'' if it doesn't find a file based on one of the file extensions and moves on to the next one, so that it finds each one that exists.

Lastly, the macro should give me an alert message like ".one file does not exist for this account" for each of the files it can not find.

Can anyone help me with this?

Here is the macro that I'm using now, but it only finds one file type.

Thank you in advance!

Sub OpenONE()

Dim wkbkSource As Workbook
Dim strPath As String
strPath = "C:\Test"
Sheets("Sheet1").Select
Range("A1").Select
Set wkbkSource = Workbooks.Open(strPath & Range("C3").Value & ".ONE")

VBA/Macro to open multiple files with same file name, but different extensions

mongo26

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

VBA/Macro to open multiple files with same file name, but different extensions

mongo26

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock