求助VB录入数据到EXCEL中后查询，修改，保存到当前位置

tw8958 发布于 2013-02-18 00:22， 3020 次点击

excel中数据通过ADODB显示记录到相应的Text和MSHFexGrid中，通过Text修改Excel中数据
保存覆盖当前位置
        rs1.Fields("日期") = DTPicker1(0).Value
        rs1.Fields("用户（地点）") = Text1(1).Text
        rs1.Fields("设备名称") = Text1(2).Text
        rs1.Fields("数量") = Text1(3).Text
        rs1.Fields("单位") = Text1(4).Text
        rs1.Fields("进度/问题") = Text1(5).Text
        rs1.Fields("技术") = Combo1(0).Text
        rs1.Fields("销售") = Combo1(1).Text
        rs1.Fields("备注（处理意见）") = Text1(6).Text

        rs1.Update
        Set MSHFlexGrid1.DataSource = rs1
保存的位置是EXCEL中第一行如何保存到当前位置呢？求助各位大大

7 回复

lowxiong2013-02-18 14:12

vb能用ado操作excel吗？请教如何连接的？用什么jet？

tw89582013-02-18 22:30

工程引用 Microsoft.Excel 11.0 Obeject Libary 勾选
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=1.xls;Extended Properties='Excel 8.0;HDR=Yes'"
cn.open
rs.Open "select * from [sheet1$]", cn, adOpenKeyset, adLockOptimistic
通过ADO 操作EXCEL

lowxiong2013-02-18 22:46

谢了，以后试试。
excel应该没有字段名吧，应该只有列号，都是rst.fields(1)、rst.fields(2)、rst.fields(3)来表示的吧。

tw89582013-02-19 09:13

用比较笨的方法勉强存储上了现在纠结查询功能
百度说录制Excel宏简单谁能说说EXCEL 宏是怎么录制的

曾大虾2013-02-19 15:18

在“工具”－“宏”－“录制新宏”

nyclwdy2013-03-25 11:16

貌似不用这样吧，VB可以直接操作EXCEL的，前题是引用EXCEL的驱动，然后查的数据所在的行，用.cells调入的text中，修改之后再写回去就行了

曙光电子2013-03-26 13:40

回复 5楼 tw8958

"用比较笨的方法勉强存储上了"是什么意思,能说具体点吗?