|
▼けい さん:
書き込みの「種別」は"回答"以外でお願いします。
で、本題ですが・・・
自分の実力ではこのあたりで限界です。
別Bookを用意して、Excelアプリを別Windowに起動する方法を書いてみます。
これだと保存はせずに済みますが、「ブラウザ上で」との要件が満たせなくなります・・
新規ブックを作成して下記マクロを入れて
ブラウザから表示してみてください。
別アプリケーションで、結果のExcelのみが保存されない状態で残ります。
test_macro.xlsのキックするマクロ名はAuto_Open以外に変更したほうが良いです。
オートメーションエラーが発生するので、On Error Resume Nextしてます。
Option Explicit
Sub Auto_Open()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
On Error Resume Next
With xlApp
.Visible = True
AppActivate xlApp
.Workbooks.Open Filename:=ThisWorkbook.Path & "\test_macro.xls"
.Application.Run "test_macro.xls!Auto_Open"
End With
On Error GoTo 0
Set xlApp = Nothing
End Sub
|
|