Ambil data beda file

  1. 2 bulan yang lalu

    Mohon bimbingan nya suhu excel
    rumus dibawah ambil data dalam satu file!!

    Private Sub DaftarBarang()
        ListBox3.List = Sheets("daftarbarang").Range("A1:C" & Sheets("daftarbarang").Range("A" & Rows.Count).End(xlUp).Row).Value
    End Sub



    bagaimana agar bisa ambil di file dan sheet yang berbeda

    thx

  2. manweljs_

    Jul 12 Terverifikasi + 5.020 Poin

    @Mr.P

    coba skrip ini

    Private Sub DaftarBarang()
    Dim wb As Workbook, ws As Worksheet
    Dim xl As Application
    
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open("C:\Users\user\Desktop\tes.xlsx") ' ganti nama lokasi dan nama filenya
    Set ws = wb.Sheets("daftarbarang")
    
    With ListBox3
        .ColumnCount = 3
        .List = ws.Range("A1:C" & ws.Range("A" & Rows.Count).End(xlUp).Row).Value
    End With
    
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!