- Katılım
- 3 Mart 2005
- Mesajlar
- 571
- Excel Vers. ve Dili
- Excel 2000 Ing.
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.
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.