请帮忙修改代码，谢谢！

mzbao

看看这个能不能符合要求。

1. Sub 资料复制按钮()
   
2.     Dim wb As Workbook
   
3.     Set wb = GetObject(ThisWorkbook.Path & "\商品库存查询.xls")
   
4.     With wb.Sheets("商品库存查询").Range("a1:h6888")
   
5.         ActiveWorkbook.Sheets("商品库存查询").Range("a1").Resize(.Rows.Count, .Columns.Count) = .Value
   
6.     End With
   
7.     wb.Close False
   
8. End Sub

复制代码

book1.xla的thisworkbook中添加了事件

1. Private Sub Workbook_Open()
   
2.     UserForm1.Show 0
   
3. End Sub

复制代码

你新建表创建“商品库存查询”后，再运行Book1.xla。

a6789

不是我要的结果，我需要的是：
一。新建文件并建工作表“商品库存查询”
二。利用加载宏按指定路径从“商品库存查询.xls” 中拷贝“商品库存查询”表到新建文件的工作表“商品库存查询”


不好意思，是我调试错误，问题解决了，谢谢您的耐心解答，感谢！！！

a6789

不好意思，做成加载菜单还是只打开“商品库存查询.xls” 没有拷贝，（三个文件放在C盘，再加载宏Book1.xla），请帮忙再看看，谢谢！

xiaocake

a6789 发表于 2017-3-24 20:04
不好意思，做成加载菜单还是只打开“商品库存查询.xls” 没有拷贝，（三个文件放在C盘，再加载宏Book1.xla ...

我给你写的就是你说的那样的。(我用的EXCEL2013)
再说得详细点，我给你写的达到了如下效果：
1.打开EXCEL（此时还没有打开任何文件），但是加载宏里的窗口已经加载并显示了。
2.你点一下窗口上的复制按钮，你能看到的就是新建了个EXCEL文档(文档名字是默认的工作薄n)，表的名字是“商品库存查询”，内容就是模板的内容。
【中间有个窗口闪了一下就关了】
3.注：你没有说保存新建的文档，所以就由你自己选择路径保存。

加载宏设置好后，不用每次加载，以后只要加载宏文档位置不变就不用再手动加载了。

这不是你要的效果吗,我不知道你拿到我做的加载宏文档后，有没有做到这个效果。

我写的复制粘贴是整表内容复制和粘贴，你写的是单元格区域复制粘贴，只是这点不一样，你没有成功的原因不是粘贴方式。
看你的代码，我认为你还是没有搞清楚ThisWorkbook 和 ActiveWorkbook到底是啥意思。自己去查查吧，不是让你去把这两个替换着试一下就完了。每行代码运行后得弄清楚当前工作薄（ActiveWorkbook）是哪个。
我写的代码里面的有注释，比较清楚了，自己看看分析一下。

楼上mzbao的代码中出现了ThisWorkbook，写在加载宏里面是不合理的。

加载宏文档  你就放在EXCEL默认的固定位置就好，设置好以后EXCEL启动就自动加载了，不知道你跟模板放在一起是什么意思，难道你每次都还要手动加载宏后才开始工作？你做的加载宏文档的位置需要经常变动吗？

a6789

对不起，是我把你俩的带码搞混了，问题解决。谢谢！

a6789

如果不建新文件，老文件刷新"商品库存查询"表，应该如何改：
Private Sub CommandButton1_Click()

Dim wb As Workbook
    Set wb = Workbooks.Open("D:\123" & "\商品库存查询.xls")   '打开模板
    Workbooks.Add           '新建文档         为了使 ActiveWorkbook 为新建的文档 必须在打开模板后再打开
    ActiveWorkbook.ActiveSheet.Name = "商品库存查询"  '工作表改名
    wb.Sheets(1).Cells.Copy ActiveWorkbook.ActiveSheet.Cells   '复制模板内容至当前工作表(新建的文档)
    wb.Close False  '关闭模板   新建的文档你自己手动选择保存位置了再保存
    UserForm1.CommandButton1.Enabled = False
    UserForm1.CommandButton2.Enabled = True
End Sub

a6789

xiaocake 发表于 2017-3-25 15:55
我给你写的就是你说的那样的。(我用的EXCEL2013)
再说得详细点，我给你写的达到了如下效果：
1.打开EXC ...

你好，如果不建新档，要刷新当前打开老档里边的”"商品库存查询"表，应该如何改：
Private Sub CommandButton1_Click()

Dim wb As Workbook
    Set wb = Workbooks.Open("D:\123" & "\商品库存查询.xls")   '打开模板
    Workbooks.Add           '新建文档         为了使 ActiveWorkbook 为新建的文档 必须在打开模板后再打开
    ActiveWorkbook.ActiveSheet.Name = "商品库存查询"  '工作表改名
    wb.Sheets(1).Cells.Copy ActiveWorkbook.ActiveSheet.Cells   '复制模板内容至当前工作表(新建的文档)
    wb.Close False  '关闭模板   新建的文档你自己手动选择保存位置了再保存
    UserForm1.CommandButton1.Enabled = False
    UserForm1.CommandButton2.Enabled = True
End Sub
谢谢！

xiaocake

a6789 发表于 2017-3-25 21:53
你好，如果不建新档，要刷新当前打开老档里边的”"商品库存查询"表，应该如何改：
Private Sub CommandB ...

刷新？是指表格重新计算吗？还是其他什么意思，说实话我也是新手。

a6789

xiaocake 发表于 2017-3-26 15:55
刷新？是指表格重新计算吗？还是其他什么意思，说实话我也是新手。

拷贝"商品库存查询.xls"的"商品库存查询"表（经常有新资料），覆盖当前打开文档里边的”"商品库存查询"表。

xiaocake

a6789 发表于 2017-3-27 20:57
拷贝"商品库存查询.xls"的"商品库存查询"表（经常有新资料），覆盖当前打开文档里边的”"商品库存查询"表 ...

你说的话太让人费解了，新资料是啥？
你是要更新 商品库存查询.XLS这个文件内容（商品库存表变了）？
还是指，将现在的已经带有“商品库存查询”表的文档里面的内容更新为新的模版里的内容？