Question

在excel中通过点击按钮后对该表格内容进行更新,如何在另一个指定文件夹内生成与更新内容相关的报表

首先在当前工作表内有“new tender”按钮，点击后会弹出一些需要填写的信息，自动填充到当前的表格新一行中，现在想提问的是，如何在每添加这样一行信息后，在某个指定文件夹内自动生成一份报表（报表内已经填好刚在当前excel中更新的信息，如：订单号，负责人，时间等。免去每次添加新订单都要手动填写的麻烦）。相当于每在当前excel中点击“new tender”，添加一行信息，指定文件夹都会产生已经填好表头信息的tender具体表。麻烦各位大神啦，最好具体一点，已经研究一周了没有进展，很着急。谢谢啦！

Answer 1

在指定文件夹内新建一创建好表头等基本内容与当前使用文件（book1）一致的EXCEL文件（book2），在book2中需更新内容的相关单元格（如B2）内输入公式
=book1!B2
其他单元格一样设置好。
这样，只要你在book 1内输入内容，就自动在book2内进行更新。book2每次打开都是已经更新的内容。当然，这两个文件的保存地址是不能再变动的，否则就不能更新了。
注意，内容的更新是在重新打开book2后进行的，如果book2一直处于打开状态是不能适时更新的，需要保存关闭后重新打开才能看到更新的结果。

Answer 2

可以把new tender的代码发给我吗？

在不知道你的new tender的代码情况下，只能给你参考，你要自己修改参数！
Sub WbInput()

Dim fil As String '定义变量
Dim wb As String, xrow As Integer, arr
Dim Wb As Workbook
fil = ThisWorkbook.Path & "\xxxx.xls"
If Len(Dir(fil)) > 0 Then '用Dir函数判断fil指代的文件是否存在
MsgBox "工作薄已存在!"
Else
MsgBox "工作薄不存在!"
Set Wb = Workbooks.Add '新建一个工作薄

wb = ThisWorkbook.Path & "\xxxx.xls" '指定要打开的文件
Workbooks.Open (wb) '打开工作薄
With ActiveWorkbook.Worksheets(1) '向工作薄里的第1张表里添加记录
xrow = .Range("A1").CurrentRegion.Rows.Count + 1 '取得表格中第一条空行号
'将需要增加的职工信息保存在数组arr里
arr = ！！等号后面的是你要另存的新增的数据！！
.Cells(xrow, 1).Resize(1, 这里写数字是你新增的数据的项数) = arr '将数组写入单元格区域
End With
ActiveWorkbook.Close savechanges:=True '关闭工作薄，并保存修改
End Sub