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中第一行 如何保存到当前位置呢？求助各位大大

工程引用 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

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