Kapalı Dosyadan veri almak

[mozdem]

Örnek dosyam ekte. Sitede kapalı dosyadan veri almak konusunda örnekler var. ancak bazı kısımlarını kendime uyarlayamadım.

Sorum şöyle, Veri alacağım dosyanın sayfa ismi ne ise Kapalı olan dosyanın aynı isimli sayfasından verileri alsın.

'---------
Cells(Satır, Sütun) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[Kapalı.xls]Mart'!R" & Satır & "C" & Sütun & "")

!---------
Kod içinde bir bölümde yukarıdaki satır mevcut.Kapalı Dosyanın yolundaki, Yukarıda "Mart" isimli sayfayı üst satırda değişkene atayarak nasıl yapabilirim.


Şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub VERİ_AL()
    Dim Satır As Long, Sütun As Byte, Son_Satır As Long, Son_Sütun As Byte, Sayfa_Adı As String
 
    Son_Satır = 85 'ExecuteExcel4Macro("CountA('" & ThisWorkbook.Path & "\[Kapalı.xls]Syf$'!C1)")
    Son_Sütun = 33 'ExecuteExcel4Macro("CountA('" & ThisWorkbook.Path & "\[Kapalı.xls]Syf$'!R1)")
    Sayfa_Adı = ActiveSheet.Name
 
    Range(Cells(5, 1), Cells(Son_Satır, Son_Sütun)).ClearContents
 
    Application.ScreenUpdating = False
 
    For Satır = 5 To Son_Satır
        For Sütun = 1 To Son_Sütun
            Cells(Satır, Sütun) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[Kapalı.xls]" & Sayfa_Adı & "'!R" & Satır & "C" & Sütun & "")
        Next
    Next
 
    Temizle
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mozdem]

Teşekkür

Korhan Hocam, Çok teşekkür ederim.
Ellerinize Sağlık

 

[Hasan_32]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub VERİ_AL()
    Dim Satır As Long, Sütun As Byte, Son_Satır As Long, Son_Sütun As Byte, Sayfa_Adı As String
 
    Son_Satır = 85 'ExecuteExcel4Macro("CountA('" & ThisWorkbook.Path & "\[Kapalı.xls]Syf$'!C1)")
    Son_Sütun = 33 'ExecuteExcel4Macro("CountA('" & ThisWorkbook.Path & "\[Kapalı.xls]Syf$'!R1)")
    Sayfa_Adı = ActiveSheet.Name
 
    Range(Cells(5, 1), Cells(Son_Satır, Son_Sütun)).ClearContents
 
    Application.ScreenUpdating = False
 
    For Satır = 5 To Son_Satır
        For Sütun = 1 To Son_Sütun
            Cells(Satır, Sütun) = ExecuteExcel4Macro("'" & [COLOR="Red"]ThisWorkbook.Path [/COLOR]& "\[Kapalı.xls]" & Sayfa_Adı & "'!R" & Satır & "C" & Sütun & "")
        Next
    Next
 
    Temizle
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Üstat ThisWorkbook.Path yerine "E:\Excel Dosyaları\Fabrika\Reports" bu yolu nasıl yazarım? Kitap adınıda değiştirmek istiyorum. Bunu nasıl yaparım. Veriyi alacak olan dosya başka bir sürücüde.

 

[Orion1]

Üstat ThisWorkbook.Path yerine "E:\Excel Dosyaları\Fabrika\Reports" bu yolu nasıl yazarım? Kitap adınıda değiştirmek istiyorum. Bunu nasıl yaparım. Veriyi alacak olan dosya başka bir sürücüde.

İlgili satırı aşağıdaki ile değiştiriniz.Kırmızı olan yerede siz istediğiniz dosya adını yazınız.

Cells(Satır, Sütun) = ExecuteExcel4Macro("'E:\Excel Dosyaları\Fabrika\Reports\[[B][COLOR="Red"]Kapalı.xls[/COLOR][/B]]" & Sayfa_Adı & "'!R" & Satır & "C" & Sütun & "")