|
ｿｽ@ｿｽｿｽWebBrowserｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌ開ｿｽｿｽｿｽﾌ仕ｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽKｿｽｿｽｿｽ_ｿｽ}ｿｽ[ 2004/07/08(ｿｽｿｽ) 18:09:50
ｿｽｿｽｿｽｿｽHPｿｽﾅは托ｿｽﾏゑｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌアｿｽhｿｽｿｽｿｽXｿｽｿｽ
ｿｽwWebBrowser ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ Navigate ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾉゑｿｽ驛ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽNｿｽx
ｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽB
http://support.microsoft.com/default.aspx?scid=kb;ja;418376
ｿｽｿｽｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽ@ｿｽﾆゑｿｽｿｽｿｽ
ｿｽwWebBrowser ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽ利用ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽIｿｽﾉ終ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽBｿｽx
ｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽLｿｽﾌ暦ｿｽｿｽRｿｽｿｽｿｽ轤ｾｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
WebBrowserｿｽｿｽｿｽｿｽExcelｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾍんだまま開ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍどゑｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽﾎ開ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽExcelｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽIｿｽﾈ趣ｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽごゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/07/08(ｿｽｿｽ) 18:34:10
http://support.microsoft.com/default.aspx?scid=kb;ja;304643
oDocument = Nothing
ｿｽﾅダｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆ？
ｿｽKｿｽｿｽｿｽ_ｿｽ}ｿｽ[ 2004/07/09(ｿｽｿｽ) 10:34:31
Set oDocument = Nothingｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽ
ｿｽ^ｿｽXｿｽNｿｽ}ｿｽlｿｽ[ｿｽWｿｽｿｽｿｽ[ｿｽﾌプｿｽｿｽｿｽZｿｽXｿｽ^ｿｽuｿｽｿｽﾝゑｿｽｿｽ
EXCEL.EXEｿｽｿｽWINWORD.EXEｿｽﾍプｿｽｿｽｿｽZｿｽXｿｽﾆゑｿｽｿｽﾄ残ｿｽｿｽｿｽｿｽｿｽﾜまでゑｿｽｿｽB
ｿｽﾅ終ｿｽIｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽWINWORD.EXEｿｽﾌプｿｽｿｽｿｽZｿｽX
ｿｽﾍなゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽｿｽEXCEL.EXEｿｽﾍプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽﾌ『ｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ終ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽBｿｽxｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆではなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH
Microsoftｿｽﾌ鯉ｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ意厄ｿｽｿｽｿｽ
ｿｽ謔ｭｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽKｿｽｿｽｿｽ_ｿｽ}ｿｽ[ 2004/07/14(ｿｽｿｽ) 19:14:37
http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B243058
ｿｽｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾅテｿｽXｿｽgｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾍり同ｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@EXCELｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽBｿｽiWebBrowserｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽj
ｿｽAｿｽ@ｿｽﾆは違うｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽBｿｽiWebBrowserｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽj
ｿｽBｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
EXCEL.EXEｿｽﾌプｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽ黷ｸｿｽﾉ残ｿｽｿｽﾜゑｿｽｿｽB
ｿｽPｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾄプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ
EXCEL.EXEｿｽﾌプｿｽｿｽｿｽZｿｽXｿｽﾍゑｿｽｿｽｿｽｿｽﾆ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍどのようｿｽﾈ対擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽKｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/07/15(ｿｽｿｽ) 09:17:56
Excel ｿｽﾌ開ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽﾄは過具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
(ｿｽLｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽwｿｽJｿｽｿｽｿｽxｿｽﾈゑｿｽ)
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200403/04030102.txt
ｿｽｿｽｿｽﾌ厄ｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾝ難ｿｽﾅのｿｽｿｽｿｽｿｽNｿｽｿｽﾈど参ｿｽlｿｽﾉゑｿｽｿｽｿｽﾄゑｿｽ
ｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
ｿｽKｿｽｿｽｿｽ_ｿｽ}ｿｽ[ 2004/07/15(ｿｽｿｽ) 13:32:02
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽﾌ難ｿｽeｿｽﾅ抵ｿｽｿｽﾗてみまゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ致ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽKｿｽｿｽｿｽ_ｿｽ}ｿｽ[ 2004/07/15(ｿｽｿｽ) 19:49:56
Option Explicit
Dim oDocument As Object
Dim objApp As Excel.Application
Dim objExl As Excel.Workbook
Private Sub Command1_Click()
Dim sFileName As String
' ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽv
With CommonDialog1
.FileName = ""
.ShowOpen
sFileName = .FileName
End With
' ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽ
If Len(sFileName) Then
Set oDocument = Nothing
'Set objExl = Nothing
'Set objApp = Nothing
Set objApp = CreateObject("Excel.Application")
Set objExl = objApp.Workbooks.Open(sFileName)
WebBrowser1.Navigate sFileName
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "Browse"
With CommonDialog1
.Filter = "Office ｿｽhｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽg " & _
"(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt"
.FilterIndex = 1
.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objExl = Nothing
Set objApp = Nothing
Set oDocument = Nothing
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _
URL As Variant)
On Error Resume Next
Set oDocument = pDisp.Document
MsgBox "File opened by: " & oDocument.Application.Name
End Sub
ｿｽｿｽLｿｽﾌアｿｽhｿｽｿｽｿｽXｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽJｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
WebBrowserｿｽｿｽEXCELｿｽｿｽJｿｽｿｽｿｽOｿｽﾉ趣ｿｽｿｽｿｽｿｽﾅ指ｿｽ閧ｵｿｽｿｽEXCELｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ
ｿｽJｿｽｿｽｿｽ謔､ｿｽﾝ定しｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ轤ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾇのようｿｽｿｽEXCELｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽﾎよいｿｽｿｽ
ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟテｿｽXｿｽgｿｽ¥ｿｽ[ｿｽXｿｽｿｽSｿｽﾄ貼ｿｽｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽLｿｽﾌままでゑｿｽEXELｿｽﾌタｿｽXｿｽNｿｽｿｽｿｽ痰､ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾑゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽLｿｽﾌ場合ｿｽAｿｽﾇゑｿｽｿｽAｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
Ohen 2004/07/15(ｿｽｿｽ) 23:40:26
ｿｽｿｽ`ｿｽAｿｽ答ではなゑｿｽｿｽだゑｿｽｿｽB
ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾖの参ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅ、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは鯉ｿｽｿｽｿｽﾈゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽH
ｿｽﾐゑｿｽ 2006/05/30(ｿｽｿｽ) 13:08:20
ActiveX EXEｿｽﾌオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ場合ｿｽﾍ、
ｿｽOｿｽｿｽｿｽｿｽﾌオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾖの参ｿｽﾆゑｿｽｿｽSｿｽﾄ擾ｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽ鼾ｿｽﾉゑｿｽｿｽｿｽﾄは終ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ終ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､
