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