Witam.
Mam kod1 otwierający folder przy zastosowaniu zmiany ścieżki (działa bez zarzutu)
Mam kod2, który zapisuje arkusz w formacie PDF przy zastosowaniu zmiany ścieżki zapisu (niestety bladzi pomimo ze ścieżka jest poprawna).
Sub Kod1()
Dim x As Variant
Dim NySparaAdress As String
NySparaAdress = ThisWorkbook.Path
MsgBox "path 1 - " & NySparaAdress
If Right(NySparaAdress, 15) = "01 Aktuell Pärm" Then
NySparaAdress = Left(NySparaAdress, Len(NySparaAdress) - 15) & "02 Aktuell checklista"
MsgBox "path 2 - " & NySparaAdress
x = Shell("c:\windows\explorer.exe """ & NySparaAdress & """", vbNormalFocus)
End If
End Sub
Sub Kod2()
Dim NySparaAdress As String
NySparaAdress = ThisWorkbook.Path
MsgBox "path 1 - " & NySparaAdress
If Right(NySparaAdress, 15) = "01 Aktuell Pärm" Then
NySparaAdress = Left(NySparaAdress, Len(NySparaAdress) - 15) & "02 Aktuell checklista"
MsgBox "path 2 - " & NySparaAdress
End If
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NySparaAdress & "Fullständigt checklista - " & Range("C1"), OpenAfterPublish:=False
End With
Application.ScreenUpdating = False
End Sub
W jaki sposób, zapisać ścieżkę w poniższej linii?
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NySparaAdress & "Fullständigt checklista - " & Range("C1"), OpenAfterPublish:=False |
wstecz 1 dalej
otwarty rozpoczął: jamanow
postów: 3
