Bu, list box nya kok kosong ya ? Maaf Bu, saya tidak kenal dengan pak Rahmat pemilik kasus. Type File yg ingin saya buka adalah XLS dan XLSX.
________________________________ From: i Haps <[email protected]> Sent: Sunday, February 19, 2012 1:56 AM LHO !! Pertanyaan / keinginan tahu - ku ("type FLIE yg akan Anda buka = XLS kah? atau Sembarang FILE") tidak dijawab, malah tanya lagi , piye to iki ?? ya 'dah g p p.... :( Oiya, mungkin mas Keren Group ini = BUKAN pak Rahmat Sadikin /pemilik kasus.. (1) PATH yg anda kehendaki ditulis langsung saja secara manual (in designmode) di property CAPTION milik object Label bernama Lb_Path (2) Module standar dibuang saja (3) Listing code ditulis di module userform (sekarang hanya 3 prosedur) Private Sub UserForm_Initialize() Label3 = "" Dim FSO As Object, Fls As Object, F As Object On Error GoTo Akhir Set FSO = CreateObject("Scripting.FileSystemObject") Set Fls = FSO.GetFolder(Lb_Path).Files ListBox1.Clear For Each F In Fls ListBox1.AddItem F.Name Next Akhir: CommandButton2.Enabled = False End Sub Private Sub CommandButton2_Click() On Error Resume Next Workbooks.Open Filename:=Lb_Path & "\" & Label3 End Sub Private Sub ListBox1_Click() Dim i As Integer Label3 = "" CommandButton2.Enabled = False With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then Label3 = .List(i) Exit For End If Next i End With If Not Label3 = "" _ Then CommandButton2.Enabled = True End Sub 2012/2/18 Group Keren <[email protected]> > kalau boleh tanya lagi, apakah bisa Lb_Path sudah ada di userform tanpa perlu > browse lagi, > dan di list box sudah ada file-nya.
