求教，高手麻烦进下

giuber

我有2个工资表工作表A是一堆汇总的数据，想要做个VBA代码把这文本每行的3个数字自动记入到模板B指定位置，并且不能改变模板B中其他公式
工作表A有N行就要自动生成N个模板B的工作表
求代码！！！

giuber

没高手在么

jsgj2023

模板B中有什么样的公式?

半百

Sub TEST()
With ThisWorkbook
    Set WB = Workbooks.Open(.Path & "\" & "工作表A")
    ARR = WB.Sheets(1).UsedRange
    For I = 1 To UBound(ARR)
        .Sheets(1).Copy After:=.Worksheets(.Worksheets.Count)
        With ActiveSheet
            .[E9] = ARR(I, 1)
            .[F4] = ARR(I, 2)
            .[H13] = ARR(I, 3)
        End With
    Next
End With
WB.Close False
End Sub

蓝桥玄霜

把模板工作簿中的表1复制到工作簿A，重命名为“模板”
请见代码。

giuber

jsgj2023 发表于 2018-1-23 14:35
模板B中有什么样的公式?

帅锅，导出后的数据按指定位置名保存用以下代码
template.SaveCopyAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets(1).Cells(i, 1) & ".xls"
但是我想保存时指定另一个sheet为当前文本保存，上面代码改怎么改啊

giuber

半百 发表于 2018-1-23 15:05
Sub TEST()
With ThisWorkbook
    Set WB = Workbooks.Open(.Path & "\" & "工作表A")

帅锅，导出后的数据按指定位置名保存用以下代码
template.SaveCopyAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets(1).Cells(i, 1) & ".xls"
但是我想保存时指定另一个sheet为当前文本保存，上面代码改怎么改啊

giuber

蓝桥玄霜 发表于 2018-1-23 15:21
把模板工作簿中的表1复制到工作簿A，重命名为“模板”
请见代码。

帅锅，导出后的数据按指定位置名保存用以下代码
template.SaveCopyAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets(1).Cells(i, 1) & ".xls"
但是我想保存时指定另一个sheet为当前文本保存，上面代码改怎么改啊

chen68178

蓝桥玄霜 发表于 2018-1-23 15:21
把模板工作簿中的表1复制到工作簿A，重命名为“模板”
请见代码。

你好，这是我今天发表的求助帖子：worksheet_change如何实现限定条件的多功能复制粘贴
http://club.excelhome.net/thread-1394590-1-1.html
(出处: ExcelHome技术论坛)
能帮助我解决一下问题吗？谢谢！！