Exportar a Excel

import_export_excel_mybusinessposEste ejemplo muestra cómo exportar a excel

 Visual Basic |  copy code |? 
01
02
Sub Main()
03
    Dim Xls
04
    Dim xlsText
05
    Dim xlsNumber
06
 
07
    xlsText = 2
08
    xlsNumber = 1
09
 
10
    Set Xls = NewExcel()
11
 
12
    Xls.CreateFile "c:\prueba.xls"
13
 
14
    ' 1.- Tipo de dato de texto o numerico
15
    ' 2.- el tipo de fuente 0, 64, 128, 192
16
    ' 3.- La alineación donde 0 = General, 1 = Izquierda, 2 = Centrado, 3 = Derecha
17
    '     4 = Justificado, 8 = Borde de la izquierda, 16  = Borde de la derecha
18
    '     32 = Borde superior, 64 = Borde inferior, 128 = Sombreado
19
    ' 4.- Propìedades de la celda 0 = Normal, 64 = Bloqueado, 128 = Oculto
20
    ' 5.- Renglon 
21
    ' 6.- Columna     
22
 
23
    Xls.WriteValue (xlsText), 192, 0, 0, 1, 1, "MyBusiness POS SUGERIDO DE COMPRAS"
24
    Xls.WriteValue (xlsText), 128, 0, 0, 2, 1, "Esto va en en el renglon 1 columna 1"
25
    Xls.WriteValue (xlsNumber), 64, 0, 0, 3, 1, 4567
26
    Xls.WriteValue (xlsNumber), 0, 0, 0, 4, 1, 4567
27
    Xls.CloseFile
28
 
29
    If Question( "Desea abrir este archivo ahora" ) Then
30
       ' hWnd es una variable public que contiene un entero que identifica a la ventana
31
       ' que manda ejecutar el proceso
32
       ShellRun hWnd, "Open", "c:\prueba.xls"
33
    End If
34
 
35
End Sub
36

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.