小编Eli*_*xir的帖子

我有一个小问题,检索多个记录集(带有列名)并将数据粘贴到Excel工作表中,如下图所示

我刚刚检索到第一个记录集而不是其余记录集的VBA代码

任何帮助将不胜感激,谢谢

Sub CProcedure()

    Dim Conn As ADODB.Connection, RecordSet As ADODB.RecordSet
    Dim Command As ADODB.Command
    Dim ConnectionString As String, StoredProcName As String
    Dim range1 As ADODB.Parameter, range2 As ADODB.Parameter
    Dim SP_Param1 As String
    Dim SP_Param2 As String

    Application.ScreenUpdating = False

    Set Conn = New ADODB.Connection
    Set RecordSet = New ADODB.RecordSet
    Set Command = New ADODB.Command

    ServerName = "1111"
    DatabaseName = "dataReporting"
    UserId = "88888"
    Password = "88888"
    SP_Param1 = "StartDate"
    SP_Param2 = "EndDate"
    StoredProcName = "KPI_Report"

    ConnectionString = "PROVIDER=SQLOLEDB;DATA …

在关闭和保存工作簿时,是否有一种方法可以插入完整路径名而不是文件名

如下

Workbooks("BOOK1.XLS").Close SaveChanges:=true
Workbooks("C:\user\docs\BOOK1.XLS").Close SaveChanges:=true

我问的原因是我已经用字符串命名了所有完整的路径名

Workbooks(i).Close SaveChanges:=true

所以对于阵列中的每个i等

这个公式有更有效的方法吗？

=IF(A1="Texas",1,)&IF(A1="Washington",2,)&IF(A1="Kansas",3,)&IF(A1="California",3,)

简单的问题,但我确信有一个比我目前得到的更好的方法