+- 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ığı: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. (/konu-pdf-dosyasini-userform-uzerinde-resim-gibi-gostermek-ve-klasore-kaydetmek-istiyorum.html)
Sayfalar:
1
2
RE: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. - Oğuz Türkyılmaz - 25/05/2022
Hocam siz kusura bakmayın rica ederim. Sayenizde bir şeyler öğreniyoruz. Ben kodu aşağıdaki gibi düzenledim ve çalıştırdım. Fakat yapmak istediğim şey tam olarak seçeceğim PDF dosyasını Aşağıdaki Kodda Belirttiğim klasöre yani "D:\KT GRUP\POLİÇELER_PDF\" klasörünün içine kopyalamak ve bu yolu Textbox_DosyaYolu.text ine yazdırmak. Şu anda seçtiğim dosyanın yolunu textboxa yazdırıyoruz. Fakat ben bu işlem bitince dosyayı aldığım konumdan sileceğim çünkü olması gereken konuma taşıdım zaten masaüstünde yada her neredeyse orda bulunmasına gerek yok artık. Daha sonra form üstündeki butona tıklayarak bu yeni dosya yolunda bulunan pdf yi tarayıcıda açacağım. Yardımlarınız için minnettarım. Çok teşekkürler.
Kod:
Private Sub PdfYukle()
Dim DSec As FileDialog, SPath As String
Set DSec = Application.FileDialog(msoFileDialogFilePicker)
DSec.AllowMultiSelect = False
DSec.Title = "Dosya Seçiniz"
DSec.InitialFileName = "D:\KT GRUP\POLİÇELER_PDF\"
DSec.Filters.Add "PDF Dosyaları", "*.pdf"
If DSec.Show = -1 Then
SPath = DSec.SelectedItems(1)
Me.TextBox_DosyaYolu.Text = SPath
Else
MsgBox "İşlem İptal Edildi..."
Exit Sub
End If
End SubRE: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. - atoykan - 25/05/2022
2. mesajda verdiğim örnek kod ile dosyanızı istediğiniz yere taşır, istediğiniz gibi isimlendirirsiniz. Dosya yolunu atadığınız textbox orjinal dosyanızın adresi taşımak istediğiniz dosya yoluna bu kodları ekleyip istediğiniz isim ile kaydetmeniz için size referans teşkil etmesi içindi.
Dosya yolunuz belli yani 2. mesajdaki Spath tespit edilmiş
Siz hedef yolu (Dpath) (anladığım kadarı ile D:\KT GRUP\POLİÇELER_PDF\) belirleyip bu dosyayı oraya kriterlerinize göre adlandırarak kaydedebilirsiniz bu noktadan sonra.
RE: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. - atoykan - 25/05/2022
Dim DSec As FileDialog, SPath, DPath As String, objFSO
Set DSec = Application.FileDialog(msoFileDialogFilePicker)
Set objFSO = CreateObject("Scripting.FileSystemObject")
DSec.AllowMultiSelect = False
DSec.Title = "Dosya Seçiniz"
DSec.InitialFileName = "C:\" '==>burada yazacağınız adres dosya seçmek için açılır
DSec.Filters.Add "PDF Dosyaları", "*.pdf"
If DSec.Show = -1 Then
SPath = DSec.SelectedItems(1)
DPath = "D:\KT GRUP\POLİÇELER_PDF\"
objFSO.MoveFile SPath, DPath
Me.TextBox_DosyaYolu = DPath & objFSO.GetFileName(SPath)
Else
MsgBox "İşlem İptal Edildi..."
Exit Sub
End If
End SubBu kod ile sırası ile açılan klasörden pdf dosyanızı seçersiniz, seçtiğiniz dosya D:\KT GRUP\POLİÇELER_PDF\ hedefine taşınır silmenize gerek kalmaz, Textbox_DosyaYolu'na yeni dosya adresi yazılır, dosya seçiminde iptal edilirse tüm işlem iptal edilir. Yapmak istediğiniz bu mudur açıkçası çok net anlamadım ne ifade etmek istediğinizi.
RE: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. - Oğuz Türkyılmaz - 25/05/2022
@atoykan Hocam aynen anladığınız gibi yapılmak istenen. Akşam eve geçince deneyip bilgilendireceğim. Çok Çok teşekkür ederim.
RE: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. - Oğuz Türkyılmaz - 26/05/2022
(25/05/2022, 09:58)Oğuz Türkyılmaz yazdı: @atoykan Hocam aynen anladığınız gibi yapılmak istenen. Akşam eve geçince deneyip bilgilendireceğim. Çok Çok teşekkür ederim.
@atoykan hocam dün mesaj atıp teşekkür edip konuyu kapatabilirsiniz demiştim ama o mesaj uçmuş. Tekrar teşekkür ederim. Konuyu kapatabilirsiniz.
RE: Pdf Dosyasını Userform Üzerinde Resim Gibi Göstermek Ve Klasöre Kaydetmek İstiyorum. - atoykan - 26/05/2022
Rica ederim Oğuz Bey, iyi çalışmalar