Question

我编写了一个（下面）宏来从sql server 2008 r2中提取数据。我的问题是当用户第一次通过输入Jobnumber（比如说J0001）运行宏时，excel将数据放在电子表格中，从单元格开始＃＆＃34; A1＆＃34;这很好。这里的问题是，当用户通过输入作业编号（比如说J0002）第二次运行宏时，excel将作业编号（J0002）的数据放在单元格＆＃34; A1＆＃34;并将J0001（第一份工作）的单元格移动到单元格＆＃34; F＆＃34;而不是向下移动。如何在电子表格中将上一个条目向下移动，最新条目位于顶部？

这是我的宏和附件：

Sub Task()
Dim sqlstring As String
Dim connstring As String
Dim Strcode As String
Strcode = Trim(InputBox("Please enter a Job #", "Task history"))
sqlstring = "select distinct m.JobNumber , cast(m.ExpectedDate as DATE) 'Ship Date' ,m.CustLongName 'Customer' & _
             " from ArchiveJobHeader m  left join AuxiliaryInfoFile af (nolock) on af.jobnumber=m.jobnumber & _
             " where m.JobNumber = '" & Trim(Strcode) & "'" & _
             " order by 'Resulttime'"
connstring = "ODBC;DSN=SQLDSN;UID=test;PWD=test123"
 Dim thisQT As QueryTable
 Set thisQT = ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("a1", "a1000"))
 thisQT.BackgroundQuery = False
 thisQT.Sql = sqlstring
thisQT.Refresh
End Sub][1]

Answer 1

如果你合并了lastRow检查，然后为下一行编号分配一个变量，你可以连接你的Range，每次都是一个新行。

Dim lastRow As Long, nextRow As Long

lastRow = Sheets("Sheet Name").Range("A" & Rows.count).End(xlUp).row
nextRow = lastRow + 1

然后在设置Range时，将变量与字符串连接起来。

Set thisQT = ActiveSheet.QueryTables.Add( _
                 Connection:=connstring, _
                 Destination:=Range("A" & nextRow))

我不确定您在行1000中正在做什么，如您的问题所示。但这是使用带有正常范围地址的变量的想法。

Answer 2

你可以这样：

Sub a()
'Must set Reference to "Microsoft ActiveX Data Objects 2.8 Library"
    Dim ws As Worksheet
    Dim n As Long ' Row To Write In
    Dim sql As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Tab Name")
    'Assuming you already have Headings in row 1 _
        and start adding records from "A2" down...
    n = ws.Range("A10000").End(xlUp).row + 1
    'you sql string above is missing some double quotes...
    sql = "select distinct m.JobNumber, cast(m.ExpectedDate as DATE) 'Ship Date', m.CustLongName 'Customer'" & _
             " from ArchiveJobHeader m  left join AuxiliaryInfoFile af (nolock) on af.jobnumber=m.jobnumber" & _
             " where m.JobNumber = '" & Trim(Strcode) & "'" & _
             " order by 'Resulttime'"
    Set cn = New ADODB.Connection
    ' using an ODBC DSN... as in <http://msdn.microsoft.com/en-us/library/ms807027.aspx>
    cn.Open "SQLDSN", "test", "test123"
    Set rs = cn.Execute(sql) ' likely, in your case, to return one record only, _
                                so you are on there right away
    For i = 0 To rs.Fields.Count
        ws.Cells(n, i + 1) = rs(i)
    Next
    rs.Close
    cn.Close
End Sub

我担心你需要投入更多的工作，但这是你可以考虑的方向。

第二次执行宏后，将Excel单元格向下移动

2 个答案: