Connect Office Apps to .NET with "Lite" Web Services
By Luther Miller, November 01, 2003
It's possible to communicate between .NET and older versions of Office with a "lite" web service by using ASP.NET. Luther takes advantage of a class in MSXML called "XMLHTTPRequest," which handles all of the plumbing to make an HTTP request and receive an XML response.
Connect Office Apps to .NET with "Lite" Web Services
Listing 16 CreateRecordsetFrom2DArray
' Convert a two dimensional array into a Recordset - you could pass Range.Value
' for the array, allowing a Recordset to easily be created from any range of
' data. The Recordset will not be stronly typed, however.
Private Function CreateRecordsetFrom2DArray(ByVal vvArray)
Dim llColCtr As Long
Dim llRecCtr As Long
Dim loRecordset As New ADODB.Recordset
Dim lvColumns() As Variant
Dim lvData() As Variant
ReDim lvColumns(LBound(vvArray, 2) To UBound(vvArray, 2))
ReDim lvData(LBound(vvArray, 2) To UBound(vvArray, 2))
For llColCtr = LBound(vvArray, 2) To UBound(vvArray, 2)
loRecordset.Fields.Append "Column" & llColCtr, _
ADODB.DataTypeEnum.adVariant, Attrib:=adFldIsNullable
lvColumns(llColCtr) = llColCtr - LBound(vvArray, 2)
Next llColCtr
loRecordset.Open
For llRecCtr = LBound(vvArray, 1) To UBound(vvArray, 1)
For llColCtr = LBound(vvArray, 2) To UBound(vvArray, 2)
lvData(llColCtr) = vvArray(llRecCtr, llColCtr)
Next llColCtr
loRecordset.AddNew lvColumns, lvData
Next llRecCtr
Set CreateRecordsetFrom2DArray = loRecordset
End Function
