Error con Macro - PDF - Win Server 2003

04/04/2011 - 18:06 por marredondo | Informe spam
Buenos días.
Tengo un problema con una macro para exportar un area definida de una hoja de excel (2007) a formato pdf.

la planilla la confeccioné en una maquina (win 7, office 2007) y alli funciona perfectamente. ahora bien, esta maquina está en red y cuando pongo el archivo excel en el servidor, para poder usarse desde otras maquinas de la red, y ejecuto dicha macro me manda a depurar.

macro en cuestión:

Sub ImpPDF()
'
' ImpPDF Macro
'

'
Dim RutaArchivo As String
RutaArchivo = "C:\Users\Mariano\Desktop\Cotizaciones\" + Cells(43, 7) + ".pdf"
Range("A1:M56").Select
Range("M56").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("B19").Select
End Sub

y me resalta:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

esas lineas.

no puedo dar con el problema.

muchas gracias de antemano.
 

Leer las respuestas

#1 marredondo
04/04/2011 - 18:13 | Informe spam
marredondo escribió el 04/04/2011 18:06 :
Buenos días.
Tengo un problema con una macro para exportar un area definida de una hoja de
excel (2007) a formato pdf.

la planilla la confeccioné en una maquina (win 7, office 2007) y alli
funciona perfectamente. ahora bien, esta maquina está en red y cuando
pongo el archivo excel en el servidor, para poder usarse desde otras maquinas
de la red, y ejecuto dicha macro me manda a depurar.

macro en cuestión:

Sub ImpPDF()
'
' ImpPDF Macro
'

'
Dim RutaArchivo As String
RutaArchivo = "C:UsersMarianoDesktopCotizaciones" + Cells(43, 7)
+ ".pdf"
Range("A1:M56").Select
Range("M56").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("B19").Select
End Sub

y me resalta:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

esas lineas.

no puedo dar con el problema.

muchas gracias de antemano.


me faltó poner el cartel de error que aparece al ejecutar la macro:

"Se ha producido el error 1004 en tiempo de ejecucion:
no se ha guardado el documento. Puede que el documento esté abierto o que se haya encontrado un error al guardar"

gracias

Preguntas similares