VBA para codificar automáticamente documentos entrantes y salientes

Este es el código para enviar nuestro pedido a EXCEL e imprimirlo. Escuche, esto ayuda. La numeración automática depende del número que presione. Estoy escribiendo una función que agrega automáticamente +1.

Subcomando privado 1_Click()

exorte 5so (False)

Conector final

Subcomando privado 2_Click()

exorte 5so (True)

Conector final

Función exorte 5so (printf es booleano)

Mostrar archivo temporal como cadena

Muestra xl como nuevo Excel. Aplicar

Mostrar xW como Excel. Cuaderno de ejercicios

Muestra xS como Excel. Hoja de cálculo

Mostrar Nxw como nuevo Excel. Cuaderno de ejercicios

Muestra Nxs como Excel. Hoja de trabajo

¡Dimri!

¡Atenuado x!

Dim NworkN como cadena

Establecer I como número entero

Dim Billc

Dim delRang$

Ir a error cuando ocurre un error:

si VS . text Matrix (1, 1) = ", entonces

Salga de la función

Si... end

i = 1

TempFile="C:\Etmp\def PRG\e5s print .xls"

Si es un archivo temporal="" o directorio ( archivo temporal) ="", entonces

' ÷ѻ??ģ

Si CopyData = False, entonces

MsgBox"? "Oraciones", vbCritical, OP1.

Salir de la función

Terminará si...

Terminará si...

= = = = = = = = = = = = = = = = = = Agregar datos al archivo de destino

set XL = CreateObject("excel.Application")

Set xW = xl. libro de trabajo. Abrir (archivo temporal)

Establecer xS = xW. Hoja de trabajo("00")

xl. visible=real

xl. Visible=real

xW. Realizar actividad

xW. Hoja de trabajo("00"). Copia

xW. Hoja de trabajo ("Muestra"). Copiar

NworkN = xl. ActiveWorkbook.Nombre

xW. aplicación . mostrar alertas = False

xW. Cerrar

Establecer xW = Ninguno

Establecer xS = Nada

Establecer Nxw = xl. Libro de trabajo (libro de trabajo)

Establecer Nxs = Nxw. Hoja de trabajo("00")

Nxs. name="1"

Establezca Nxs = Nxw. Zhang(1)

Establecer Nxs. Índice = 2

Nxs. Realizar actividad

'

'

'

BillStr = List1. Texto

DEpNa = Mid(BillStr,19,InStr(19,BillStr,"/")-19)

Billc = Lista1. texto

RI = relación con el número de líneas

Nxs. celdas(2,1) = "àţ?"&bilge

Nxs. celdas (2, 7) = """ y comparar matriz de texto (1, 10)

Nxs.

celdas (3, 1) = "?ͻڣ?"& matriz de texto de contraste de amplificador (1, 9)

Nxs. celdas(3,7) = VS . matriz de texto(1,11)

Nxs. Celda(201,2) = TextMatrix(1,8)

Nxs. celdas(203, 5) = VS . matriz de texto(1, 7)

Con VS

Para i = 1 a RI - 1

Para x = 1 a 6

Nxs. celdas(4+I,x) = VS . matriz de texto(I,x)

Entonces

Entonces

del rang = I+4 & amp; ":200"

Nxs. fila(delRang). Eliminar

Termina con...

Imprimir

Si printf = True entonces

Establece Nxs = Nxw. Zhang (1)

Nxs. Impresión

Nxw. Cerrar

xl. Ríndete

Terminará si...

Establecer Nxw = Ninguno

Establecer Nxs = Ninguno

Establecer xl = Ninguno

Mano equivocada:

Si eh. Número = 32755 o Err. Entonces número = 0

Uf. Borrar

Salir de la función

Elsef estaba equivocado. Entonces número = 424

msgbox "ģ???й?֣?ж? ", vbCritical, OP3

Uh. Borrar

Otro

Error de MsgBox. Número y contraseña. Bien. Descripción, signo de exclamación VB, OP1

Uh. Borrar

Salir de la función

Terminará si...

Finalizar la función