导航
  • 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

求讀取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行開始讀,怎樣實現? 謝謝
...全文
186 点赞 收藏 9
写回复
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完成不就可以了
回复
发动态
发帖子
VB
创建于2007-09-28

1.5w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
社区公告
暂无公告