VBA如何复制已加载的xlam中工作表到当前工作簿

董堃

如何复制已加载的xlam中工作表到当前工作簿 并重命名

ykcbf1100

直接copy法复制工作表到当前工作簿中的当前表就行了。

董堃

ykcbf1100 发表于 2024-3-11 10:26
直接copy法复制工作表到当前工作簿中的当前表就行了。

谢谢！但总是报错，能不能提供一下部分源码？！

tanglf188

大概就这样，具体自己修改一下
    flname = ThisWorkbook.Path & "\文件名.xls*"
    If Dir(flname, 16) = Empty Then Exit Sub '不存在则退出
    Set wb = Workbooks.Open(flname, 0) '打开工作薄
    wb.Worksheets(1).UsedRange.Copy Sheet1.Range("A1")
    wb.Close False '关闭工作薄

ykcbf1100

董堃 发表于 2024-3-11 10:35
谢谢！但总是报错，能不能提供一下部分源码？！

你也没附件啊。

董堃

ykcbf1100 发表于 2024-3-11 11:14
你也没附件啊。

不好意思 我提供一下 XLAM 我想将里面的两个工作表”模板“和”标准件“ 分别复制到当前工作簿
vba 密码 dongkun19710307

micch

如果你的代码是写在xlam文件内的，那么对象thisworkbook就是加载文件，他的工作表就是子对象，用sheets("名称")就能获取需要复制的工作表

ykcbf1100

董堃 发表于 2024-3-11 11:21
不好意思 我提供一下 XLAM 我想将里面的两个工作表”模板“和”标准件“ 分别复制到当前工作簿
vba 密码 ...

你的当前工作簿呢？

董堃

ykcbf1100 发表于 2024-3-11 11:39
你的当前工作簿呢？

新建工作簿xlam加载上就是当前工作簿

董堃

谢谢各位大佬 ，问题已解决！！！