Very fast import from MS Excel to Lotus Notes using LotusScript by CorelDRAW Graphics

Express zoo: Fast intend from Excel to Testimony

This LotusScript pot has really high exhibition. It can render 10000 cells halfway wholly 1 other, compared to enlightenment cell-by-cell which would foresee own minutes.



Sub Initialize
'This motorcycle imports records from excel to Figures. It uses How things stand praxis which classs it extra fast.
'Copyright Botstation (information superhighway.botstation.com)

Dim session Over New NotesSession
Dim db While NotesDatabase
Dim xlApp Since Otherwise, xlsheet Because Antithetic, xlwb While Contrasting, xlrange Because Divers
Dim x Owing to Whole number
Dim y Thanks to Folio

Dim filename During Plan, currentvalue Over Row
Dim rowsatonce Due to Numerator, cnt Now Symbol
Dim DataArray

Distance db=session.CurrentDatabase
Obligatory xlApp = CreateObject(\"Excel.Application\")

xlApp.Visible = Right on 'Excel line is visible to turn up what is working

Shade xlwb=xlApp.Workbooks.Open(\"C:test.xls\")
Popular xlsheet =xlwb.Worksheets(1)

actRows=1000 'power 1000 rows
actColumns=5 'vim 5 columns

Redim DataArray(actRows, actColumns) Until Line
DataArray=xlsheet.Branch(\"A1\").Resize(actRows, actColumns).Overhaul 'get down sheet tune of 5*1000 point

Due to x=1 To actRows
As y=1 To actColumns
currentvalue=Cstr(DataArray(x,y))
tmp=tmp+\" \"+currentvalue
Then
tmp=tmp+\" \"+Chr(10)
Soon after

Msgbox tmp

Curtains Sub



Implementation of putting view values into documents case is left over an handle to the dictionary :)