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
何か助けてください。ありがとう。