- Katılım
- 27 Mayıs 2024
- Mesajlar
- 7
- Excel Vers. ve Dili
- Microsoft® Excel® für Microsoft 365 MSO (Version 2308 ) 32 Bit
Suan yazdigim kod ile istedigim araligi Pdf sekline getirip bilgisayarda C dosyama kaydedebiliyorum ancak internet üzerinde ortak calisma alanina kaydetmek istiyorum, Bunun icin nasil bir yol incelemeliyim? Ortak calisma alani linkini ekledigimde kod calismamakta.
Sub aktiveSeiteAlsPDFSpeichern()
' Den Dateinamen und den Speicherort festlegen
Dim dateiname As String
Dim pfad As String
dateiname = "Anwesenheit"
pfad = "C:\Arsiv" ' Ändern Sie diesen Pfad nach Ihren Wünschen
' Aktuelles Datum als String formatieren
Dim datumString As String
datumString = Format(Date, "yyyyMMdd") ' Format: JJJJMMTT
' Den Dateinamen mit dem Datum erstellen
Dim dateiname2 As String
dateiname2 = dateiname & "_" & datumString & ".pdf" ' Dateiname und Erweiterung anpassen
' Bereich A1 bis M16 als PDF exportieren
ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2
' Optional: PDF-Datei in einem neuen Fenster öffnen
' Application.FollowHyperlink pfad & "\" & dateiname2
End Sub
Sub aktiveSeiteAlsPDFSpeichern()
' Den Dateinamen und den Speicherort festlegen
Dim dateiname As String
Dim pfad As String
dateiname = "Anwesenheit"
pfad = "C:\Arsiv" ' Ändern Sie diesen Pfad nach Ihren Wünschen
' Aktuelles Datum als String formatieren
Dim datumString As String
datumString = Format(Date, "yyyyMMdd") ' Format: JJJJMMTT
' Den Dateinamen mit dem Datum erstellen
Dim dateiname2 As String
dateiname2 = dateiname & "_" & datumString & ".pdf" ' Dateiname und Erweiterung anpassen
' Bereich A1 bis M16 als PDF exportieren
ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2
' Optional: PDF-Datei in einem neuen Fenster öffnen
' Application.FollowHyperlink pfad & "\" & dateiname2
End Sub