Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
makro zapisz jako pdf
24 views
Skip to first unread message
bartosz....@gmail.com
Dec 5, 2016, 2:27:25 PM12/5/16
to
Witam
posiadam plik z fv dla wszystkich odbiorców i chciałbym aby każdy arkusz zapisywał sie jako osobny pdf. jak narazi doszedłąm jak zapisać każdy arkusz jako exel:
Sub KopiujArkusze()
Dim i As Integer
Dim FolderZapisu As String
'Wskaż folder do zapisu
FolderZapisu = "W:\Faktury\"
For i = 1 To Sheets.Count
Sheets(i).Copy
Excel.Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:=FolderZapisu & ActiveSheet.Name, _
FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
End With
Next i
MsgBox ("Wszystkie pliki zostały zapisane w folderze: " & FolderZapisu & vbNewLine & "Łączna liczba utworzonych plików: " & Sheets.Count)
End Sub
może ma ktoś pomysł jak zmienić to aby zapisywały sie jako pdf
posiadam plik z fv dla wszystkich odbiorców i chciałbym aby każdy arkusz zapisywał sie jako osobny pdf. jak narazi doszedłąm jak zapisać każdy arkusz jako exel:
Sub KopiujArkusze()
Dim i As Integer
Dim FolderZapisu As String
'Wskaż folder do zapisu
FolderZapisu = "W:\Faktury\"
For i = 1 To Sheets.Count
Sheets(i).Copy
Excel.Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:=FolderZapisu & ActiveSheet.Name, _
FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
End With
Next i
MsgBox ("Wszystkie pliki zostały zapisane w folderze: " & FolderZapisu & vbNewLine & "Łączna liczba utworzonych plików: " & Sheets.Count)
End Sub
może ma ktoś pomysł jak zmienić to aby zapisywały sie jako pdf
0 new messages