复制多张纸时，下标超出范围错误VBA

Question

我有一个VBA函数，我用它来复制活动工作簿中的工作表列表并保存它。我得到下标超出范围错误。任何帮助将不胜感激？

update MY_TABLE set MY_COL = my_get_wkt(params);

Answer 1

我认为你已经将表单的名单列表传递给了表单，即“sheet1”，“sheet2”等。但是，在传递数组时，必须使用函数Sheets(Array(mySheetList))。

'Worksheets(mySheetList).Copy
Sheets(Array(mySheetList)).Copy

Answer 2

这适合我，我会尝试适应你的excelfilename。将ws变暗为工作表也存在问题。我将来会使用Option Explicit。

beef ['beef', 'b.png', 'meat']
e ['e', None, None]
beef ['beef', 'b.png', 'meat']
pork ['pork', 'pork.png', 'meat']