vb打开服务器excel文件路径,咨询下VB如何打开EXCEL文件并将内容显示在listbox中

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

'　Adodc + DataGrid 控件直接连接 Excel 表格，

'　把 Excel 表格当成数据库。

'　在窗体中画出 Adodc1 和 DataGrid1 两个控件，

'　不做任何属性设置，只管大小和位置。

'　-------------------------------------------

Option Explicit

Public mPath As String '　程序所在的绝对路径

Public mLink As String '　数据库连接字符串

Public mSQL As String '　ＳＱＬ命令字符串

Public mWJ As String '　Excel2003版本文件名

Private Sub 连接数据()

'　连接数据库表装入数据并刷新记录集

Adodc1.ConnectionString = mLink

Adodc1.CommandType = 8

Adodc1.EOFAction = 2

Adodc1.RecordSource = mSQL

Adodc1.Refresh

'　将数据填表并刷新表格控件

Set DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

Private Sub 连接参数()

'　构成连接 Excel2003 表格命令：mLink

mLink = "Provider = Microsoft.Jet.OLEDB."

mLink = mLink & "4.0; Persist Security "

mLink = mLink & "Info = FALSE; "

mLink = mLink & "data source = " & mWJ

mLink = mLink & "; extended properties "

mLink = mLink & "= Excel 8.0"

'　构成 SQL－SELECT 语句格式

mSQL = "Select * From [Sheet1$]"

End Sub

Private Sub Form_Load() '　初始化模块

mPath = App.Path '　获取程序所在的路径

If Right(mPath, 1) <> Chr(92) Then

mPath = mPath & Chr(92)

End If

Adodc1.Visible = False

mWJ = mPath & "相对路径\Excel2003文件名.XLS"

Call 连接参数 : Call 连接数据

End Sub