"ExecuteExcel4Macro " yöntemi

[DeliBalta58]

Kapalı kitaptan

[D5]= ExecuteExcel4Macro("'C:\Test\[Kitap1.xls]Sayfa1'!R1C1")

bu kodla
C sürücüsünde Test isimli klasör içindeki Kitap1 'in Sayfa1 A1 hücresindeki veri alınmakta.

Bu yöntemde sürücü belirtmeden C de veya D ye kullanıcı isteğine göre klasör yerini değiştirse "ThisWorkbook.Path & "\kitap1.xls" gibi bir durum sözkonusumu acaba?

 

[Zeki Gürsoy]

ExecuteExcel4Macro("'" & _
  ThisWorkbook.Path & "\[Kitap1.xls]Sayfa1'!R1C1")

 

[DeliBalta58]

Teşekkürler.

 

[DeliBalta58]

TextBox23 = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[kurum.xls]Sayfa1'!R24C2")

Eğer Kahalı kitaptan bilgi aldığımız hücre boşsa Textbox'ta 0 çıkıyor bunu nasıl engelleyebiliriz.
Hücre boşsa Textbox boş kalsın

 

[Zeki Gürsoy]

TextBox23 = IIf(ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[kurum.xls]Sayfa1'!R24C2") = 0, Empty, _
            ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[kurum.xls]Sayfa1'!R24C2"))

 

[DeliBalta58]

Teşekkürler.

 

[DeliBalta58]

Bu şekilde bir döngüde

Sub eczane_listesi()
Dim i As Long
For i = 2 To 100
    Range("B" & i) = _
        ("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i - 1 & "C2")
Next
End Sub

eczane_listesi.xls ye

C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R1C2
C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R2C2
C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R3C2
C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R4C2
C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R5C2

diye yazıyor.
bilgiler gelmiyor.
Nerde yanlış yapıyorum acaba

 

[Zeki Gürsoy]

[/COLOR]
[B][COLOR=red]'[/COLOR][/B]C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R1C2

Dize başındaki(kırmız&#305 tek tırnak işaretini ekleyin.

 

[DeliBalta58]

Yanlış ifade ettim

Sub eczane_listesi()
Dim i As Long
For i = 2 To 100
    Range("B" & i) = _
        ("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i - 1 & "C2")
Next
End Sub

bu kodda ne yapmalıyım
bu kodu kullandığımda sayfaya
C:\Documents and Settings\Şükrü BULUT\Desktop\Ensar_V2\[personel_bilgi.xls]Sayfa3'!R1C2
bunu yazıyor

 

[Zeki Gürsoy]

[LEFT]Sub eczane_listesi()
Dim i As Long
For i = 2 To 100
    Range("B" & i) = ExecuteExcel4Macro ( _
        "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i - 1 & "C2")
Next
End Sub[/LEFT]

 

[DeliBalta58]

Hocam Teşekkürler.

Dim i As Long
sayi = WorksheetFunction.CountA(prs.[B2:B65000])
For i = 2 To sayi
    Range("B" & i) = ExecuteExcel4Macro( _
        "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i & "C2")
Next

döngüyü personelin Ad bilgisi kadar yaptırdım.
Adı B sütunuda Soyadı C sütununda
birleştirmeye çalıştım arada bir boşluk bırakarak olmadı.

 

[Zeki Gürsoy]

[LEFT]Dim i As Long
sayi = WorksheetFunction.CountA(prs.[B2:B65000])
For i = 2 To sayi
  Range("B" & i) = ExecuteExcel4Macro( _
      "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i & "C2") & " " & _
        ExecuteExcel4Macro( _
      "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i & "C3") 
Next[/LEFT]