Aşağıdaki örneği ben kendime uyarlamaya çalıştım olmadı.
Ben "'C:\cari-a1\[cari.xls]ANASAYFA' nın "B5:B50" aralığını almak istiyorum.Bunu ListBox ta listelemek istiyorum.Kodları nasıl düzenlemem gerekir.
ListBox1.AddItem ExecuteExcel4Macro(MyArg & "C1") kodlarını
ListBox1.AddItem ExecuteExcel4Macro(MyArg & "B5")
olarak değiştirdim olmadı.
Yardımcı olursanız sevinirim.
Teşekkürler.
Ben "'C:\cari-a1\[cari.xls]ANASAYFA' nın "B5:B50" aralığını almak istiyorum.Bunu ListBox ta listelemek istiyorum.Kodları nasıl düzenlemem gerekir.
Kod:
Private Sub UserForm_Initialize()
Dim MyArg As String
Dim i As Integer
For i = 2 To 50
MyArg = "'C:\cari-a1\[cari.xls]ANASAYFA'!R" & i
ListBox1.AddItem ExecuteExcel4Macro(MyArg & "C1")
Next
End Sub
ListBox1.AddItem ExecuteExcel4Macro(MyArg & "B5")
olarak değiştirdim olmadı.
Yardımcı olursanız sevinirim.
Teşekkürler.