• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Load Data MS.Excell

Load Data MS.Excell

Load Data MS.Excell

Rate Load Data MS.Excell

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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
For i = 1 To k
List1.AddItem xlBook.WorkSheets(1).Cells(i, j).Value
Next
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()
Text1.Text = File1.Path & "\" & File1.FileName
End Sub

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