VB: Function GetBinaryStorageData(Name As ByVal String, [ format As ByVal Object ] ) As Object
C++: _variant_t GetBinaryStorageData(LPCSTR Name, _variant_t format )
C#: var GetBinaryStorageData(string Name, var format )
Dim myobj As Origin.Application Dim mypage As Origin.Page Dim myWks As Origin.Worksheet Dim myCol As Origin.Column Dim strStroage As String 'Open a new instance of the Origin application Set myobj = GetObject("", "Origin.ApplicationSI") ' myobj.Execute ("doc -mc 1") myobj.NewProject Set mypage = myobj.Pages(0) 'base on 0 Set myWks = mypage.Layers(0) 'start from 0 Set myCol = myWks.Columns(1) strStorage = "Data" 'set BinaryStorageData Set myRng = Range("C20:C30") 'get GetBinaryStroageData myRng.Value = myCol.GetBinaryStorageData(strStroage, STGDATAFMT_BLOB)
8.0SR2