Okay guys, here is my code to do the import.

[vba]
Sub importTasks()
Dim appProj As MSProject.Application
Dim aProg As MSProject.Project
Dim tsk As MSProject.Task
Dim myString As String
Dim myStartDate As Date
Dim myEndDate As Date
Dim myDuration As Date
Dim noRows As Integer

Set appProj = CreateObject("Msproject.Application")
appProj.FileOpenEx Name:="C:\timetrack.mpp", ReadOnly:=True, openpool:=pjPoolReadOnly

' Do not show alerts
appProj.DisplayAlerts = False
'set the active project
Set aProg = appProj.ActiveProject
'the file should be opened in background
appProj.Visible = False

'
myStartDate = Format(ActiveProject.ProjectStart, "mm/dd/yyyy")
myEndDate = Format(ActiveProject.ProjectFinish, "mm/dd/yyyy")

'you could create a table to receive the values from project file
ActiveDocument.Tables(1).Cell(1, 1).Range = myStartDate
ActiveDocument.Tables(1).Cell(1, 2).Range = myEndDate

' to select all the task and write it to table
With ActiveDocument.Tables(1).Cell(2, 1).Range
.delete
For Each tsk In ActiveProject.Tasks
myString = tsk.Name & vbTab & "" & tsk.Start& vbTab & "" tsk.Finish & vbCrLf
next tsk
'convert task items to table
.ConvertToTable vbTab, numrows:=noRows, numcolumns:=6, InitialColumnWidth:=150, _
Format:=wdTableFormatGrid1, applyborders:=True, AutoFitBehavior:=wdAutoFitFixed
End With

'Then add any other thing you like

'exit and close file, don't prompt to save
appProj.FileCloseAllEx pjDoNotSave, CheckIn:=True
End Sub[/vba]


well i think that's it for now.

Thanks.