Export with VBA from Excel to MSProject

[nkamp]

Hello,

I have to export data (date's, description) from a excel file to a MSProject file. Oke, I can understand that I can open a MSproject file. But then: how do you paste certain cell data from excel into the MSProject cells?

Does somebody have a example

Thanks in advance,

Nico

 

[nkamp]

Allright, I have already solved by my self. So If anybody need support about this subject I can help him or her

Nico

 

[SkipVought]

You might just post your solution. That is the acceptable closure.

Skip,
[sub]
When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large[/sub]

 

[nkamp]

Hello,

You can look at

http://www.vbaexpress.com/forum/showthread.php?t=16843.

Here I have the code which I'm using and is working. My solution beneath is straight forward and simple.

Sub openMSProjectFromExcel()
Dim pjapp As Object
Dim strValue, strStartDate, strEndDate As String
Dim newproj

    Set pjapp = CreateObject("MSProject.application")
    'this checks to see if a valid object has been created. If not it pops up
    'a warning and then quits. Users without Project installed will see this message.
    If pjapp Is Nothing Then
      MsgBox "Project is not installed"
      End
    End If
    'now that we have an application we make it visible
    pjapp.Visible = True
    'we add a new project
    Set newproj = pjapp.Projects.Add
    'Alternative: open existing MSProject file
    'pjapp.Application.FileOpen "test_export.mpp"

    'we set the title property (you can do whatever you want here.
    newproj.Title = "My New Project"
    'we make the new project the active project
    Set ActiveProject = newproj
    'and finally we add a new task to the project
    strValue = Worksheets("Blad1").Range("A2")
    strStartDate = Worksheets("Blad1").Range("B2")
    strEndDate = Worksheets("Blad1").Range("C2")
    newproj.tasks.Add (strValue)
    newproj.tasks(1).Start = strStartDate
    newproj.tasks(1).Finish = strEndDate

    pjapp.FileSave
End Sub
[code]