Pada dasarnya, kami melakukan ini adalah dengan membuka file saja. Jadi ga da yang aneh ketika kami waktu serta melalui buka untuk membuka file. Perbedaannya hanya jika kita belajar untuk menggunakan listing. Langkah sebagai berikut:

Private Sub Command1_Click ()
Dim i As integer
Dim j As integer
Dim k As integer

j = Val (Text2.Text) k = Val (Text3.Text)

Set xlBook = GetObject (Text1.Text)

List1.Clear
Untuk i = 1 sampai k
List1.AddItem xlBook.WorkSheets (1). Sel (i, j). Nilai
Berikutnya
End Sub

Private Sub Dir1_Change ()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change ()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click ()
File1.Path = Text1.Text & "\" & File1.FileName
End Sub

Private Sub Form_Load ()
File1.Pattern = "*. xls"
End Sub