|
|
This code uses the OLE support in the Win32 version of Notes to set the A1 cell in the Sheet1 worksheet to a value from Field1 in the current document:
Set obj = CreateObject("Excel.Application")
obj.Workbooks.Open "c:\test.xls"
value = doc.GetItemValue("Field")(0)
obj.Worksheets("Sheet1").Range("A1").value = value