Excel Forum

Code: Select all

Sub test01()
    MapEdit Name:="Map 1", Create:=True, OverwriteExisting:=True, DataCategory:=0, CategoryEnabled:=True, TableName:="Task_Table", FieldName:="ID", HeaderRow:=True, AssignmentData:=False, TextFileOrigin:=2, UseHtmlTemplate:=False, IncludeImage:=False
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Active"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Task Mode"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Name"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Duration"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Start"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Finish"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Predecessors"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Outline Level"
    MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Notes"
    MapEdit Name:="Map 1", DataCategory:=1, CategoryEnabled:=True, TableName:="Resource_Table", FieldName:="ID"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Name"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Initials"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Type"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Material Label"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Group"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Email Address"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Windows User Account"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Max Units"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Standard Rate"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Cost Per Use"
    MapEdit Name:="Map 1", DataCategory:=1, FieldName:="Notes"
    MapEdit Name:="Map 1", DataCategory:=2, CategoryEnabled:=True, TableName:="Assignment_Table", FieldName:="Task Name"
    MapEdit Name:="Map 1", DataCategory:=2, FieldName:="Resource Name"
    MapEdit Name:="Map 1", DataCategory:=2, FieldName:="% Work Complete"
    MapEdit Name:="Map 1", DataCategory:=2, FieldName:="Work"
    MapEdit Name:="Map 1", DataCategory:=2, FieldName:="Units"
    FileSaveAs Name:="C:\Users\SDU\Desktop\project-test .xlsx", FormatID:="MSProject.ACE.14", map:="Map 1"
End Sub

Code: Select all

Sub test01()
   Dim myString as String
   myString = InputBox("Please enter you message.")
   MsgBox MyString
   'Other code
End Sub