bizuf.blogg.se

If Data(ii, 1) = "abc 11" Then Range( "A1") = ii If found then the index of the data will be printed to the Excel sheet.Īpp.Load (app.Path(APPPATH_USER) + "COMServerExamples_WT.opj") 'Load the opj file saved by relevant SetData exampleĭata = Wks.getData(0, 0, -1, -1, ARRAY2D_TEXT) The next example will get text data in ARRAY2D_TEXT format from Origin and then search for some data in the data we got.

Set Wks = app.FindWorksheet( "Sheet1")ĭata = Wks.getData(0, 0, -1, -1, ARRAY2D_NUMERIC) If found then the index of the data will be printed to the Excel sheet.ĭim Data As Variant Dim ii As Integer Set app = New Origin.ApplicationSI 'Connect to the running OriginĪpp.Load (app.Path(APPPATH_USER) + "COMServerExamples_WN.opj") 'Load the opj file saved by relevant SetData example The first example will get numeric data in ARRAY2D_NUMERIC format from Origin and then search for some data in the data we got.

The following examples will connect to an existing instance of Origin and load a relevant project file, which was saved by the Worksheet.SetData examples. Actual array type is dependent on the format argument. If not supplied, lowbound = 1 will be assumed.

format one of the ARRAYDATAFORMAT enumeration, please use only the 2D ones. This is optional argument, defaults to -1 (to the rest of worksheet). nColEnd Ending (zero based) column index to get data from. nRowEnd Ending (zero based) row index to get data from. This is optional argument, defaults to 0. nColStart Starting (zero based) column index to get data from. Parameters nRowStart Starting (zero based) row index to get data from. VB: Function GetData(,, ,, , ) As ObjectĬ++: _variant_t GetData(_variant_t nRowStart, _variant_t nColStart, _variant_t nRowEnd, _variant_t nColEnd, _variant_t format, _variant_t lowbound )Ĭ#: var GetData(var nRowStart, var nColStart, var nRowEnd, var nColEnd, var format, var lowbound ) Get a block of data, within the specified row and column range, from the Worksheet.