|
▼いい味でてるね さん:
こんばんは。
>教えてください。
>
>InternetExplorerでExcelを開いてExcelの編集を出来るようにしたのですが、
>
>Workbooks.Open Filename:="\\server\excel.xls"
>
>の部分でエラーがでます。
Excelの別のインスタンスを作成する方法ではいけませんか?
Dim Myapp As Object
Set Myapp = CreateObject("excel.Application")
With Myapp
.Visible = True
.Workbooks.Open "\\server\excel.xls"
End With
それともこの読み込むブックもIE内がよいのでしょうか?
同一IE内に読み込むには上記のマクロのあるブックはクローズされますよね?
別のIEでよいなら、
Dim Myie As Object
Set Myie = CreateObject("InternetExplorer.Application")
With Myie
.Visible = True
.navigate "\\server\excel.xls"
End With
どうしても同じIEに読み込むなら、
Keinさんの
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=29268;id=excel
これを使うと
Dim MyShell As Object, MyWindow As Object, objIE As Object
Set MyShell = CreateObject("Shell.Application")
For Each MyWindow In MyShell.Windows
If TypeName(MyWindow.document) = "Workbook" Then
Set objIE = MyWindow: Exit For
End If
Next
objIE.navigate "\\server\excel.xls"
可能かもしれませんが、その後マクロが使用出来ませんよ!!
|
|