VB关于excel操作的实例
这里为大家带来一篇VB关于excel操作的实例。希望对您的学习有帮助，具体参考描述如下：
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253Imports System.Data.OleDbPublic Class Form1 Private _FilePath As String = \ Private _DS As DataSet Private Const _Connectstring = \Source=<FilePath>;Extended Properties=\ Private Const _SelectData = \[<TableName>$]\ Private Sub
TSBSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBSelectFile.Click Me.OFDExcel.FileName = _FilePath If Not
Me.OFDExcel.ShowDialog(Me) = vbOK Then Exit Sub End If _FilePath = Me.OFDExcel.FileName Me.TSLFilePath.Text = _FilePath Try Using cn As OleDb.OleDbConnection = New
OleDbConnection(_Connectstring.Replace(\_FilePath)) cn.Open() _DS = New DataSet Dim tb As DataTable =
cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) Me.TSCBOSheetList.Items.Clear() For Each r As DataRow In tb.Rows If r(\\
Me.TSCBOSheetList.Items.Add(r(\
Replace(\ End If Next If Me.TSCBOSheetList.Items.Count > 0 Then Me.TSCBOSheetList.SelectedIndex = 0 End If End Using Catch ex As Exception
MsgBox(ex.Message) End Try End Sub Private Sub TSCBOSheetList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
TSCBOSheetList.SelectedIndexChanged Try Dim TBName As String =
Me.TSCBOSheetList.SelectedItem.ToString If _DS.Tables.Contains(TBName) Then
Me.DataGridView1.DataSource = _DS.Tables(TBName) Exit Sub End If Using cn As OleDb.OleDbConnection = New
OleDbConnection(_Connectstring.Replace(\_FilePath)) cn.Open() Dim sql As
String = _SelectData.Replace(\
Using ad As OleDbDataAdapter = New OleDbDataAdapter(sql, cn) ad.Fill(_DS, TBName) Me.DataGridView1.DataSource = _DS.Tables(TBName) End Using End Using Catch ex As Exception MsgBox(ex.Message) End Try End SubEnd Class