Kapalı dosyadan veri alma

[işsiz123]

Dosya ekte

http://s3.dosya.tc/server10/fi1rsl/Desktop.rar.html

 

[Orion1]

Buyurun.
Dosyanız ektedir.

Private Sub CommandButton1_Click()
Label1.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r1c2")
        
Label2.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r2c2")
Label3.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r3c2")
Label4.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r4c2")
End Sub

 

[işsiz123]

Teşekkürler yarın dener bilgi veririm

 

[Orion1]

Teşekkürler yarın dener bilgi veririm

Rica ederim.
İyi çalışmalar.

 

[işsiz123]

Sayın Orion1 Kodlar sorunsuz çalışıyor tekrar Teşekkürler

 

[Orion1]

Sayın Orion1 Kodlar sorunsuz çalışıyor tekrar Teşekkürler

Rica ederim.
İyi çalışmalar.

 

[işsiz123]

Buyurun.
Dosyanız ektedir.

Private Sub CommandButton1_Click()
Label1.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r1c2")
        
Label2.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r2c2")
Label3.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r3c2")
Label4.Caption = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
        "\[" & TextBox1.Value & ".xlsx]Sayfa1'!r4c2")
End Sub

Sayın Orion1 bir sorum daha var.verileri çekerken Textbox1 'e yanlış isim yazdığımızda ve aynı isimde dosya olmadığı için dosya yolu seçmemizi istiyor.Ben bunun yerine "dosya yolu yok" diye mesaj vermesini istiyorum. Saygılar

 

[Erdem Akdemir]

Merhaba,

Kodun başına aşağıdaki kısmı ilave edebilir misiniz.

If Dir(ThisWorkbook.Path & "\" & TextBox1.Value & ".xls*") = "" Then
MsgBox "dosya yolu yok"
Exit Sub
End If

 

[işsiz123]

Sayın kuvari Teşekkürler