Guardar archivo en carpetas diferentes

[reginaa]

Hola porfavor a ver si me pueden ayudar:
Estoy creando una macro en la cual dependiendo de un registro ya creado se guarde un archivo pdf en la carpeta de referencia del mismo registro, pero obviamente no quiero que las carpetas se dupliquen tengo lo siguiente

Código: Seleccionar todo

Sub Guardar()

Dim contrato As String
Dim orden As String
Dim nomb As String
Dim Path As String

    Sheets("Registro").Select
    contrato = Cells(3, 7)
    orden = Cells(3, 4)
    nomb = orden & " " & contrato
    Path = "Macintosh HD:Users:Documents:" & contrato
    If Dir(Path, vbDirectory) = " " Then *Siempre me muestra error en esta parte y no logro comprender el porque *
    MkDir Path
    End If
    Sheets("F. Orden ").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="Formato Orden de Compra A00" & nomb & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
    MsgBox "Registro Realizado y Guardado en Formato PDF A00" & nomb

    Sheets("F. Orden ").Select

End Sub

no saben lo mucho que se los agradecería

[mauricio]

Dos cosas...

1.- No se si sea correcto esa forma de tu ruta en MAC, según se MAC usa el mismo estilo de Linux: "/home/USER/docs"
2.- Estas comparando el resultado con un espacio " ", debes de compararlo con una cadena vacía.

https://help.libreoffice.org/Basic/Dir_Function_Runtime

Saludos

[reginaa]

Ya lo cambie para que pueda crear en la misma carpeta donde esta guardado mi archivo original en cuanto a si comparo con cadena, sinceramente no se como cambiarlo

Código: Seleccionar todo

Sub Guardar()


Dim contrato As String
Dim orden As String
Dim nomb As String
Dim Path As Integer



    Sheets("Registro").Select
    contrato = Cells(3, 7)
    orden = Cells(3, 4)
    nomb = orden & " " & contrato
    Path = ThisWorkbook.Path  &contrato                  [color=#FF0000]esta parte me la marca como error supongo que es como la compare[/color]
    Sheets("F. Orden ").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="Formato Orden de Compra A00" & nomb & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
    If Dir(Path, vbDirectory) = "" Then   [color=#FF0000]no me crea ninguna carpeta con el nombre de contrato[/color]
    MkDir Path
    End If
    MsgBox "Registro Realizado y Guardado en Formato PDF A00" & nomb

    Sheets("F. Orden ").Select

End Sub

[fornelasa]

Perdón por mi "disque" ayuda pero ......
parece que el codigo mostrado es de Visual Basic Para Aplicaciones, es decir, de Excel.

Editado: creo que en este caso nos equivocamos de foro

..... parece.

Saludos, Federico.

[mauricio]

Su firma dice NeoOffice...

Si estas usando VBA para Excel, entonces como dice mi amigo, te has equivocado de foro...

Pero si no, el manejo de documentos y rutas esta aquí: https://wiki.openoffice.org/wiki/ES/Man ... Documentos

[reginaa]

Si perdón , y muchas gracias ya lo resolví pero de todos modos a la próxima me fijare lo siento bye bye