使用VB编写DLL读取EXECL，该如何做？

[wuzhilin]

使用VB编写DLL读取EXECL，该如何做？

兄弟以前是做JAVA的，临时被拉来搞这个东西，摸不着头脑啊
各位帮帮忙

[东方之珠]

请参见顶级高手写的Excel操作类
http://blog.csdn.net/modest/MyArticles.aspx

[wuzhilin]

哥们，这个是VB.NET的啊
据说VB6和VB.NET还是有差别的撒

[东方之珠]

是一样的。并没有用到.NET技术。不信你试试!

[wuzhilin]

Namespace ExcelEdit

命名空间好象是.NET中才有的吧？

[东方之珠]

哦，对不起，看错了。

[wuzhilin]

哥们，谢谢你了，帮我找了这么多资料
不过，我要的是使用VB6编写DLL来控制EXCEL，是写一个插件，而不是写一个.EXE

请各位高手看过来啊。。。。。。。。。

[hjessica]

Dim xlApp As Excel.Application‘excel 服务
Dim xlbook As Excel.Workbook’excel workbook
Dim xlSheet As Excel.Worksheet‘excel sheet

Set xlApp = CreateObject("Excel.application")
Set xlbook = xlApp.Workbooks.Open(strName)
Set xlSheet = xlbook.Sheets(strSheet) 

后面的就可以对xlSheet 进行操作了

[wuzhilin]

不要沉，大家帮帮忙啊

[东方之珠]

这个应该没问题。
用VB6操纵Excel文档执行操作 http://blog.csdn.net/electricperi/archive/2007/05/01/1594126.aspx

[东方之珠]

这还有一个：
VB6操作EXCEL2003的小程序 http://bbs.pans.net.cn/topic.aspx?topicid=92

[东方之珠]

这个很完整：
用VB6操纵Excel文档执行操作 http://wangli12a.blog.163.com/blog/static/7796125200765104847897/

[rexyudl]

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String

rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn

[wuzhilin]

这几天忙着写另外一个报表去了
现在继续问这个问题

TO：RESYUDL

你的代码是不是可以直接打开一个EXCEL文档？
如果我想调试或者说是想看看效果怎么进行？

[rexyudl]

把我名字打错了！
你只要把它EXCEL当作数据源，把内容显示到表格空间里就好了。改完之后再给存回去！