Google Translate

Stella inattivaStella inattivaStella inattivaStella inattivaStella inattiva
 

Cercando nella mia document library di Lotus Notes ho trovato un utile articolo che mostra come esportare dati da Lotus Notes ad Excel utilizzando ADODB.

Il vantaggio nell'usare ADODB consiste nel fatto di non dover avere necessariament installato excel sul pc dove viene eseguita l'operazione di export.

Ad esempio io utilizzo questa tecnica sul mio pc di casa dove non ho excel ma Open Office.

Bene riporto cio' che ho trovato, ringrazio l'autore Humayun Tareen per aver condiviso anni fa questo codice.

Export Lotus Notes data to Microsoft Excel using the ADODB.Recordset object

Lotus Script ADODB.Recordset and SQL

For example, once you have added the data you can retrieve it by using the SQL "Select * from Empdata, where EmployeeID = 'Emp#10'". Also, you should make sure you update the value using oRs(1).Value = "New Name."

1. Create a Microsoft Excel file (for example, on "D:TempExcelFile.xls).

2. Write some labels on row 1 as:

EmployeeID EmployeeName

"EmployeeID" can be on cell A1 and "EmployeeName" on Cell B1.

3. Now use menu "Insert>>Name>>Define."

4. Write "EmpData" in the "Names in Workbook" field.

5. Select Range "=Sheet1!$A$1:$B$1" in the "Refers To" field and click OK.

6. Save the Microsoft Excel spreadsheet.

7. Write the following LotusScript code on some form button:

 

1
2
3
4
5
6
7
8
9
10
11
Dim ORs As Variant
ReportPath = "D:TempExcelFile.xls"
Set oRs = CreateObject("ADODB.Recordset")                  
oRs.Open "Select * from EmpData",{Provider="Microsoft.Jet.OLEDB.4.0";Data Source=} & ReportPath & {;Extended Properties="Excel 8.0;HDR=NO:"},1,3
For I = 1 To 200
    oRs.Addnew
    oRs(0).Value = "Emp#" & Trim$(Cstr(I))
    oRs(1).Value = "Employee Name"  & Trim$(Cstr(I))
Next
oRs.Update
oRs.Close

 

 

- have fun -