Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Pages: 1







Bonjour,
Je voudrais (via Pb bien sur) utiliser l'OLE Excel pour ouvrir un classeur Excel et sauvegarder chacune de ses feuilles au format texte afin d'importer les données dans une datastore.
Savez vous si je peux faire cela ?
La sauvegarde simple au format txt me donne un fichier illisible.
Hors ligne










Salut
Si ton fichier est en CSV il y a l'importfile qui marche
Je ne sais pas comment cela réagi avec des plusieurs feuilles
Hors ligne







JCZ a écrit:
Salut
Si ton fichier est en CSV il y a l'importfile qui marche
Je ne sais pas comment cela réagi avec des plusieurs feuilles
Malheureusement mon fichier est en xls.
Hors ligne







en vba ça donne
ActiveWorkbook.SaveAs Filename:="C:\temp\test.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
et Excel sauvegarde la feuille courante
Il faut juste traduire FileFormat:=xlUnicodeText en PB
????
Hors ligne














xlUnicodeText = 42
XlFileFormat
{xlCurrentPlatformText = -4158,
xlWorkbookNormal = -4143,
xlSYLK = 2,
xlWKS = 4,
xlWK1 = 5,
xlCSV = 6,
xlDBF2 = 7,
xlDBF3 = 8,
xlDIF = 9,
xlDBF4 = 11,
xlWJ2WD1 = 14,
xlWK3 = 15,
xlExcel2 = 16,
xlTemplate = 17,
xlTemplate8 = 17,
xlAddIn8 = 18,
xlAddIn = 18,
xlTextMac = 19,
xlTextWindows = 20,
xlTextMSDOS = 21,
xlCSVMac = 22,
xlCSVWindows = 23,
xlCSVMSDOS = 24,
xlIntlMacro = 25,
xlIntlAddIn = 26,
xlExcel2FarEast = 27,
xlWorks2FarEast = 28,
xlExcel3 = 29,
xlWK1FMT = 30,
xlWK1ALL = 31,
xlWK3FM3 = 32,
xlExcel4 = 33,
xlWQ1 = 34,
xlExcel4Workbook = 35,
xlTextPrinter = 36,
xlWK4 = 38,
xlExcel7 = 39,
xlExcel5 = 39,
xlWJ3 = 40,
xlWJ3FJ3 = 41,
xlUnicodeText = 42,
xlExcel9795 = 43,
xlHtml = 44,
xlWebArchive = 45,
xlXMLSpreadsheet = 46,
xlExcel12 = 50,
xlOpenXMLWorkbook = 51,
xlWorkbookDefault = 51,
xlOpenXMLWorkbookMacroEnabled = 52,
xlOpenXMLTemplateMacroEnabled = 53,
xlOpenXMLTemplate = 54,
xlOpenXMLAddIn = 55,
xlExcel8 = 56}
Hors ligne







Et j'écris ça comment ?
Io_Excel.Application.activeworkbook.worksheets(2).SaveAs("c:\temp\export_import_fwl_materiel.txt").xlUnicodeText = 42
non c'est pas ça la syntaxe....????
Hors ligne














workbook.SaveAs("c:\temp\export_import_fwl_materiel.txt", 42 )
Hors ligne







ErAsORz a écrit:
Code: pb
workbook.SaveAs("c:\temp\export_import_fwl_materiel.txt", 42 )
Merci beaucoup, c'est exactement ce que je cherchais.
Hors ligne
Pages: 1