Read Data from Excel (VB Code)
Private Sub cmd_browse_Click() On Error Resume Next Dim FNum As Integer Dim txt As Recordset On Error GoTo FileError CommonDialog1.CancelError = True CommonDialog1.Flags = cdlOFNFileMustExist CommonDialog1.DefaultExt = “xls” CommonDialog1.Filter = “Excel file|*.xls|*.*” CommonDialog1.ShowOpen FNum = FreeFile pathtxt.Text = CommonDialog1.FileName Close #FNum Dim cnExcel As New ADODB.Connection Dim rs As New
» Read more