搜索
首页 电脑/网络 软件 办公软件

关于自动生成工作表或工作薄的问题

表一为原始数据 表二、表三为需要生成的表格(最好能单独生成带有表二、表三的工作薄),表一数据增加自动生成新表格或工作薄,希望高手指点,万分感谢!

全部回答

2012-08-30

0 0
    Private Sub 生成_Click() Application。ScreenUpdating = False Application。DisplayAlerts = False lastrow1 = [k65536]。
  End(xlUp)。Row lastrow2 = [b65536]。  End(xlUp)。Row Set sh1 = Sheets("报审表") Set sh2 = Sheets("附件") For i = lastrow1 + 1 To lastrow2 With sh1 。
    Cells(5, "f") = Cells(i, "b") 。Cells(5, "i") = Cells(i, "c") 。
  Cells(5, "l") = Cells(i, "d") 。  Cells(7, "d") = Cells(i, "e") End With With sh2 。
  Cells(3, "g") = Cells(i, "b") 。  Cells(3, "i") = Cells(i, "c") 。
  Cells(3, "k") = Cells(i, "d") For k = 6 To 10 。  Cells(5, k - 4) = Cells(i, k) Next End With myname = Replace(Trim(Cells(i, "e")), "、", "") Sheets(Array("报审表", "附件"))。
    Copy ActiveWorkbook。UpdateLinks = xlUpdateLinksNever ActiveWorkbook。
  SaveAs Filename:=ThisWorkbook。Path & "\报审表\" & myname ActiveWorkbook。  Close Cells(i, "k") = "已经生成报审表" Next i Application。
  ScreenUpdating = True Application。  DisplayAlerts = True End Sub 。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
办公软件
硬件
电脑装机
程序设计
互联网
操作系统/系统故障
笔记本电脑
反病毒
百度
软件
软件
办公软件
多媒体软件
系统软件
网络软件
图像处理软件
办公软件
办公软件
举报
举报原因(必选):
取消确定举报