请帮忙修改代码，谢谢！

a6789

xiaocake 发表于 2017-3-27 21:34
你说的话太让人费解了，新资料是啥？
你是要更新 商品库存查询.XLS这个文件内容（商品库存表变了）？
...

将现在的已经带有“商品库存查询”表的文档里面的内容更新为新的模版里的内容

xiaocake

跟你题目要求的没有多少差别，感觉你对这些代码似乎模糊的样子，好像只是在慢慢实验，要加油学到东西啊！

Dim wb As Workbook
    Set wb = Workbooks.Open("D:\123" & "\商品库存查询.xls")   '打开模板
    Workbooks.Open(“现有文档的完整路径”)  '打开要更新的文档 ，这个文档如果没有关闭，并且如果这句代码之后没有新建或打开文档的操作，这个文档就是当前激活的文档了
    wb.Sheets(1).Cells.Copy ActiveWorkbook.sheets("商品库存查询").Cells   '复制模板内容至当前工作表(要更新的文档)
    wb.Close False  '关闭模板   要更新的文档你自己手动选择保存位置了再保存
    UserForm1.CommandButton1.Enabled = False
    UserForm1.CommandButton2.Enabled = True
End Sub

a6789

xiaocake 发表于 2017-3-28 13:22
跟你题目要求的没有多少差别，感觉你对这些代码似乎模糊的样子，好像只是在慢慢实验，要加油学到东西啊！
...

如果文档就是当前激活的文档（经常是这种状况），这句应如何改：

Workbooks.Open(“现有文档的完整路径”)  '打开要更新的文档 ，这个文档如果没有关闭，并且如果这句代码之后没有新建或打开文档的操作，这个文档就是当前激活的文档了

谢谢！

xiaocake

a6789 发表于 2017-3-28 21:18
如果文档就是当前激活的文档（经常是这种状况），这句应如何改：

Workbooks.Open(“现有文档的完整路 ...

Sub 文档更新按钮()
    Dim wa,wb As Workbook
    Set wa = ActiveWorkbook
    Set wb = Workbooks.Open("G:\TEMP\文件夹1" & "\商品库存查询.xls")   '打开模板
    wa.Activate
    wb.Sheets(1).Cells.Copy ActiveWorkbook.sheets("商品库存查询").Cells   '复制模板内容至当前工作表(要更新的文档)
    wb.Close False  '关闭模板
    'wa.Close true   '如果需要保存的话，这句反注释掉
End Sub

a6789

xiaocake 发表于 2017-3-29 12:20
Sub 文档更新按钮()
    Dim wa,wb As Workbook
    Set wa = ActiveWorkbook

非常感谢,谢谢你!

xiaocake

a6789 发表于 2017-3-29 12:57
非常感谢,谢谢你!

对于大量的文档需要做同样的处理(比如你要更新“商品库存查询”这个表)时，直接做个批量处理的按钮，写上遍历某个目录下所有EXCEL文件的代码，自动一个个打开（或者先手动一下打开所有要处理的EXCEL,再遍历所有打开的EXCEL文档）的语句，然后全部自动处理了，不用一个个手动打开再点按钮了。用上VBA就是为了使一些重复的繁琐的工作简单化，提高工作效率，并且会大大减少出错的可能。

a6789

xiaocake 发表于 2017-3-29 14:14
对于大量的文档需要做同样的处理(比如你要更新“商品库存查询”这个表)时，直接做个批量处理的按钮，写上 ...

谢谢指教,我自己试试.如有不解再请教,谢谢!