VBA从一个记录移动到另一个记录

Question

我创建了一个onclick函数，它应该运行一条SQL语句，从语句中选择URL并从URL中顺序打开Excel文件。它可以工作，但如果查询返回3个结果，则它会打开相同的Excel文件3次。而不是打开一个文件后，打开相同的文件。

这是我有：

    Dim strSQL As String 
    Dim rs As DAO.Recordset 
    Dim db As Database 
    Dim appexcel As Object 
    Set db = CurrentDb() 
    strSQL = "SELECT * from [PROCESSED_CONTRACTS_PRINTALL]" 
    Set rs = db.OpenRecordset(strSQL) 
    urlval = rs!url 
    rs.MoveFirst 
    Do Until rs.EOF 
    Set appexcel = CreateObject("Excel.Application") 
    appexcel.workbooks.Open urlval 
    appexcel.Visible = True 
    rs.MoveNext 
    Loop 
    rs.Close 
    Set rs = Nothing 
    End Sub 

任何帮助吗？谢谢。

Answer 1

请注意，urlval现在位于循环内部，而Excel位于循环之外。

Dim strSQL As String 
Dim rs As DAO.Recordset 
Dim db As Database 
Dim appexcel As Object 
Set db = CurrentDb() 
strSQL = "SELECT * from [PROCESSED_CONTRACTS_PRINTALL]" 
Set appexcel = CreateObject("Excel.Application") 
appexcel.Visible = True 
Set rs = db.OpenRecordset(strSQL) 
rs.MoveFirst 
Do Until rs.EOF 
    urlval = rs!url 
    appexcel.workbooks.Open urlval 
    rs.MoveNext 
Loop 
rs.Close 
Set rs = Nothing 
End Sub