求讀取Excel的方法(從其中的第几列開始讀)?

[ggygd]

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行開始讀,怎樣實現? 謝謝

[linpihong]

你已经把excel表读到DataSet，其他操作就在DataSet完成不就可以了

[handysoft]

第二行,第三列开始读

Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT *
　　　FROM [Sheet1$2:3]",myOleDbConnection)

[ggygd]

謝謝几位,方法都能實現~~

[ggygd]

我是菜鳥~還不知道怎什麼給分呢~~

[ggygd]

其實就是不知道那sql語句怎麼寫?

;(SELECT * FROM [Sheet1$]",myOleDbConnection) 這樣寫是從第2行讀起~~

[ggygd]

急啊!在線等~~

[copico]

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

[peilianhai]

yun