excel dosyası açıp veri alma

[halilsoft]

çalıştığım excel sayfasından verilerin olduğu bazı excel dosyalarını açıpı istediğim kriterlere uygun verilei almayı düşünüyorum. forumda bulamadım...
öncelik dosyayı açmaya yönelik zannediyorum gerisini ben hallderim..
Şimdiden teşekkürler...

 

[halilsoft]

istediğim resimdeki diyolog penceresinin açılması ve içindeki herhangi bir excel sayfasın açıp ordaki verileri almak istiyorum.

 

[halilsoft]

özür dilerim resim eklenmemiş galiba

 

[Haluk]

Sub Test()
    MyFile = Application.GetOpenFilename("Excel dosyalari (*.xls), *.xls", , "Dosya secin....")
    If Not MyFile = False Then
        MsgBox "Dosya yolu : " & vbCrLf & MyFile
        MsgBox "Dosya adi :" & vbCrLf & Dir(MyFile)
        Set MyWb = Workbooks.Open(MyFile)
    Else
        MsgBox "Dosya secilmedi..."
    End If
End Sub

 

[halilsoft]

syn haluk çok teşekür ederim ellerine sağlık