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

ggygd 2006-04-19 11:41:47
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行開始讀,怎樣實現? 謝謝
...全文
234 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
ggygd 2006-04-19
  • 打赏
  • 举报
回复
急啊!在線等~~
ggygd 2006-04-19
  • 打赏
  • 举报
回复
其實就是不知道那sql語句怎麼寫?

;(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)
linpihong 2006-04-19
  • 打赏
  • 举报
回复
你已经把excel表读到DataSet,其他操作就在DataSet完成不就可以了

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