复制工作表

Question

我的Excel正在尝试（VBA）从Access获取数据，将数据放入空模板，复制工作表并将文件保存到硬盘上的另一个路径中。

有时我的脚本运行时没有错误，有时Excel（vba）会抛出错误“runtime 1004”。我用Google搜索，但找不到解决问题的方法。

Excel出现以下错误：

有人可以告诉我我做错了什么？

Excel 2013，Windows 7 64位

Answer 1

此错误可能来自尝试复制非常隐藏的工作表。 试试这样：

wsh_VL_Info.Visible = xlSheetVisible
wsh_VL_Info.Copy after:=wsh_VL_Info

为了获得更好的代码，请不要使用ActiveSheet，而是按照以下逻辑更改它：

wsh_VL_Info.Visible = xlSheetVisible
wsh_VL_Info.Copy after:=wsh_VL_Info
wsh_VL_Info.Name = "Info"

编辑：

Dim wsh_VL_Info as Worksheet
Set wsh_VL_Info = DiesDatei.Sheets("Info VL")

在Sub。

中