VBA宏将SQL错误代码复制到Excel中

Question

我正试图在VBA中编写/采用宏来将SQL查询复制到Excel中。 我有它连接和执行。当我在SQL手动运行它，这是SQL的错误代码：

Msg 3701, Level 11, State 5, Line 1 
Cannot drop the table '#MSP_History3', because it does not exist or you do not have permission. 

(8661 row(s) affected) 
Msg 3701, Level 11, State 5, Line 1 
Cannot drop the table '#MSP1', because it does not exist or you do not have permission. 

(8661 row(s) affected) 
Msg 3701, Level 11, State 5, Line 1 
Cannot drop the table '#MSP_PBP', because it does not exist or you do not have permission. 

(8661 row(s) affected) 
Msg 3701, Level 11, State 5, Line 1 
Cannot drop the table 'dbo.MSP_History', because it does not exist or you do not have permission. 
Msg 262, Level 14, State 1, Line 1 
CREATE TABLE permission denied in database 'master'. 

看起来像它不是一个伟大的查询，但我感兴趣是受影响的行数。

下面是有人比我更熟练已经用于不同的查询工作粘贴在A1表结果VBA代码的后面部分：

'Open the connection. 
cn.Open strConn 
' 
'Set and Execute SQL Command 
Set cmd1.ActiveConnection = cn 
cmd1.CommandText = SQLquery 
cmd1.CommandType = adCmdText 
cmd1.Execute 

'Open Recordset 
Set rs1.ActiveConnection = cn 
rs1.Open cmd1 

'Paste Column Headers into Spreadsheet 
    For Col = 0 To rs1.Fields.Count - 1 
    Range("A1").Offset(0, Col).Value = rs1.Fields(Col).Name 
    Next 

'Copy Data to Excel 
ActiveSheet.Range("A2").CopyFromRecordset rs1 
Cells.Select 
Cells.EntireColumn.AutoFit 

此代码为正确执行的SQL查询。有没有办法复制错误信息？

理想情况下，我想要在Excel中的单元格A1只是“8661”。

谢谢！

编辑：目前已在执行“cmd1.Execute”行VBA错误消息是：

Run-time error '-2147217900 (80040e14)': Automation error 

Answer 1

也许你可以用这个代码尝试......它显示一个消息框的错误。

Option Explicit 

Public Sub Connect() 

On Error GoTo InvalidValue: 

Dim myCn As MyServer 
Set myCn = New MyServer 

Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 

rs.Open "Select * from myTable", myCn.GetConnection 

Range("A1").CopyFromRecordset rs 

rs.Close 
myCn.Shutdown 

Set rs = Nothing 
Set myCn = Nothing 

Exit Sub 

InvalidValue: 

MsgBox Err.Number & " " & Err.Description 

End Sub