bun dia
tengo un archivo de excel con varias pestañas y un archivo pdf con varias hosjas identificadas con numeros ,pero cada pestaña de excel y cada hoja de pdf estan relacionadas y quisiera saber como puedo hacer una macro para inprimirlas una hoja de pdf y una pestaña de excel alavez segun su relacion..
ya que cada mes inprimo asi mas de 800hojas de pdf con su relacion de excel pero tengo que hacer el proceso de relacionarlas manualmente
Saludos.............
por un lado necesitas una macro que recorra todas las pestañas
sería un bucle similar a este:
Dim hoja As Worksheet
For Each hoja In ActiveWorkbook.Worksheets
'aquí lo que quieras hacer con la hoja, por ejemplo imprimirla
hoja.PrintOut
Next
------
Ya sé Excel, pero necesito más.
hola, no he podido hacer ue funcione mi macro ufff ,perdonen mi ignorancia si me pudieran dar mas ejemplos se los agredeceria
¿cómo no funciona?
¿da algún error?¿se interrumpe la ejecución en alguna línea?...
¿puedes adjuntar un archivo con el ejemplo de lo que no funciona?
------
Ya sé Excel, pero necesito más.
¿ocurre con cualquier pdf o sólo con algunos?
¿puedes adjuntar un pdf de ejemplo?
------
Ya sé Excel, pero necesito más.
Hola Pacomegia,
He utilizado tu macro (que te copio al final del post) para poder imprimir un archivo externo pdf desde una macro de excel. Y funciona de lujo, pero querría añadirle una orden.
Se puede hacer que la macro haga tantas copias del documento pdf como valor tenga una celda de excel? es decir, si en la celda A1=4 que la macro imprima 4 copias del documento pdf?
Muchas gracias
Sertx
MACRO UTILIZADA
Hasta donde yo sé, esta llamada mediante shellExecute imprime de uno en uno, (es el equivalente a la opción Imprimir que aparece en el menú contextual del explorador de archivos, esto es, imprime una copia por la impresora por defecto).
Así que para imprimir n copias, tendrás que hacer un bucle y llamar a la función varias veces,
por ejemplo:
Dim i
For i=1 To Activecell.Range("a1").value
imprimearchivoexterno turutaalarchivo
Next
------
Ya sé Excel, pero necesito más.
comos seria la elaboracion de una macro en excel, para impimir todos los archivos pdf de una carpeta
para recorrer los archivos de una carpeta, tal vez lo más sencillo sea utilizar DIR
La primera vez que lo utilices, debes facilitarle como argumento la ruta a la carpeta
Las siguientes veces no utilices ningún argumento, esto te va dando los nombres de todos los archivos unos por uno.
podría ser algo así:
Sub RecorreArchivosEnCarpeta(tucarpeta As String)
Dim miarchivo As String
miarchivo = Dir(tucarpeta)
Do Until miarchivo = ""
'haces lo que quieras con el archivo
'....
miarchivo = Dir ' para pasar al siguiente archivo
Loop
End Sub
------
Ya sé Excel, pero necesito más.
Al utilizar la macro para imprimir PDF externos, no los imprime en el orden en que están relacionados en excel
Al utilizar la macro para imprimir PDF externos, no los imprime en el orden en que están relacionados en excel
Buena la macro, pero al utilizarla para unlistado de archivos relacionados en excel, no imprime en orden. Gracias