Hallo zusammen,
ich habe folgenden Anwendungsfall:
Ich möchte den Inhalt aus einem MS Project Feld in einer speziellen Excel Spalte suchen.
Wenn der Wert in Excel gefunden ist, soll er mir einen Wert aus einer bestimmten Spalte in ein MS Project Feld schreiben!
Ich kann bis jetzt die Excel öffnen, das wars ;) Vlt kann mir hier jemand helfen.
Sub SearcInExcel()
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object
Dim xlSheet As Object
Dim proj As Project
Dim t As Task
Dim pj As Project
Set pj = ActiveProject
Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("Testdatei")
objXL.Visible = True
Set objWS = objWB.Worksheets("Testsheet")
Set xlSheet = objWB.Worksheets("Testsheet")
End Sub
|