topic Re: in VBA Forum

how unload a DVB project..?

Anonymous — Fri, 02 Aug 2002 07:54:00 GMT

I try to unload a DVB Project..

Re: how unload a DVB project..?

Anonymous — Fri, 16 Aug 2002 04:49:28 GMT

give this a try. Type in "vbaunload" from the command line

JRW

Re: how unload a DVB project..?

Anonymous — Fri, 16 Aug 2002 04:59:09 GMT

If you're wanting to Unload it programmatically then

Application.UnloadDVB "ProjectName"

should do it.

Joe
--

Re:

Anonymous — Fri, 16 Aug 2002 06:50:54 GMT

Joe,

Thanks for this tidbit, too.

Can you tell me how to programatically tell what
dvb macro is running. I want to unload it when I am done but the "project
name" wold be different whether I am in the test environment or
production. How could I differenciate the two?

Thanks

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote in
message
href="news:f0fe403.1@WebX.maYIadrTaRb">news:f0fe403.1@WebX.maYIadrTaRb...
If
you're wanting to Unload it programmatically then

Application.UnloadDVB "ProjectName"

should do it.

Joe
--

Re:

Anonymous — Fri, 16 Aug 2002 06:58:58 GMT

Can you look thru the VBA manager to find the
collection of projects that are loaded?

Thanks in advance

Tom

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote in
message
href="news:f0fe403.1@WebX.maYIadrTaRb">news:f0fe403.1@WebX.maYIadrTaRb...
If
you're wanting to Unload it programmatically then

Application.UnloadDVB "ProjectName"

should do it.

Joe
--

Re:

Anonymous — Fri, 16 Aug 2002 07:33:29 GMT

Tom,

Here is how you would do it in VB. Don't forget to add the reference to MS 5.3 Extensibility.

Joe
--
Private Function GetVBAProjects() As Variant
Dim objVBE As VBIDE.VBE
Dim objVBProject As VBIDE.VBProject
Dim Index As Integer
Dim Projects() As String

Set objVBE = App.VBE

If objVBE.VBProjects.Count Then
're-dimension array to hold names of projects
ReDim Projects(objVBE.VBProjects.Count - 1)

Else
Exit Function
End If

For Each objVBProject In objVBE.VBProjects
Projects(Index) = objVBProject.Name
Index = Index + 1
Next objVBProject

GetVBAProjects = Projects
End Function

Re:

Anonymous — Mon, 19 Aug 2002 07:32:52 GMT

Joe,

What is MS 5.3 Extensibility? I have never
heard this before?

Thanks

Tom

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote in
message
href="news:f0fe403.4@WebX.maYIadrTaRb">news:f0fe403.4@WebX.maYIadrTaRb...
Tom,

Here is how you would do it in VB. Don't forget to add the reference to MS
5.3 Extensibility.

Joe
--
Private Function GetVBAProjects() As Variant
Dim objVBE
As VBIDE.VBE
Dim objVBProject As VBIDE.VBProject
Dim Index As Integer

Dim Projects() As String

Set objVBE = App.VBE

If objVBE.VBProjects.Count Then
    're-dimension
array to hold names of projects
    ReDim
Projects(objVBE.VBProjects.Count - 1)

Else
      Exit Function

  End If

For Each objVBProject In objVBE.VBProjects

    Projects(Index) = objVBProject.Name

    Index = Index + 1
  Next
objVBProject

GetVBAProjects = Projects
End Function

Re:

Anonymous — Mon, 19 Aug 2002 09:44:34 GMT

Tom,

It is the object library that is required to access the VBAIDE. Don't use 6.0 as that one is for VB's IDE.

Joe
--