(16/10/2020, 12:47)ozanakkaya yazdı: İlk mesajımda "Microsoft Office XX.0 Object Library" şeklinde belirttim. Buradaki XX ofis versiyonuna göre değiştiği için bu şekilde yazdım. "Microsoft Office 16.0 Object Library" referansını ekleyip denediniz mi? Access veya farklı bir isim değil, referansın tam ismi sizin ofis versiyonunuzda "Microsoft Office 16.0 Object Library"

hmm o anlama geliyor, bilmiyordum bunu da öğrenmiş oldum, neyse bende 16.0 var ve işaretledim onu zaten fakat hataya devam ediyor.

Yazdığınız kod ile bu işlemi gerçekleştiremezsiniz.


Forma Metin1 adında Metin kutusu ekle, butonun tıklandığında olayındaki koda da

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

 



If fDialog.Show = -1 Then

   Me.Metin1 = fDialog.SelectedItems(1)

End If

kodu ekle. Butonu tıklayıp pencereden dosya seçtiğinizde dosyayı dizini ile birlikte Metin kutusuna yazacaktır.

Çok teşekkür ederim, acemilik zor, ama acemilikten kurtulmak için çaba sarf etmek acemiliği zor kılmamalı, yazdıklarınızı kavramak ve öğrenmek adına önce iyice inceliyor, tek tek elle yazıyorum , """önce yüklenen özellikten bir nesne oluşturup onu set etmemiz gerekiyor, sonra geriye -1 değerini gönderen (anlıyoruz ki çalışıyor) metodumuzun değerine göre şartlı v.s. argümanlarımızı yazıyoruz, anladım..."""", çok teşekkür ederim sayın ozanakkaya, kolaylıklar diliyorum.