VBA运行时错误“1004”

我试图从SQL存储过程产生的数据附加到我的Excel电子表格中使用VBA的现有数据的末尾。 我想把它粘贴到最后一列的右侧。 每次运行它，我都会得到上面的错误：“_Global”对象的“方法范围”失败。

我希望将新数据粘贴到现有数据右侧的第3行。 以下是我的vba代码：

Sub RefreshStatus() Dim db As DAO.Database Dim con As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Dim StoredProc As String Dim RWS As Worksheet Dim DWS As Worksheet Dim ServerName As String Dim DatabaseName As String Dim StoredProcedure As String Set con = New ADODB.Connection Set cmd = New ADODB.Command Set rs = New ADODB.Recordset Set RWS = Worksheets("Refresh") Set DWS = Worksheets("141215") Application.DisplayStatusBar = True Application.StatusBar = "Contacting SQL Server..." RWS.Activate ServerName = "tns-reports-01" ' Enter your server name here DatabaseName = "GroupPerformance" ' Enter your database name here StoredProcedure = "JM_Recruitment_Status_141215" ' Enter Stored Procedure here con.Open "Provider=SQLOLEDB;Data Source=" & ServerName & ";Initial Catalog=" & DatabaseName & ";Trusted_Connection=yes" cmd.ActiveConnection = con Application.StatusBar = "Running stored procedure..." cmd.CommandTimeout = 0 cmd.CommandText = StoredProcedure Set rs = cmd.Execute(, , adCmdStoredProc) ' Copy the results to cell A1 on the first Worksheet DWS.Activate Dim Lastcol As Long Lastcol = Range("3" & Columns.Count).End(xlRight).Row If rs.EOF = False Then DWS.Cells(2, 1).CopyFromRecordset rs rs.Close Set rs = Nothing Set cmd = Nothing con.Close Set con = Nothing Application.StatusBar = "Data successfully updated." End Sub 

如果有人能帮助我，我将不胜感激。

非常感谢。

Answer 1

尝试查找最后一个非空列和其他一些小错误时，您犯了一些错误。

以下是您的代码，只需稍作更改（更改请参见注释）。

我假设您的logging集只包含一个字段和许多logging，并且您想要将所有这些logging水平地从单元格_3粘贴到右侧，其中_是第一个空列。

 Sub RefreshStatus() Dim db As DAO.Database Dim con As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Dim StoredProc As String Dim RWS As Worksheet Dim DWS As Worksheet Dim ServerName As String Dim DatabaseName As String Dim StoredProcedure As String Set con = New ADODB.Connection Set cmd = New ADODB.Command Set rs = New ADODB.Recordset Set RWS = Worksheets("Refresh") Set DWS = Worksheets("141215") With Application .DisplayStatusBar = True .StatusBar = "Contacting SQL Server..." End With 'NOTE: You don't have to activate worksheet to operate on its ranges. 'Actually, you shouldn't do that, since it's time-consuming, make the 'user experience worst and can cause errors in specific cases. 'Additionaly, I can't see where you use RWS worksheet later in the code. 'RWS.Activate ServerName = "tns-reports-01" ' Enter your server name here DatabaseName = "GroupPerformance" ' Enter your database name here StoredProcedure = "JM_Recruitment_Status_141215" ' Enter Stored Procedure here con.Open "Provider=SQLOLEDB;Data Source=" & ServerName & ";Initial Catalog=" & DatabaseName & ";Trusted_Connection=yes" cmd.ActiveConnection = con Application.StatusBar = "Running stored procedure..." cmd.CommandTimeout = 0 cmd.CommandText = StoredProcedure Set rs = cmd.Execute(, , adCmdStoredProc) ' Copy the results to cell A1 on the first Worksheet 'Again, it is not necessary to activate worksheet. 'DWS.Activate Dim lastCol As Long 'If rs.EOF = False Then DWS.Cells(2, 1).CopyFromRecordset rs row = 3 lastCol = DWS.Cells(row, DWS.Columns.Count).End(xlRight).Column + 1 Do Until rs.EOF DWS.Cells(row, lastCol).value = rs.Fields(0).value row = row + 1 Call rs.MoveNext Loop rs.Close Set rs = Nothing Set cmd = Nothing con.Close Set con = Nothing Application.StatusBar = "Data successfully updated." End Sub