Klasör Arama Ve Pdf Kaydetme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Klasör Arama Ve Pdf Kaydetme (/konu-klasor-arama-ve-pdf-kaydetme.html) Sayfalar:
1
2
|
RE: Klasör Arama Ve Pdf Kaydetme - fenerli6774 - 19/12/2022 sorduğum sorunun cevabını buldum: herkese teşekkür ederim iyi çalışmalar. Dim i As Long Dim klasor, bak, anaklasor_kontrol, altklasor_kontrol, dosya, altdosya_kontrol Dim ana_klasor As String, alt_dosya As String, dosya_yolu As String Set klasor = CreateObject("Scripting.FileSystemObject") ana_klasor = ThisWorkbook.Path & "\DENEME\" anaklasor_kontrol = klasor.FolderExists(ana_klasor) If anaklasor_kontrol <> True Then klasor.CreateFolder ana_klasor End If Rapor.Cells(1, 2) = "Denemepdf" Rapor.Cells(1, 3) = "Deneme" Rapor.Cells(1, 4) = "ALtKlasörü" Rapor.Cells(1, 5) = "Bir" alt_klasor = ana_klasor & Rapor.Cells(1, 3) & "-" & Rapor.Cells(1, 4) & "-" & Rapor.Cells(1, 5) altklasor_kontrol = klasor.FolderExists(alt_klasor) alt_dosya = Rapor.Cells(1, 2) If altklasor_kontrol <> True Then klasor.CreateFolder alt_klasor Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook \ alt_klasor & pdfdosya_adı Else dosya_yolu = "ThisWorkbook.Path\DENEME\alt_klasor\" Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & alt_dosya & ".pdf" End If RE: Klasör Arama Ve Pdf Kaydetme - atoykan - 19/12/2022 (17/12/2022, 22:39)fenerli6774 yazdı: Hepinize iyi çalışmalar. Yaklaşık 4 gün önce bir konu açtım. Fakat bir yardım bulamadım. Bir yanlışımız mı oldu. Yoksa Excel konuları ile ilgilenilmiyor mu? Bir sıkıntı varsa söyleyiniz. Ya ben bir açıklama yaparım. Yada acaba cevap verilmiş mi diye günde 10 defa açıp bakmam. Teşekkür ederim iyi çalışmalar. Yoksa Excel konuları ile ilgileniyor mudan başlayıp burada hiçbir karşılık beklemeden yardımcı olmaya çalışan insanlara hesap sorar tarza girer, söyleyiniz direktifine kadar giderseniz aldığınız cevap o minvalde olur. Yaklaşık 30 yıldır yazılım sektöründeyim, kendimi bildim bileli bilgisayardayım, hem F hem Q klavyeyi de 10 parmak kullanırım, o yüzden sizin 10 dakika sandığınız yazıyı yazmam 30 saniyemi alıyor. Günde 10 defa cevap verildi mi diye tek bir sorunuz için açmak size çok zor geliyor biz günde 10 defa açıp 10 farklı sorun çözüyoruz. Konunuzu takibe alırsanız mailinize cevap geldiğinde bildirim gelir o zaman açar bakarsınız çok büyük zahmete girmezsiniz böylece. |