Importing text via VBA into a VBA project? Can this be done

[Tom Schreiner]

Hi everyone...
In reference to this topic:
http://www.mrexcel.com/board/viewtop...5978&forum=2&2
I am trying to import a text file into a VBA project...
The text file would be in the activeworkkbook path and named DeleteOld.txt
Thanks for any help,
Tom

[Tom Schreiner]

Jay gave this guy a solution, but I would still like to know how to import a text file into a VBA project if possible...
Thanks again,
Tom

[Colo]

Hi TsTom. You mean like this?

Sub Test()
With ActiveWorkbook.VBProject
.VBComponents.Import FileName:=ActiveWorkbook.Path & "DeleteOld.txt "
End With
End Sub

[Colo]

Please modify the character "" in code.
mean chr(&H5C).
I could not input the character from my pc.

[Tom Schreiner]

Thanks Colo

One further question...
In the following code, how might I get around the compile error?

The following will load TestImport.bas dynamically....

Sub TryImport()
Application.VBE.ActiveVBProject.VBComponents.Import "C:TestImport.bas"
TestRun
End Sub

Here are the contents of TestImport.bas:

Sub TestRun()
Sheet2.Range("A1") = "Did It"
End Sub

Problem is with the first procedure, Sub TryImport().
I get an obvious compile error with the call to "TestRun" because the module containing the procedure does not exist in the project until it is loaded.

I checked into Conditional Compilation and it did not seem to be what I needed...
Any other ideas?

Thanks again,
Tom

[Colo]

Hello again! In this case, I always use "OnTime Now"
Pls try this.

Sub TryImport()
With Application
.VBE.ActiveVBProject.VBComponents.Import "C:TestImport.bas"
.OnTime Now, "TestRun"
End With
End Sub

Regards,
Colo

[Tom Schreiner]

Thanks Colo,
Works perfectly.
Tom