■·■200分！如何获取Excel文件中的信息等■·■

kmzs 2004-11-12 11:51:38

最好不打开或引用Office，只能得到文本也行。

另外100分：http://community.csdn.net/Expert/TopicView1.asp?id=3539733

...全文

220 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxjlz 2004-11-19

打赏
举报

顶一下

wwqna 2004-11-19

打赏
举报

ADO的方法不错

Abyss-Xu 2004-11-19

打赏
举报

wenhongL 2004-11-19

打赏
举报

顶顶
我顶两下

creazyfish 2004-11-19

打赏
举报

顶一下吧呵呵

kmzs 2004-11-15

打赏
举报

要是想一行一行得出呢？

韧恒 2004-11-15

打赏
举报

同意ADO的方法

haohaohappy 2004-11-15

打赏
举报

Public Sub main()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\book1.xls;Persist Security Info=False;User ID=Admin;Password=;Extended properties=Excel 5.0"
cn.CursorLocation = adUseClient
cn.Open
rs.Open "SELECT * FROM [Sheet1$]", cn, adOpenDynamic, adLockBatchOptimistic
MsgBox rs.RecordCount
rs.MoveFirst
Do While rs.EOF <> True
MsgBox rs.Fields.Item(0).Name
MsgBox rs.Fields.Item(0).Value
rs.MoveNext
Loop
If rs.State <> adStateClosed Then rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

richtext控件可以吧

kmzs 2004-11-15

打赏
举报

用richtext控件也可以得到的？

51365133 2004-11-14

打赏
举报

可以用把它连接到数据库上得到里边的内容的！！

ado 就行

还有就是用richtext控件也可以得到的！！

lfeng273 2004-11-14

打赏
举报

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
strsource = "c:\excel\book1.xls"（你的文件路径）

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)
string temp=xlsheet.cell(0,0)等等
据可以读出数据来

creazyfish 2004-11-14

打赏
举报

可以考虑把excel当成txt文本的形式阿，excel的内容格式是有规律

aohan 2004-11-14

打赏
举报

可否参考用SQL这样的方式
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

hxy2003 2004-11-14