同时打开xlsx表和xlsm宏表后，如何运行宏程序后，把运行结果显示在xlsx上

double.C

有个案例，左边是标签信息表格，右边是写好的宏表，需要利用宏把标签表格里面零件图那一列的图片全部提取出来另存到一个文件夹里，每次的标签表格内容都是不同的，但是格式都是一样，每次都是把标签表格打开，宏表也打开，然后当前表格选中为标签表格，再点击宏表上的控件就可以了，想请问下这个功能是怎么实现的呢？这个我就不上传了，是别人写的宏，有密码。因为我每天也要对不同内容，但格式一样的表进行相同的操作，所以我想写好宏之后，直接在目标表格上运行，怎么实现？

3190496160

上传附件，具体描述你的需求

幼稚园儿童

如果你学过vba，你就不会发这帖了，那靠我们打字说明，你也还是不会，在你不传附件前提下，这就是无解，办不到。

f6671193

盲猜是文件操作方面的。
把xlsm文件和xlsx文件放在一个文件夹，这样就有相对路径了。xlsx文件 可以通过xlsm中 ThisWorkbook.Path & "\*.xlsx"来找到。
set wb= workbooks.open(ThisWorkbook.Path & "\*.xlsx")
  wb.sht.range()就可以继续操作了

double.C

幼稚园儿童 发表于 2023-2-13 09:04
如果你学过vba，你就不会发这帖了，那靠我们打字说明，你也还是不会，在你不传附件前提下，这就是无解，办 ...

上传了附件你就知道了吗？这个宏是别人写的，有密码，开始就说了，而且我的需求并不是如何提取表格里的图片，只是想知道为什么可以在别的表哥上运行写好的宏

double.C

3190496160 发表于 2023-2-13 08:47
上传附件，具体描述你的需求

好的，我会上传附件。一个是标签表，一个是宏表，把两个表都打开，然后选择到标签表格的界面上，直接点宏表的控件，就可以提取，如果是在宏表的界面运行，会报错。我想知道这是怎么实现的，因为比如说每天都有不同的表格要处理，但是他们的格式都是一样的，处理方式也是一样的，我想写好宏之后，在每天得到的不同的表格上运行，这样就方便一些

double.C

大佬们可以试下在你们的电脑上能实现我说的功能

double.C

f6671193 发表于 2023-2-13 10:32
盲猜是文件操作方面的。
把xlsm文件和xlsx文件放在一个文件夹，这样就有相对路径了。xlsx文件 可以通过xls ...

感谢大佬，你把我的意思理解成运行宏的时候打开表格了。但其实我的意思是同时打开要处理的表和写好的宏表，然后把当前表格选定到要处理的表上，点击宏表上的控件，它就可以对要处理的表进行处理了。比如说每天都会有生成的数据表，但是它们的格式，还有对它们的处理方式也都一样，一般都是在当前表写宏，运行的时候就是 对当前表格的内容处理，我想把写好一个宏了，对每天要处理的表格直接处理，这样就很方便了。不知道我说明白没

fanyoulin

double.C 发表于 2023-2-15 08:37
感谢大佬，你把我的意思理解成运行宏的时候打开表格了。但其实我的意思是同时打开要处理的表和写好的宏表 ...

1、看你这意思你是想知道如何多文件同时操作，这个不难，无非就是同时打开两个不同的文件，并能有效区分和识别它们，但你要对基本的vba有所了解。如果你对vba完全不知道，无论怎么说都是没用。
2、4楼的方法就是常用的基本方法：
     set wb=workbooks.open(...)
     其中 wb是工作簿对象，一般要事先定义，不过vba有个好处是不定义也不会出错，系统会自动定义；
     workbooks.open就是工作簿打开，参数则是被打开文件的路径和文件名，4楼已经详细写上了；
3、如果要打开多个文件，可写多个set：
     set wb1=workbooks.open(...)
     set wb2=workbooks.open(...)
     set wb3=workbooks.open(...)
     这样同时打开了3个文件，分别取名wb1,wb2,wb3，打开文件关联的对象名只能在运行宏的时候有效，退出宏之后就失效了，你可以简单把对象名称看成是变量；
4、不同文件的数据引用：
     wb1.worksheets(1).cells(1,1)="A1"   '对第一个打开文件的第一个工作表的单元格a1赋值“A1”;
     wb3.worksheets(1).cells(1,1)=wb2.worksheets(1).cells(1,1)   '把第二个打开文件的第一个工作表的单元格a1的值传送到第三个打开文件的第一个工作表的单元格a1;

     上面最后一行的方法我猜测就是你想知道的内容，如果不是，我就无能为力了。

幼稚园儿童

double.C 发表于 2023-2-15 08:28
上传了附件你就知道了吗？这个宏是别人写的，有密码，开始就说了，而且我的需求并不是如何提取表格里的图 ...

D:\360极速浏览器下载\Desktop\图片1.png是这个意思吗