请帮忙修改代码，谢谢！

a6789

请帮忙修改，谢谢！

a6789

每次新建表都要先拷贝"商品库存查询.xls"的"商品库存查询"表,因每天要做几次,为方便我做了个加载宏,可是一执行,只能打开"商品库存查询.xls"文件,不能拷贝"商品库存查询"表(不做加载宏,在本表运行拷贝正常),并显示下面这句错误:

wb.Sheets(1).Range("a1:h6888").Copy ThisWorkbook.Sheets("商品库存查询").Range("a1")

请帮忙改一下.

Sub 资料复制按钮()

Dim wb As Workbook
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\商品库存查询.xls")
   wb.Sheets(1).Range("a1:h6888").Copy ThisWorkbook.Sheets("商品库存查询").Range("a1")
    wb.Close False
        
End Sub

谢谢!

xiaocake

见附件。。。。。

a6789

xiaocake 发表于 2017-3-19 23:37
见附件。。。。。

谢谢你的解答，但我要的是二楼说的，修改做成加载宏后的运行错误。

xiaocake

加载宏的方式这个我没有用过，也不知道具体是怎么操作的。

如果是我，我是这样做：
你把你拷贝的操作用宏录制，在录制开始时，保存位置选“个人宏工作薄”(默认是当前工作薄)。录制好后，关闭EXCEL时，会有提示是否将更改保存到个人宏工作薄，点保存。然后你录制的代码就会保存在一个名为PERSONAL.XLSB(我用的office2013，是XLSB格式)的文件中。以后每次打开EXCEL就会自动打开这个文件(窗口是隐藏的），不注意的话感觉不出来已经打开了。如果你在这个工作薄中写了自动加载窗体，这个窗体就会自动加载显示出来。你要做什么操作就把代码就写在这个工作薄中。以后也不用每次加载了。
可能你的办法跟我说的是类似的效果，只是我不知道是怎么操作的，所以也没法准确帮你找到问题。

你遇到的问题，我分析如下：（只是猜测）
1.可能是没有注意 thisworkbook   activeworkbook的区别。
2.复制单元格内容至某个名的工作表(worksheet)时，这个名的工作表得事先已经创建好。

a6789

谢谢你的耐心解答！
有测试
1.两个都不行
2。有事先创建好工作表名"商品库存查询"
结果是能打开被拷贝的工作表,但不能拷贝到目标工作表。并显示

wb.Sheets(1).Range("a1:h6888").Copy ThisWorkbook.Sheets("商品库存查询").Range("a1")错误.

我试一下你的方法

a6789

thisworkbook   activeworkbook都是能打开被拷贝的工作表,但不能拷贝到目标工作表。

xiaocake

你手动是这样操作的吗？
1.新建excel文档
2.将当前工作表名改为"商品库存查询"
3.打开“商品库存查询.xls”文件
4.复制有数据的单元格
5.回到新建的excel文档
6.选中单元格A1，点粘贴

手动你可以这样：
1.打开“商品库存查询.xls”文件
2.对着“商品库存查询.xls”中的“商品库存查询”表 点 右键 -   “移动或复制” -  工作薄栏选  新工作薄    再勾上 建立副本。 确定  ，然后就会自动新建文档，保存这个文档或者继续你需要的操作即可

把这个过程用宏录下来，获取到代码后改改。获取到的代码跟你现在写的应该不一样。

xiaocake

附件是我做的加载宏文档，你解压后打开，然后另存为 加载宏  (路径会自动设置为加载项所在路径)名称你自己写，假设为123
然后在加载项设置里面勾上这个新加的项 (123)
【以前没有用过加载宏，这次听你说了我也学会了】
操作思路：
1.打开模板 商品库存查询.xls          （此处设定 “商品库存查询.xls” 文档放在 D:\123  ）
2.新建文档
3.粘贴
4.关闭模板
5.注： 新建的文档你需要自己选择路径保存

这个文档你可以直接放在excel的启动文件夹内（不过建议先打开它，然后把窗口隐藏了再保存）  这个也就是我上面说过的我一直以来的做法。启动文件夹的路径你自己上网搜搜在哪吧。

a6789

xiaocake 发表于 2017-3-22 16:50
附件是我做的加载宏文档，你解压后打开，然后另存为 加载宏  (路径会自动设置为加载项所在路径)名称你自己 ...

好的，我试试，谢谢！