Information générale
Catégorie:
Bases de données DAO/RDO/ODBC/ADO
Titre:
Lotus 123 Numeric cells have zeros appended
I'm writing a utility to import data from Lotus 123 spreadsheets. I'm using DAO 3.6 and the following code in VB6 (SP4):
Set oWorkspace = DBEngine.CreateWorkspace("JetWorkspace", "admin", "", dbUseJet)
Set oDatabase = oWorkspace.OpenDatabase("C:\Temp\LotusFile.WK3", False, True, "Lotus WK3; HDR=NO; IMEX=1;")
Set oRecordset = oDatabase.OpenRecordset(oDatabase.TableDefs(0).Name, dbOpenSnapshot, 0, dbReadOnly)
All data is imported, but some numeric cells have ".00" appended. Normally, this would not be a problem, but in this case I need the data brought in exactly as it was in the spreadsheet. 1 <> 1.00
BTW, Lotus Spreadsheets were created using Lotus 123 '97. Excel 97 spreadsheets import accurately using the same technique.
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement