如何更新数据而不是替换.

sbsfhgl

我的想法是,EXCEL一张工作薄里有三张表,把一张表A数据格式设好,数据来源里外一个表B,采用子窗体导出数据导入到EXCEL中的一张表B,这样少了很多事.因为ACCESS设置报表有点麻烦.但是采用以上方法呢,他是把EXCEL文件都替换掉了,我原来设计的格式就没起到作用.故..................
如何更新数据而不是替换.


附件已上传

sbsfhgl

顶一下.....................

andymark

晕死, 上传例子不上传EXCEL
别人怎么知道你要替换什么内容

sbsfhgl

原帖由 andymark 于 2008-7-9 10:19 发表
晕死, 上传例子不上传EXCEL
别人怎么知道你要替换什么内容

版主,已上传模板.关于这个还有一个问题
EXCEL中能不能设置自动更新数据,即EXCEL表-入库模板,自动识别表Sheet1里的数据,=Sheet1!A2,,=Sheet1!A3......,而且是自动增长,现在我全部是手工操作引用.

但关键是,如何时自动将导出的数据自动更新到-入库表!Sheet1

sbsfhgl

............

andymark

首先要判断EXCEL表中的SHEET最大行号
定位第一条记录, 用记录集循环写进,保存退出

Set appExcel = Excel.Application
   Set wbk = appExcel.Workbooks.Open(CurrentProject.Path & "\ExcelFile\" & StrFileName)

   Set wks = appExcel.Worksheets("Sheet1")
   
   Y = 5

   Sql = "SELECT * FROM LCDHealthQuery ORDER BY Technology"

    Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic
    K = Rs.Fields.Count + 2
   
    For J = 1 To Rs.Fields.Count - 1
       wks.Cells(Y, J + 2).Value = Rs.Fields(J).Name
        
   Next
   
    For J = 1 To Rs.Fields.Count - 1
      If Left(Rs.Fields(J).Name, 2) = "WK" Then
         If Rsc.Fields(J).Name >= Me.CmdStarWeek Then
            StrYear = Me.CmbStarYear
            Else
            StrYear = Me.CmbStarYear + 1
          End If
       wks.Cells(Y + 1, J + 2).Value = DLookup("WeekStar", "", "PlanYear='" & StrYear & "' and WeekName='" & Rsc.Fields(J).Name & "'")
      
       Else
       wks.Cells(Y + 1, J + 2).Value = Rs.Fields(J).Name
      
      End If
      
    Next
      
   
   Rs.MoveFirst
   
   Y = 7

.....后面自已写

andymark

直接用上面的语句是不行的,  上面只是列举方法

andymark

必须打开EXCEL的SHEET表,读取总行数
才能进行上面的操作

sbsfhgl

有没有例程呀。。。

stevenyang

dgood