1

onclickSQL ステートメントを実行し、ステートメントから 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 に答える