ThisWorkbook.Worksheets("Anwesenheit IT1").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Users\BKU\faruk\Firma Ismi\Technische Anlagen - Dokumente\General\01 OPEX Board\Archiv\Anwesenheit IT 1\test.pdf" bu sekilde calisiyor.
Ama bu tek kullanicida oluyor baska kullanicilar...
..."\" & dateiname2
Dim istek As Object
Set istek = CreateObject("MSXML2.XMLHTTP")
istek.Open "PUT", dosyaYolu
istek.SetRequestBody ActiveWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat(Type:=xlTypePDF)
istek.Send
MsgBox "Dosya başarıyla ortak alana kaydedildi!"...
...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 &...
...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 &...
Sub test()
Dim pth$, sh$
pth = ThisWorkbook.Path & "\"
sh = Sheets("Sheet1").Range("C8").Value
Sheets(sh).ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
Filename:=pth & sh & ".pdf"
End Sub
...End If
Set shsayfa = Sheets("Bilgi Formu")
yol = ActiveWorkbook.Path & "\" & [A3]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
...EDİN")
Exit Sub
End If
Set shsayfa = Sheets("Bilgi Formu")
yol = ActiveWorkbook.Path & "\" & [A3]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.