Export Views to Excel

Hi,Can anyone recommend a good tool to export views into excel? I’ve recently tried one downloaded from SandBox but keep getting “OLE: Automation Error”.

Subject: Export Views to Excel

try this

You should also look at the excellent sessions from Lotusphere such as:

BP116 Integrating Lotus Notes and Domino 6.5 with Microsoft Office Productivity Applications - Advanced Topics

http://www.lotus.com/events/govfor.nsf/wdocs/ls2004pdfs

Subject: Export Views to Excel

Or you can try this tip, if you are doing this thru a Notes Web Application.

http://walnut.agileware.net/node/171

“This tip explains how to export a Notes View directly to Microsoft Excel within a Web Page and using NO CODE whatsoever. I’ve included a sample database that uses this technique also. This can also be used to export Notes data to other MIME registered applications, including Microsoft Word or Open Office.”

Subject: Export Views to Excel

Look at that tool: ANDI at http://www.bpjl.com.

This tool is able to export data to various formats.

For Excel, you can choose CSV format, this type of file can be imported into Excel.

You can also use ODBC (with the ‘ODBC driver for Excel’) to export data from Notes to an existing excel file.

Subject: RE: Export Views to Excel

For Excel, you can choose CSV format, this type of file can be imported into Excel.

Ah yes, CSV. A format that Notes already exports to natively. How does you product add any value to hte process being discussed here?

?!?

Subject: Export Views to Excel

What do mean,export view documents in excel?if thats what you mean… here are some codes maybe can help you…

%INCLUDE “lsconst.lss”

Dim excelappl As Variant

Dim excelbook As Variant

Dim excelSheet As Variant



tmpFileName = ""



tmpFileName = workspace.SaveFileDialog( False , "Excel - Export" , _

"Microsoft Excel Worksheet|*.xls", "C:\", "SampleFile.xls" )	



Set excelappl = Nothing

Set excelappl = CreateObject("Excel.Application") 	



excelappl.visible = False

Set excelbook = excelappl.workbooks.add

Set excelSheet = excelappl.workbooks(1).Worksheets(1)

Call excelsheet.Activate	



     'Save and close Excel Sheet

excelappl.activeworkbook.saveas tFileName$

excelappl.ActiveWorkBook.close

excelappl.quit