Ekli excelde PDF dosyalarını bulmamı sağlayan bir form var.
Her gün dosyanın bulunduğu yerde arşivden D1 ile D36 arasında pdf dosyası çok zaman alıyor.
Sizden adındaki D1 ve D36 adından bahseden her şey listesindeki listelemeniz veya bu dosyaları (T:\AB\8_MOULD\MOULD_INF\1_MOULD_PDF\DAY) adındaki bir arama incelemeniz ve isminden bahseder. sorun.
Her gün dosyanın bulunduğu yerde arşivden D1 ile D36 arasında pdf dosyası çok zaman alıyor.
Sizden adındaki D1 ve D36 adından bahseden her şey listesindeki listelemeniz veya bu dosyaları (T:\AB\8_MOULD\MOULD_INF\1_MOULD_PDF\DAY) adındaki bir arama incelemeniz ve isminden bahseder. sorun.
VBA Code:
Seçenek Açık
Özel Alt KomutButton1_Click()
Dize Olarak Pdf_File Dim
Pdf_File = Me.TextBox1
Application.ScreenUpdating = Yanlış
Me.WebBrowser1.Navigate "T:\BA\8_MOULD\MOULD_INF\1_MOULD_PDF"
Eğer Pdf_File <> "" O zaman
Me.WebBrowser1.Document.Write "<HTML><Body><embed src=""" & Pdf_File & _
""" width=""%100"" height=""%100"" /></Body></HTML>"
Ben.WebBrowser1.Yenile
Bitir
Application.ScreenUpdating = Doğru
Alt Alt
Alt LİSTE()
dosya = "T:\BA\8_MOULD\MOULD_INF\1_MOULD_PDF"
CreateObject("Shell.Application").Open
Alt Alt
Özel Alt Etiket1_Click()
Alt Alt
Özel Alt UserForm_Initialize()
Me.Caption = "Kullanıcı Formu PDF"
Alt Alt
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Alt Alt
[/KOD]
