1.5w+
社区成员
- 主页
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
求讀取Excel的方法(從其中的第几列開始讀)?
Dim myOleDbConnection As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\test.xls;" & _
"Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT *
FROM [Sheet1$]",myOleDbConnection)
Dim myData As OledbDataAdapter= New
OledbDataAdapter(myOleDbCommand)
如果我要從excel(Sheet1)的A3行開始讀,怎樣實現? 謝謝
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\test.xls;" & _
"Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT *
FROM [Sheet1$]",myOleDbConnection)
Dim myData As OledbDataAdapter= New
OledbDataAdapter(myOleDbCommand)
如果我要從excel(Sheet1)的A3行開始讀,怎樣實現? 謝謝
...全文
请发表友善的回复…
发表回复
peilianhai 2006-04-20
yun
copico 2006-04-19
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Me.txt文件名.Text & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES"""
Dim dcolink As New System.Data.OleDb.OleDbConnection(str)
Dim da As New System.Data.OleDb.OleDbCommand("Select * From [Sheet1$]", dcolink)
Dim dr As OleDb.OleDbDataReader = da.ExecuteReader
Dim i As Integer
Do While dr.Read
i = i + 1
If i > 3 Then
'开始读
End If
Loop
"Data Source=" & Me.txt文件名.Text & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES"""
Dim dcolink As New System.Data.OleDb.OleDbConnection(str)
Dim da As New System.Data.OleDb.OleDbCommand("Select * From [Sheet1$]", dcolink)
Dim dr As OleDb.OleDbDataReader = da.ExecuteReader
Dim i As Integer
Do While dr.Read
i = i + 1
If i > 3 Then
'开始读
End If
Loop
ggygd 2006-04-19
急啊!在線等~~
ggygd 2006-04-19
其實就是不知道那sql語句怎麼寫?
;(SELECT * FROM [Sheet1$]",myOleDbConnection) 這樣寫是從第2行讀起~~
;(SELECT * FROM [Sheet1$]",myOleDbConnection) 這樣寫是從第2行讀起~~
ggygd 2006-04-19
我是菜鳥~還不知道怎什麼給分呢~~
ggygd 2006-04-19
謝謝几位,方法都能實現~~
handysoft 2006-04-19
第二行,第三列开始读
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT *
FROM [Sheet1$2:3]",myOleDbConnection)
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT *
FROM [Sheet1$2:3]",myOleDbConnection)
linpihong 2006-04-19
你已经把excel表读到DataSet，其他操作就在DataSet完成不就可以了