在VB中操控EXCEL？

[scxs]

请教在VB中如何直接打开一EXCEL文件并导入数据、字段到ACCESS.MDB库中或SQLSERVER？

[titan90]

用DTS导入SQL SERVER试试呢，

[scxs]

SQL的dts可以，我想用VB代码控制，可否给出代码。谢！

[lxcc]

用代码方式
SQL：OPENROWSET
ACCESS：逐条记录导吧

[ukyoxh]

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim file As String '保存excel文件的绝对路径

file = App.path & "\你的excel文件.xls"

Set xlapp = New Excel.Application
'Set xlapp = CreateObject("excel.Application")
'xlapp.Visible = False '''''隐藏excel
Set xlbook = xlapp.Workbooks.Open(file)
xlbook.Application.DisplayAlerts = False


With xlbook.Sheets(1)
'在这里控制excel的数据
'例如
.cells(row,col)'表示在excel里哪行哪列的数据,你可以用一个循环把他们读入和操作
end with

[csdnmzk]

SQLSERVER和ACCESS都有自带的数据导入工具吖,你自己再看看

[axiao5137]

http://expert.csdn.net/Expert/topic/2457/2457457.xml?temp=.1645471

[scxs]

我是想通过VB代码直接导入？

[BTbug]

如果在这个Excel文件中有多个工作表的话，又要如何对某个工作表进行操作？？
菜鸟虚心学习中。。。

[ukyoxh]

With xlbook.Sheets(1)
把这个句子中的1改成工作表的编号啊

With xlbook.Sheets(工作表的编号)