Mit folgendem Code exportier ich Daten von Excel nach Project.
Wie kann ich das Speicherverzeichnis definieren bzw. wie kann ich ein bereits bestehendes File ersetzen, löschen?
LG
Thomas
----------------------------------------------------------------
Sub ExcelDatenInProjectEinlesen()
Dim Projekt As Project
Dim i As Long
Range("B2").Select
Set Projekt = CreateObject("MSProject.Project")
Projekt.Application.Visible = True
Projekt.Application.FileNew False
Do Until ActiveCell.Value = ""
With Projekt.Application
.SetTaskField Field:="Name", Value:=ActiveCell.Value
.SetTaskField Field:="Anfang", Value:=ActiveCell.Offset(0, 5).Value
.SetTaskField Field:="Ende", Value:=ActiveCell.Offset(0, 5).Value
.SelectTaskField Row:=1, Column:="Name"
ActiveCell.Offset(1, 0).Select
End With
Loop
Projekt.Application.FileSave
Projekt.Application.Quit
Set Projekt = Nothing
End Sub