VBE

Joe4

MrExcel MVP, Junior Admin

Joined

Aug 1, 2002

Messages

72,265

Office Version

1. 365

Platform

1. Windows

• Dec 17, 2002

• #2

From the Visual Basic Editor (Alt-F11), click on VBA Project (file) you are working on, right click, and select Import. Then simply choose the file.

Alternatively, you could select Insert Module from right click, then just cut and paste the code.

 

Upvote 0

L

LAS

Board Regular

Joined

Oct 29, 2002

Messages

215

• Dec 17, 2002

• #3

Thanks, but I want to do it via a macro.

Lawrence

 

Upvote 0

kskinne

Well-known Member

Joined

Feb 17, 2002

Messages

1,267

Office Version

1. 365

Platform

1. Windows

• Dec 17, 2002

• #4

there may be a better way of doing this but here goes:

you could duplicate the manual keystrokes to import a file, via code:

Code:

Sub MyImport()
Application.ScreenUpdating = False
MyFile = InputBox("enter full path and filename of file you wish to import into VBE")
SendKeys "%{F11}"
SendKeys "^m"
SendKeys MyFile
SendKeys "~"
Application.ScreenUpdating = True
End Sub

like i said, there may be a better way of doing this, but this does take away the need of opening VBE and doing it manually - the only thing you need to type in this code is the path and filename of the file you want to import

hth
kevin

 

Upvote 0

L

LAS

Board Regular

Joined

Oct 29, 2002

Messages

215

• Dec 17, 2002

• #5

Thanks,

Send keys are a good idea.

 

Upvote 0

NateO

Legend

Joined

Feb 17, 2002

Messages

9,700

• Dec 17, 2002

• #6

Howdy y'all, might want to have a look at:

http://www.cpearson.com/excel/vbe.htm

The section on copying modules between projects. You won't want the export, but the import could be handy.

Another way to pluck a duck. E.g.,<pre>
Sub ImportModule()
Dim FName As String
FName = "c:tempcode.txt"
ThisWorkbook.VBProject.VBComponents.Import FName
End Sub</pre>

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by NateO on 2002-12-17 17:45

 

Upvote 0

Aaron Blood

Active Member

Joined

Oct 10, 2002

Messages

485

• Dec 17, 2002

• #7

It could probably be streamlined a bit, but this is pretty close...


Sub Load_VBA_Text()

Application.VBE.VBProjects("MyProject").VBComponents("Module1").Activate
Application.VBE.ActiveCodePane.Show

import_textfile = "C:vba_code.txt"

Open import_textfile For Input As #1

While Not EOF(1)
n = n + 1
Line Input #1, vbline
Application.VBE.ActiveCodePane.CodeModule.InsertLines n, vbline
Wend

Close #1

End Sub

 

Upvote 0

L

LAS

Board Regular

Joined

Oct 29, 2002

Messages

215

• Dec 18, 2002

• #8

Thanks Nate and Aaron,

It is exactly what I was looking at.

Thanks

 

Upvote 0

D

dk

MrExcel MVP

Joined

Feb 15, 2002

Messages

2,942

• Dec 18, 2002

• #9

You could also use: -

Code:

Sub Load_VBA_Text()
Application.VBE.ActiveVBProject.VBComponents("Module1").CodeModule.AddFromFile "C:YourTextFile.txt"
End Sub

 

Upvote 0

Aaron Blood

Active Member

Joined

Oct 10, 2002

Messages

485

• Dec 18, 2002

• #10

On 2002-12-18 06:08, dk wrote:
You could also use: -

Code:

Sub Load_VBA_Text()
Application.VBE.ActiveVBProject.VBComponents("Module1").CodeModule.AddFromFile "C:YourTextFile.txt"
End Sub

Click to expand...

Yes, that's much better. Although, it seems to give me trouble with textfiles saved with notepad. Anyone else run into this?

The only way I could get it to pull in more than one line was with the OPEN file technique.

Maybe it's just my version of notepad or something.
This message was edited by Aaron Blood on 2002-12-18 10:01

 

Upvote 0