View source for Transfer Data to the Synthesis Data Warehouse (SDW)/VBA

{{Template:API}}

==Tutorial: Transfer Data from an Excel File to the SDW==
Below is the VBA version of the [[Transfer_Data_to_the_Synthesis_Data_Warehouse_(SDW)|tutorial]].

 '''VBA'''
  
 Sub Main()
 
 {{APIComment|'Declare a new RawDataSet object.}}
   {{APIPrefix|Dim}} DataCollection {{APIPrefix|As New}} RawDataSet
 
 {{APIComment|'Name it "New Data Collection," and then specify that}}
 {{APIComment|'it is for use with Weibull++.}}
   DataCollection.ExtractedName = {{APIString|"New Data Collection"}}
   DataCollection.ExtractedType = RawDataSetType_Weibull
 
 {{APIComment|'Declare a RawData object.}}
   {{APIPrefix|Dim}} Row {{APIPrefix|As}} RawData
 
 {{APIComment|'Read each row of data from the Excel sheet.}}
   {{APIPrefix|Dim}} i {{APIPrefix|As}} Integer, MaxRow {{APIPrefix|As}} Integer
   MaxRow = 20
 
   {{APIPrefix|For}} i = 2 {{APIPrefix|to}} MaxRow
       {{APIPrefix|Set}} Row = {{APIPrefix|New}} RawData
 
     {{APIComment|'Set the properties for the current data point.}}
       Row.StateFS = Sheet1.Cells(i, 1)
       Row.StateTime = Sheet1.Cells(i,2)
       Row.FailureMode = Sheet1.Cells(i,3)
 
     {{APIComment|'Add the current data point to the data collection.}}
       {{APIPrefix|Call}} DataCollection.AddDataRow(Row)
   {{APIPrefix|Next}} i
 
 {{APIComment|'Connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   MyRepository.ConnectToRepository ({{APIString|"C:\RSRepository1.rsr10"}}) {{APIComment|'Replace with name and path to test repository.}}
 
 {{APIComment|'Send the data collection to the repository.}}
   {{APIPrefix|Call}} MyRepository.DataWarehouse.SaveRawDataSet(DataCollection)
 
 End Sub