Exportar a Excel

**Roger** · 04.05.2020, 01:56

Necesito al exportar un campo envié a la columna en excel de esta forma

CODE Código:

CODIGO                  PRODUCTO              EN EXCEL      CODIGO             PRODUCTO  
 127                  ACONDICIONADOR                              000127            ACONDICIONADOR

Manualmente lo puedo hacer pero necesito que sea automático por programa intente poniendo campo alfanumérico y no funciona.

**Hrmcobol** · 04.05.2020, 03:32

Hola Roger, disculpa pero no entiendo.

Saludos
H

**Roger** · 04.05.2020, 04:13

en la primera imagen asi lo exporta y el la segunda asi deseo

**Josber** · 04.05.2020, 09:02

Iniciado por Roger

intente poniendo campo alfanumérico y no funciona

prueba de la siguiente manera a ver si te vale

COBOL Código:

01 EXPORTADO.
   03                                        PIC X VALUE "'".
   03  NUM                                PIC 9(6) USAGE IS DISPLAY.
   .
   .
   .
 PROCEDURE DIVISION.
   .
   .
   .
     MOVE NUMERO_A_EXPORTAR TO NUM.
     INSPECT EXPORTADO
                 REPLACING ALL " " BY "0".
   .
   .
   .
     .... RUTINA_DE_EXPORTAR_A_EXCEL donde envíamos la variable EXPORTADO, no la variable NUM.

Un saludo.-

**Roger** · 04.05.2020, 15:45

@Josber no funciona da el mismo resultado sin los ceros.

**Gusaiello** · 04.05.2020, 15:51

Yo creo que deberías pasarlo como si fuera texto desde una variable

COBOL Código:

PIC X(6)

.

No sirve definir en excel la columna con formato texto, por que igual te quitará los ceros.

O sea que en el ejemplo de @Josber, cambiar

COBOL Código:

PIC 9(6)

por

COBOL Código:

PIC X(6)

.

**JCantero** · 04.05.2020, 15:58

Para poder ayudarte, debes de poner aqui la parte del programa donde montas la linea ( o flla ) para pasarlo a excel.

Asi como la estructura de los campos utilizados.

---------- Post añadido : 15:58 ---------- Post anterior : 15:52 ----------

Como dice @Gusaiello,

si tienes:

COBOL Código:

01  referencia-n pic 9(6).
01  referencia-a pic x(6).
*
*
*
move 5 to referencia-n
move referencia-n to referencia-a

en referencia-a tienes 000005

**Roger** · 04.05.2020, 18:31

Amigos para ponerlo en contexto este programa me sirve para imprimir códigos de barras a través de una impresora Zebra GC420T que esta relacionada con un archivo excel generado por powercobol, si en la hoja excel el código se exporta "127" las barras seran diferentes a "000127"
para hacer mas complicada el campo de lectura de barras lee campos alfa numéricos de hasta 16 caracteres por ese motivo no puedo poner un campo de recepción numérica de 6 caracteres que seria la solución .

