🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.basic.visual.3rdparty
Article #64

Re: VB & MSProject 98

#64
From: Rick Williams
Date: Wed, 15 Jul 1998 00:00
36 lines
1935 bytes
You have the right idea.
    Set Application = GetObject(, "MSProject.Application")
    Set CurrentProj = Application.ActiveProject
    Set AllTasks = CurrentProj.Tasks
    For Each Task in AllTasks
        'process tasks
    Next

This code gets a currently-running instance of Project. To create a new
instance, change the GetObject line to
Set Application=CreateObject(MSProject.Application)
or
Set Application=New MSProject.Application

Best Of Luck,
Rick Williams


D.H Kang wrote in message <6ohhl9$q2e$1@news.nuri.net>...
>Hi!
>
>How can I using the project 98 from vb5.0?
>
>ex)
>dim pj as msproject.application
>.
>.
>.
>
>Please, reply ASAP.
>
>Thanks
>
>
>
>
Technical Details
Message-ID: <e$LULt$r9GA.261@uppssnewspub05.moswest.msn.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <6ohhl9$q2e$1@news.nuri.net>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f8e75,751d2a4c33a7cf6c
X-Google-Attributes: gidf8e75,public
X-Google-Thread: fc45d,751d2a4c33a7cf6c
X-Google-Attributes: gidfc45d,public
X-Google-Thread: 1053fc,751d2a4c33a7cf6c
X-Google-Attributes: gid1053fc,public
X-Google-Thread: f5f6f,751d2a4c33a7cf6c
X-Google-Attributes: gidf5f6f,public
X-Google-Thread: 115e07,751d2a4c33a7cf6c
X-Google-Attributes: gid115e07,public
X-Google-Thread: 10b997,751d2a4c33a7cf6c
X-Google-Attributes: gid10b997,public
X-Google-Thread: 107824,751d2a4c33a7cf6c
X-Google-Attributes: gid107824,public
X-Google-Thread: 1143a7,751d2a4c33a7cf6c
X-Google-Attributes: gid1143a7,public
From: "Rick Williams" <rick_williams@pobox.tbe.com>
Subject: Re: VB & MSProject 98
Date: 1998/07/15
Message-ID: <e$LULt$r9GA.261@uppssnewspub05.moswest.msn.net>
X-Deja-AN: 371686053
References: <6ohhl9$q2e$1@news.nuri.net>
Newsgroups: comp.lang.basic.visual.3rdparty,comp.lang.basic.visual.database,es.comp.lenguajes.visual-basic,fj.comp.lang.visualbasic,it.comp.lang.visual-basic,japan.comp.lang.visual-basic,microsoft.public.project,microsoft.public.vb.3rdparty,microsoft.public.v
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4