Load Data MS.Excell

by Peter Elisa Souhoka (21 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 16^th May 2008
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Load Data MS.Excell

Rate Load Data MS.Excell



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

Download this snippet Add to My Saved Code

Load Data MS.Excell Comments

No comments have been posted about Load Data MS.Excell. Why not be the first to post a comment about Load Data MS.Excell.

Load Data MS.Excell

Load Data MS.Excell Comments

Post your comment

Difficulty