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 ADODB.Recordset With cnExcel .Provider = “Microsoft.Jet.OLEDB.4.0” ‘.ConnectionString = “Data Source=” & App.Path & “Contact.xls;” & “Extended Properties=Excel 8.0;” .ConnectionString = “Data Source='” & pathtxt.Text & “‘;Extended Properties=Excel 8.0;” .Open End
» Read more