VB关于excel操作的实例

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

本文来源：https://www.bwwdw.com/article/ta9o.html