COBOL Código:

ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT LEXCEL
     ASSIGN TO "d:\VET-SIS\BARRAS.XLS"
     ORGANIZATION IS LINE SEQUENTIAL.
 
 DATA DIVISION.
 FILE SECTION.
 
 FD LEXCEL
     LABEL RECORD IS STANDARD.
 01 REC-LEXCEL PIC X(500).
 WORKING-STORAGE SECTION.
 01 EXCEL OBJECT REFERENCE COM IS GLOBAL.
 01 WORKBOOK OBJECT REFERENCE COM IS GLOBAL.
 01 COM-TRUE PIC 1(1) BIT VALUE B"1" IS GLOBAL.
 01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION" IS GLOBAL. 
 01 EXCEL_FILE PIC X(35) VALUE "d:\VET-SIS\BARRAS.XLS".
 01 L-1.
    02 PIC X(6) VALUE "<BODY>".
    02 PIC X(15) VALUE "<TR><TH> ".
 01 L-2. 
    02 PIC X(7) VALUE "<TABLE>". 
 01 L-3. 
    02 PIC X(10) VALUE "<TR><TH> ".
    02 NOM-I PIC X(85).
    02 PIC X(4) VALUE "<TD>". 
    02 COD-I PIC X(6) VALUE "000000".
    02 PIC X(4) VALUE "<TD>". 
    02 PRECIO-I pic   ZZZ,ZZ.99.      
 01 GRUPO.
   02 G1 PIC 999.
   02 G2 PIC X(17).   
 01 COD pic X(6) VALUE "000000".  
 01 RUTA PIC X(256).
 01 REDD GLOBAL EXTERNAL.
   02 RED PIC X(256). 
 01 RUTA-ETI PIC X(256) VALUE "C:\Program Files (x86)\Zebra Technologies\ZebraDesigner Pro 2\bin\Design.exe".
 PROCEDURE      DIVISION. 
 INICIO.  
       OPEN OUTPUT LEXCEL CLOSE LEXCEL. 
       OPEN EXTEND LEXCEL. 
       MOVE POW-FALSE TO ENABLED OF CTPUSH3.
 GRAVAEXCEL.
      WRITE REC-LEXCEL FROM L-1.
      WRITE REC-LEXCEL FROM L-2. 
 INICIO. 
      MOVE SPACES TO RUTA.
      STRING RED DELIMITED BY SPACES
            "Artic.DAT" DELIMITED BY SIZE
            INTO RUTA.
      MOVE RUTA TO WF-ARTIC.
      OPEN INPUT ARTIC.
      MOVE " "  TO DESCRIPCION-AR.
      START ARTIC KEY NOT < DESCRIPCION-AR INVALID KEY
       GO LEE. 
 LEE. READ ARTIC NEXT AT END GO FIN.
      MOVE GRUPO-AR TO GRUPO.
      IF G1 = 002 GO LEE.
      IF G1 = 007 GO LEE.
      IF G1 = 008 GO LEE.
      MOVE CODIGO-AR  TO COD.
      INSPECT COD REPLACING ALL " " BY "0".
      move COD to  COD-I.
      MOVE DESCRIPCION-AR TO NOM-I.
      MOVE PRECIO-AR TO PRECIO-I.
      WRITE REC-LEXCEL FROM L-3. 
      GO LEE. 
 FIN.  
      CLOSE ARTIC.
      CLOSE LEXCEL.
      INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
*      INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.
      INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
      INVOKE WORKBOOK "Open" using EXCEL_FILE. 
      invoke pow-self "THRUEVENTS". 
      INVOKE POW-SELF "executesync" USING RUTA-ETI.
      INVOKE EXCEL "QUIT".
      EXIT PROGRAM.

(ojo) CODIGO-AR PIC 9(6).

**JCantero** · 04.05.2020, 19:57

El problema que veo es que generas un html y llamas a Excel.

Excel te lo convierte.

Si abres el fichero con un explorador, se veria bien
, Como tú quieres. ( Seguramente cambiando la extensión a .html )

En powercobol no te puedo ayudar, pero sería crear un Excel (no html), marcando todas las columnas como alfanuméricas.

¿ Admite la impresora, en vez de Excel , un CSV o un fichero texto con tabuladores ?

**Roger** · 05.05.2020, 02:47

@JCantero revisando las opciones de base de datos de Zebra encontre que podia ser txt, cvs, excel probe con .txt y funciona de maravillas.

Tema: Exportar a Excel

Herramientas

Exportar a Excel

Información de Tema

Usuarios Viendo este Tema

Temas Similares

[Sintaxis] Exportar Reporte a Excel

[Información] Exportar archivos de PowerCOBOL 5 a Web

[Aporte] Exportar CmListview en Excel

Marcadores

Marcadores

Permisos de Publicación