错误 - SQL编码为“应用程序定义或对象定义的错误”

Question

我在VBA编码方面比较有经验，但我在MS SQL server 2008中是全新的。

我正在尝试将以下Excel表格导出到SQL服务器：

    A    B    C   D    E
1 Name  Year  ID 
2 Jill  2015  17
3 Jack  2012  13
4 Mike  1999  25
5

下面的代码，首先创建并打开一个连接，然后从Excel工作表（Sheet2）创建一个表，然后将该表复制到我的SQL服务器。

但是，我在代码行MyWorkBook.CurSheet.ListObjects.Add(xlSrcRange, Range("A1:B4"), , xlYes).Name = "Table1"收到类似“应用程序定义或对象定义错误”的错误，我试图定义从{{1}中读取的Table1 }

有趣的是，我从几个不同的问题中找到了相同的代码行，我认为它应该可以正常工作。有没有人有任何想法？

Range("A1:B4")

Answer 1

CurSheet不是MyWorkBook的成员。 CurSheet已经是一个完全合格的工作表对象。它不需要使用工作簿对象进行限定。

Set MyWorkBook = ActiveWorkbook
Set CurSheet = Sheet2

'Create Table in Excel VBA
MyWorkBook.CurSheet.ListObjects...            ' Error

也许这就是你的意思：

Set MyWorkBook = ActiveWorkbook
Set CurSheet = MyWorkbook.Sheets("Sheet2")

'Create Table in Excel VBA
CurSheet.ListObjects...            ' Correct