Open Dialog Penceresini kullanmak

[isakarakus]

merhaba arkdaşlar
bu kodu ecde excel 2002 de yazdım güzel de çalıştı fakat
ama işyerinde excel2000 de çalıştıramadım, excel komutları tanımadı, yardımda da yok,

bu işlemi excel 2000 de yapcak bir komut biliyor musunuz?

[vb:1:5ef2cbff48]Private Sub resimekle_Click()
On Error Resume Next

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\"
.AllowMultiSelect = False
.Filters.Add "Jpg resimleri", "*.jpg", 1
If .Show = -1 Then MsgBox .SelectedItems(1)
End With
End Sub[/vb:1:5ef2cbff48]

amacım, open dialog ile seçilen dosyanın adını, adresini almak.

 

[bykursat]

Olmayabilir

Excel 2000'de "Application.FileDialog(msoFileDialogFilePicker)" komtunu içine alan REFERANS olmayabilir.

 

[ALPEN]

filedialog Excel 2000'den sonraki sürümler icin gecerli.

 

[isakarakus]

sn.ALPEN,
:agla:
yapma yaa,
napcaz şimdi,
altternatif bir yol var mı?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:efb969c1fd]Sub resimcagir()
Dim Dosya As Variant
Dosya = Application.GetOpenFilename("Jpg resimleri,*.jpg)")
If Dosya = False Then Exit Sub
Workbooks.Open (Dosya)
End Sub
[/vb:1:efb969c1fd]

 

[isakarakus]

sn.leventm,
büyük adamsın.
çok teşekkür ederim. :dua:

ben de artık baştan sona open dialog formu oluşturmayı tasarlıyordum.
:x

 

[ALPEN]

Aşağıdaki kodu deneyin.


visual basic kodu:

Sub resimcagir()
Dim Dosya As Variant
Dosya = Application.GetOpenFilename("Jpg resimleri,*.jpg)")
If Dosya = False Then Exit Sub
Workbooks.Open (Dosya)
End Sub

Süper alternatif. Tebrikler.

 

[Levent Menteşoğlu]

Rica ederim. Sorununuzu çözdüğüne sevindim. Ama büyük olan ben değil forumumuzdur. Bu kodu bende forumdan öğrenmiştim.

 

[danersin]

amacım, open dialog ile seçilen dosyanın adını, adresini almak.

Bunu görünce şey düşündüm, doğrudan tüm JPG leri yolu ile birlikte listbox'a yazdırıp ordan seçtirebilirsin.

[vb:1:46b222ba6e]Private Sub UserForm_Initialize()
Dim MyFolder As String, MyFile As String
MyFolder = "C:\101CAMEA"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.jpg", vbDirectory)
Do While MyFile <> ""
ListBox1.AddItem MyFolder & "\" & MyFile
MyFile = Dir
Loop
End Sub[/vb:1:46b222ba6e]

 

[isakarakus]

sn.danersin,
ben de bu yöntemi deneyecektim.
gerçi kodları da düşünmemiştim henüz ama
yöntem bu olacaktı.

neyse leventm, sorunumu halletti sağ olsun.

 

[danersin]

Levent beyin tevazu göstermesine bakmayın, birçok yönden en büyük olduğuna ben şahidim. :hey:

 

[Levent Menteşoğlu]

Ya yapmayın arkadaşlar beni utandırmayın , sözlerim mütevaziliğimden değil, gerçek düşüncemdir. Bende bir çok üyemiz gibi forumumuzdan öğreniyor,öğrendiklerimi uyguluyor ve bunu sizlerle paylaşıyorum, herşey bundan ibaret. Büyük olan gerçekten karşılıksız yardımlaşma duygusudur. Ã?yle olmasaydı forumumuz bu kadar büyüyemezdi. :arkadas: