https://bz.apache.org/ooo/show_bug.cgi?id=126837
--- Comment #2 from [email protected] --- (In reply to damjan from comment #1) > Please explain how you are exporting them. Copy and paste? Save to a file > (which format)? Some API? Which code are you using? Hi, I'm saving data to a file using Lotus Notes application code. This is the code Im using: Sub Click(Source As Button) ''==''==''==''=='' Code For Creating Office Application Automation Object ''==''==''==''=='' Dim SM As Variant Dim Desktop As Variant Dim args() As Variant Dim calApplication As Variant Dim worksheet As Variant Dim cell As Variant '' Creating Handle To OpenOffice Object Set SM = CreateObject("com.sun.star.ServiceManager") '' Create The Front-End Reference Set Desktop = SM.createInstance("com.sun.star.frame.Desktop") '' Opening The Excel Application On Desktop Giving Focus Set calApplication = Desktop.loadComponentFromURL("private:factory/scalc", "_blank" , 0 , args) '' Setting Sheet Name Set worksheet = calApplication.Sheets.getByName("Sheet1") ''Set cell = worksheet.getCellByPosition(0,0) ''cell.setString("Testing Transport To OpenOffice") ''==''==''==''=='' Code For Creating Office Application Automation A Object ''==''==''==''=='' Dim uiws As New NotesUIWorkspace Dim uiview As NotesUIView Dim view As NotesView Dim doc As NotesDocument Dim counter As Integer Dim xlr,xlc,loops As Integer Dim cell1,cell2,cell3 As Variant Set uiview = uiws.CurrentView Set view = uiview.View loops = view.AllEntries.Count Set doc = view.GetFirstDocument Dim i As Integer i=0 For i=0 To loops-1 ''Exporting Notes-Data Code To OpenOffice Calc Applicaiton Set cell1 = worksheet.getCellByPosition(0,i) Set cell2 = worksheet.getCellByPosition(1,i) Set cell3 = worksheet.getCellByPosition(2,i) cell1.setString(Cstr(doc.EDForwardID(0))) cell2.setString(Cstr(doc.EDEmpMailID(0))) cell3.setString(Cstr(doc.EDEmpPh(0))) If(i<loops-1) Then Set doc = view.GetNextDocument(doc) End If Next worksheet.Columns.Autofit End Sub what else can be used instead of setString function? I guess that is the one preventing the dates to remain in the same format. My dates always get converted to text. -- You are receiving this mail because: You are the assignee for the issue.
