...dosya adının alınması gereken hücre aralığını belirten kod
Dosyadi = Worksheets("Veri").Range("I2:I10").Value
ActiveSheet
.ExportAsFixedFormat
Type:=xlTypePDF,
Filename:= "Path" & "Dosyadi" & ".pdf"
Quality:=xlQualityStandard,
IncludeDocProperties:=True...
Korhan Bey,
İlginiz için teşekkür ederim. Textbox olarak yazabileceğim (Excel içerisinde) PDF ismini oluşturup belirttiğim dosyaya kaydetmesini sağlayamıyorum bir türlü.
...MsgBox "İşleme devam edebilmeniz için dosya adını girmelisiniz!", vbCritical
Exit Sub
End If
Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=File_Path & File_Name & ".pdf", _
Quality:=xlQualityStandard, _...
...shf2.[G12].Value = shf2.[G33].Value
Set shf2 = Nothing
Set shf2 = Nothing
End Sub
Sub CreatePDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="c:\PDF\" & "deneme _ " & Date & ".pdf"
Application.Wait (Now + TimeValue("00:00:10"))
Dim OutApp As Object...
...Attachments kısmına yada başka bir yere ne gibi bir komut yazabilirim. Kod aşağıdadır.
Sub CreatePDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="\\c::\PDF\deneme.pdf" & "_" & Date
Application.Wait (Now + TimeValue("00:00:10"))
Dim OutApp As Object...
@halit3 ustam merhaba.
Makronuz çalışıyor. Problem yok.
Excel dosyasının olduğu dizindeki word dosyalarını aynı dizine aynı isimle kaydediyor.
Bu işlemi dosyaları browse yöntemiyle seçtirerek yapabilir miyiz? Teşekkür ederim.
...şekilde gayet güzel çalışan makroda hata almaya başladım, nedenini bulamadığım için size sormak istedim.
Hata metni;
Method 'ExportAsFixedFormat' of object '_Worksheet' failed
Hata aldığım satır ise;
S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Dosya_Adi...
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.