![]() ' Get the data (string format) and convert to data If t( "taskstart") "" Then Dim startDate As New Date Date.TryParse(t( "taskstart"), startDate)Įnd If If t( "taskend") "" Then Dim endDate As New Date Date.TryParse(t( "taskend"), endDate)Įnd If Next ' Close the file and automatically save ' Access the data in column "tasktext" in the current row ' Create And add New task Dim newTask As .Task ' Now we can easily loop through all rows For Each t In tasks New JavaScriptSerializer().Deserialize( Of Object)(JSONString) ' the data is available in JSON format ' We just convert it to an object (array) here Dim JSONString = myguixt.GetVariable(tasktable) ' When createTable is used in GuiXT to fill a table, ' Get the active project in the file Dim project As .Project = ProjectApplication.FileOpenEx(filename, mv, mv, Tasktable As String) As String Dim returnText As String = "" Try 'Create the Application object to interact with MS project Dim projectApplication As .Application = New .Application()ĭim mv As Object = ![]() ''' ''' Add a list of tasks to an existing MS Project file ''' ''' Path to MS project file ''' Name of GuiXT table variable ''' empty string if success, errortext otherwise Public Function addtasks(filename As String, ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |