1

我创建了一个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

请问有什么帮助吗？谢谢。

4

1 回答 1

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
于 2012-05-23T11:34:23.683 回答