Merging data with Microsoft Project 1

[Krusher]

I am currently merging data from Excel to Microsoft Project using a Macro with the MapEdit fuction. Basically, I need help with an IF Statement. In plain English, I'd like to do this simple thing, IF for all tasks, fieldname STATUS = "COMPLETE" then Create:=True, ELSE Create:=False. Below is a portion of the code:

SelectRange Row:=0, Column:=6
MapEdit Name:="Map 4", Create:=True, OverwriteExisting:=True, DataCategory:=0, CategoryEnabled:=True, TableName:="Sheet1", FieldName:="Name", ExternalFieldName:="Name", ExportFilter:="All Tasks", ImportMethod:=2, MergeKey:="Name", HeaderRow:=True, AssignmentData:=False, TextDelimiter:=Chr$(9), TextFileOrigin:=0, UseHtmlTemplate:=False, IncludeImage:=False
MapEdit Name:="Map 4", DataCategory:=0, FieldName:="Status", ExternalFieldName:="Status"


Any thoughts would be greatly appreciated. Thank you in advance.

-K

 

[SkipVought]

Hi,

I noticed that no one has tackeled this question.

Frankly, I know nothing about the MS Project Object Model. I can't find the object library.

But there is often some similarity in object models. So I'll take a stab to see it it might help.

Sub test()
    Dim bCreate As Boolean
    If Status = "COMPLETE" Then
        bCreate = True
    Else
        bCreate = False
    End If
    [b]'is there REALLY a ROW ZERO????[/b]
    Range([b]0[/b], 6).MapEdit _
        Name:="Map 4", _
        Create:=[b][red]bCreate[/red][/b]_
        OverwriteExisting:=True, _
        DataCategory:=0, _
        CategoryEnabled:=True, _
        TableName:="Sheet1", _
        FieldName:="Name", _
        ExternalFieldName:="Name", _
        ExportFilter:="All Tasks", _
        ImportMethod:=2, _
        MergeKey:="Name", _
        HeaderRow:=True, _
        AssignmentData:=False, _
        TextDelimiter:=Chr$(9), _
        TextFileOrigin:=0, _
        UseHtmlTemplate:=False, _
        IncludeImage:=False
    Range(0, 6).MapEdit _
        Name:="Map 4", _
        DataCategory:=0, _
        FieldName:="Status", _
        ExternalFieldName:="Status"
    End With
    
End Sub

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}

 

[Krusher]

Skip,
You helped solve my if statement issue. Thank you

-K