Копіювання робочого аркуша - excel, windows, vba, excel-vba, excel-2013

Мій Excel намагається (VBA) отримувати дані з Access, вставляючи дані у порожній шаблон, копіюючи робочий лист і зберігаючи файл на інший шлях на жорсткому диску.

Іноді моя скрипт працює без помилки, іноді Excel (vba) викидає помилку "runtime 1004". Я голублений, але не знайшов рішення для своєї проблеми.

Excel видає таку помилку:

Хтось може сказати мені, що я роблю неправильно?

Excel 2013, Windows 7 64bit

Відповіді:

Цю помилку може призвести до спроби скопіювати дуже прихований аркуш. Спробуйте так:

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.