收录日期:2020/08/13 05:39:41 时间:2016/05/18 09:37:43 标签:VB基础类
有一个MyExcel.xls的文件,里边已导出有1000行的内容,如何读写这个文件?
我想在第一行和最后一行加入一些统计数据,求VB代码,谢谢大家
在第一行插入:
    Worksheets("Sheet1").Rows(1).Insert

在第一行插入其他行下移:
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown

在最后插入的类似
macro
发完贴后,我用录制宏的办法,研究生成的代码,目前问题已得到解决,我担心的是移植问题,欢迎大家继续发言。
可以使用ado直接调用EXCEL的数据,而不需要使用ACCESS。 
    Dim oConn As New ADODB.Connection 
    Dim oRS As New ADODB.Recordset 
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
     "Data Source=C:\Book1.xls;" & _ 
     "Extended Properties=""Excel 8.0;""" 
    oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic '打开Sheet1,也可以是定义的名称,或一个Range。 
    .. 
    .. 
    .. 
    oRS.Close 
    oConn.Close 
    更具体的方法可以参考微软的Knowledge Base的文章:“Q278973 xcelADO Demonstrates How To Read/Write Data in Excel Workbooks”。 
    用这个方法调用EXCEL数据是非常快的。

能否用VB的ADO的方法访问Excel文件,如果能该怎样实现?

Dim adoConnection As New ADODB.Connection 
    Dim adoRecordset As New ADODB.Recordset 
    'OLE DB + ODBC Driver 方式: 
    'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls" 
    'Microsoft.Jet.OLEDB.4.0 方式,(建议) 
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=e:\temp\book2.xls;Extended Properties='Excel 8.0;HDR=Yes'" 
     
    adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic 
    Debug.Print adoRecordset.RecordCount 
    Dim i As Integer 
    Do Until adoRecordset.EOF 
     For i = 0 To adoRecordset.Fields.Count - 1 
     Debug.Print adoRecordset.Fields.Item(0).Name 
     Debug.Print adoRecordset.Fields.Item(0).Value 
     Next i 
     adoRecordset.MoveNext 
    Loop 
     
    '注: OLE DB + ODBC Driver 方式不支持以下语句,但 Microsoft.Jet.OLEDB.4.0 方式支持! 
    adoConnection.Execute "insert into [sheet1$](F1) values(3)" 
    adoRecordset.AddNew Array("f1", "f2", "f3", "f4"), Array(1, 2, 3, 4) 

微软的答案:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q278/9/73.asp&NoWebContent=1

有关内存分配后的 获得地址的问题(求教高手) 经理人常范错误——愈世伟博士主讲 升星,散分!!!!!! LAN 密码无效??????????????急急,,, HSL下怎么进行饱和度亮度调节? 请教 问邹建及各位问题!:这条sql语句是不是不能在sql的客户端使用! 如何通过按钮实现WINDOWS窗口的最大,恢复普通,最小化窗口按钮功能,内详! 关于消息传递的问题 网站被黑原因已查明,用是海阳顶端网ASP木马,再次寻求防范方法 怎么让单选按钮在默认情况下是选中的状态 我已经没有分了,各位高手帮帮小弟吧 请问如何编程与iis服务器通信.. eclipse 的自动编译功能失效...急啊>>>>>在线等 文本文件in.txt中有若干网站域名,如何得到对应的IP地址,并将其输出到out.txt中,谢谢! delphi6.0如何动态调用动态链接库,分数只给2个人,up者无分数 数据库连接问题 打印问题? 一个难得一见的问题! PB连接问题 关于IFRAME的问题。。应该不难 PB8的程序发布什么时候需要发布文件libjsybheap.dll了?这个文件是干什么用的? 远线程的问题 在开发多语言系统时遇到问题,请教 今天报名-网络工程师 mysql中有没有类似php中的\"list\"函数? 请各位兄弟姐妹们帮帮忙,有没有《C Traps and Pitfalls》这本书的中文版可以下载的? java学习路径是什么啊 请问我在打开串口(假设com1)接收的情况下。还在另一个的也能接收 com1串来的相同内容也就是(串口监听); 有没有在运行时动态调用某指定COM的办法?