Variable not defined error

Hello,

After a Windows 11 reinstall I've been having many problems with my custom VBA modules. This one has me stumped.

I'm getting a 'Variable not defined' error when invoking oVBProject despite having VBA extensibility enabled.

Code:

---

tFile = Dir(CodePath & FolderModules & "*.bas")
    Do While tFile <> ""
      lblComponent = tFile
      oVBProject.VBComponents.Import CodePath & FolderModules & tFile
      Count = Count + 1
      tFile = Dir
    Loop

---

Thanks in advance for your kind help.

it is best to Define your Variables before using them:

Code:

---

Dim tFile As String, lblComponent As String
Dim Count As Long
tFile = Dir(CodePath & FolderModules & "*.bas")
    Do While tFile <> ""
      lblComponent = tFile
      oVBProject.VBComponents.Import CodePath & FolderModules & tFile
      Count = Count + 1
      tFile = Dir     Loop

---

it is not really an Error.
you have:

Option Explicit

on your module Declaration.

Do you set oVBProject anywhere?

Bob,

As a matter of fact I don't set the variable. I understand its defined as part of the Extensibility resource. What would the variable definition look like?

Bare in mind that this is a code snippet of a project that imports vb modules from my backup folder / library.

Until I did a new windows install everything worked fine. I've checked and the Extensibility 5.3 and Scripting Runtime resources are installed (though I'm thinking they may not be working).

Thanks in advance for your kind help.

Without seeing all the code I am guessing a bit, and your stating that all was well until a new windows install clouds the picture, but oVBProject must be a project object and needs to be set to some workbook's project accordingly. I would expect to see this somewhere in the code

Code:

---

    Set oVBProject = ThisWorkbook.VBProject

---

or

Code:

---

    Set oVBProject = ActiveWorkbook.VBProject

---

I also encountered this error but luckily I found a way to fix it.