VBA 한 레코드에서 다른 레코드로 이동하기위한 액세스

Question

SQL 문을 실행하고 문에서 URL을 선택하고 URL에서 순차적으로 Excel 파일을 여는 onclick 함수를 만들었습니다. 그것은 작동하지만 쿼리가 3 개의 결과를 반환하면 동일한 엑셀 파일을 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