archivo plano y excel
muy buenas delphianos aqui va mi problema:
tengo que levantar varios archivo de texto que los campos estan separados por tab (#9) y colocarlo en excel.lo he logrado pero me habre tantas instancia de excel como archivo levantados; lo que necesitaria que me guien como hacer para levantar los archivos planos en distintas solapas de una misma instancia del excel. El codigo que estoy utlizando es el siguiete: procedure txt_to_excel(); var Excel: _Application; lcid: integer; WBk: _Workbook; Filename: OleVariant; begin lcid := LOCALE_USER_DEFAULT; Excel := CoExcelApplication.Create; Excel.Visible[lcid] := True; (*primer archivo*) Filename := 'c:\Temp1.txt'; WBk := Excel.Workbooks.Open(Filename, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LCID); (*segundo archivo*) Filename := 'c:\Temp2.txt'; WBk := Excel.Workbooks.Open(Filename, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LCID); end;:confused: :confused: |
Hola, de esta manera creo pestañas en excel y le asigno un nombre
Código:
//***** Añado una nueva hoja donde va a ir el Informe Saludos!!! |
La franja horaria es GMT +2. Ahora son las 03:55:22. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi