请问 用vb操作excel时怎么查询？

[lololo134]

想用vb对excel实现类似对数据库的操作 比如查询 分组 排序等
请问可以实现么？
该怎么做呢？

[KiteMail]

一样，用SQL语句！

行：1,2,3,.....
列：a,b,c,.....
表名：[Sheet1$],[Sheet2$],[Sheet3$],.....

参考：（Excel数据库连接字符串）
Microsoft.Jet.OLEDB.4.0','Data Source=c:\test.xls;User ID=Admin;Password=;Extended properties=Excel 8.0
直接用opendatasource打开的：
"opendatasource ('Microsoft.Jet.OLEDB.4.0','Data Source=c:\test.xls;User ID=Admin;Password=;Extended properties=Excel 8.0')...[Sheet1$]"

[landlordh]

//新表插入
SELECT * into Table1 FROM
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)

//然后：向已有表插入数据
INSERT INTO Table1
SELECT * FROM OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;
HDR=NO;IMEX=1;database=c:\test2.xls;','select * from [Sheet1$]')

方法2，
使用OpenDataSource进行插入操作,可以实现指定列的插入（同一记录其他列则为NULL）
insert OPENDATASOURCE
('SQLOLEDB','Data Source=服务器ip;User ID=用户名;Password=密码')
.SXSBD.dbo.Table1(字段1,字段2)
SELECT 字段1,字段2
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...sheet1$

[simon8181]

msdn

[DeltaCat]

差不多了

[landlordh]

eg.

Dim myConn As OleDbConnection
Dim myAdaptor As OleDbDataAdapter
Dim ds As New DataSet
Try
myConn = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;data source=" & path) '路径
If myConn.State <> ConnectionState.Open Then myConn.Open()
myAdaptor = New OleDbDataAdapter("Select * From [" & sheet & "$]", myConn) 'sheet 为 工作表名
myAdaptor.Fill(ds, "ExcelData")
Return ds.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
Finally
If myConn.State <> ConnectionState.Closed Then myConn.Close()
End Try