CONTACTO ***** jofelchez@gmail.com *****




Soporte Remoto, helpmybusinesspos.info , TeamViewer, Hamachi, Descarga My Business pos 2012 Gratis, crack activar, keygen activador , FACTURACIÓN ELECTRÓNICA, my business pos 2012, MyCBB, Codigo de Barras BiDimensional, configurar facturas, Migración de la Versión 2006 a la Versión 2011, Delta, Configurar 2011, Manuales de Instalación, Errores, Modificar, Respaldos, Nuevo IVA, Red MyBusiness, Problema, Ambiente path, Migración, Impresora, Descarga 2011, Reportes, Presentaciones, Win7, SQL, Manager, Ticket, Etiquetas, Generador, Corte X Z, Restaurar, Zebra, Logo, recomendaciones, Remisiones, Barras, Inventario, hamachi, Delta y LINUX, code39, como cambiar el iva en my business pos, my business pos blogspot, como instalar my busuness delta, TPV, MyMoney, Concentrador POS, Zebra, Datamax, Mobile Business, Commander, Restaurante, MyBusiness POS 2012, Kardex

miércoles, 31 de diciembre de 2014

Exportar a Excel

import_export_excel_mybusinessposEste ejemplo muestra cómo exportar a excel

Sub Main()
Dim Xls
Dim xlsText
Dim xlsNumber

xlsText = 2
xlsNumber = 1

Set Xls = NewExcel()

Xls.CreateFile "c:\prueba.xls"

' 1.- Tipo de dato de texto o numerico
' 2.- el tipo de fuente 0, 64, 128, 192
' 3.- La alineación donde 0 = General, 1 = Izquierda, 2 = Centrado, 3 = Derecha
' 4 = Justificado, 8 = Borde de la izquierda, 16 = Borde de la derecha
' 32 = Borde superior, 64 = Borde inferior, 128 = Sombreado
' 4.- Propìedades de la celda 0 = Normal, 64 = Bloqueado, 128 = Oculto
' 5.- Renglon
' 6.- Columna

Xls.WriteValue (xlsText), 192, 0, 0, 1, 1, "MyBusiness POS SUGERIDO DE COMPRAS"
Xls.WriteValue (xlsText), 128, 0, 0, 2, 1, "Esto va en en el renglon 1 columna 1"
Xls.WriteValue (xlsNumber), 64, 0, 0, 3, 1, 4567
Xls.WriteValue (xlsNumber), 0, 0, 0, 4, 1, 4567
Xls.CloseFile

If Question( "Desea abrir este archivo ahora" ) Then
' hWnd es una variable public que contiene un entero que identifica a la ventana
' que manda ejecutar el proceso
ShellRun hWnd, "Open", "c:\prueba.xls"
End If

End Sub
a las 7:25 p. m.
Etiquetas:

No hay comentarios:

Publicar un comentario

Por favor, también escribe tu e-mail para contactarte
LA ASESORIA TIENE UN COSTO, para que lo consideres antes de Exigir Respuesta.

Suscribirse a: Enviar comentarios (Atom)