| |
▼いい味でてるね さん：
こんばんは。
>教えてください。
>
>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
それともこの読み込むブックもＩＥ内がよいのでしょうか？
同一ＩＥ内に読み込むには上記のマクロのあるブックはクローズされますよね？
別のＩＥでよいなら、
Dim Myie As Object
Set Myie = CreateObject("InternetExplorer.Application")
With Myie
.Visible = True
.navigate "\\server\excel.xls"
End With
どうしても同じＩＥに読み込むなら、
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"
可能かもしれませんが、その後マクロが使用出来ませんよ！！
|
|
ichinose
- 06/4/6(木) 22:07 -
