ÇÔ¸Õ¡ÒÃãªé¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃìà¾×èÍà»Ô´àÍ¡ÊÒà Office

àÁ×èÍ·Ó§Ò¹¡ÑºàÍ¡ÊÒà Office ¤Ø³ÍÒ¨µéͧ¡ÒÃáÊ´§àÍ¡ÊÒÃàËÅèÒ¹Õéâ´ÂµÃ§ã¹ Visual Basic áµèäÁèµéͧ¡ÒÃÊÃéÒ§¡ÒýѧµÑÇÇѵ¶Ø OLE ãªé¤Í¹à·¹à¹ÍÃì¢Í§¤Í¹â·ÃÅ OLE á·¹ ¤Ø³µéͧ¡ÒÃàª×èÍÁâ§ä»ÂѧàÍ¡ÊÒÃÁÕÍÂÙè áÅÐà»Ô´á¿éÁà»ç¹Çѵ¶Ø ActiveX àÍ¡ÊÒÃẺ᷹·Õè fortunately ¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃì¢Í§ Microsoft àʹÍÇÔ¸Õá¡é䢻ѭËÒ

º·¤ÇÒÁ¹Õé͸ԺÒÂÇÔ¸Õ¡Òùӷҧä»ÂѧàÍ¡ÊÒà Office ÁÕÍÂÙè áÅÐáÊ´§ÍÂÙèã¹ Visual Basic ·Õèãªé¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃì

activex àÍ¡ÊÒÃà»ç¹Çѵ¶Ø OLE embeddable ·Õè·Ó§Ò¹ÁÒ¡¢Öé¹àªè¹à´ÕÂǡѺµÑǤǺ¤ØÁ activex ·ÕèäÁèãªèÇѵ¶Ø OLE Ẻ´Ñé§à´ÔÁ Í͡ẺᵡµèÒ§¨Ò¡Çѵ¶Ø½Ñ§µÑÇẺ»¡µÔ à¾ÔèÁàÍ¡ÊÒà ActiveX äÁèÁÒà»ç¹ Çѵ¶Ø·ÕèÁÕÍÂÙèã¹àÍ¡ÊÒ÷ÕèÁÕ¢¹Ò´ãË­è á·¹ Áѹ¨Ð¶×Íà»ç¹àÍ¡ÊÒÃàÊÃç¨ÊÁºÙÃ³ì ´éǵÑÇàͧ «Öè§à»ç¹á¤è¨Ð¶Ù¡áÊ´§µÒÁµÑÇáÊ´§ (àªè¹ Internet Explorer) ËÃ×ͨж١à¡çºÃǺÃÇÁäÇéã¹·ÃѾÂÒ¡Ãà´ÕÂǡѺàÍ¡ÊÒÃÍ×è¹ (àªè¹ Binder Ẻá¿éÁ)

ã¹¢³Ð·Õè Microsoft Visual Basic äÁèÍÂÙèã¹¢³Ð¹ÕéʹѺʹع¡ÒÃâÎʵì ActiveX àÍ¡ÊÒÃâ´ÂµÃ§ ¤Ø³ÊÒÁÒöËÅÕ¡àÅÕ觢éͨӡѴ¹Õé â´Âãªé¤ÇÒÁÊÒÁÒö¢Í§ Internet Explorer áÅСÒäǺ¤ØÁ¢Í§àÇçºàºÃÒÇìà«ÍÃì ¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃì (Shdocvw.dll) à»ç¹Êèǹ˹Ö觢ͧ Internet Explorer áÅÐÊÒÁÒöãªé¡ÑºÃкº·ÕèÁÕ¡ÒõԴµÑé§ Internet Explorer à·èÒ¹Ñé¹

¡ÒÃÊÃéÒ§á;ÅÔपѹ¢Í§ Visual Basic ·Õèà»Ô´àÍ¡ÊÒà Office

ãªé¢Ñ鹵͹µèÍ仹Õéà¾×èÍÊÃéÒ§â»Ãá¡ÃÁ»ÃÐÂØ¡µì Visual Basic ·Õèà»Ô´àÍ¡ÊÒà Office:

1. àÃÔèÁ¡Ò÷ӧҹ¢Í§ Visual Basic áÅÐÊÃéÒ§â¤Ã§¡ÒÃãËÁèÁҵðҹ Form1 ¨Ð¶Ù¡ÊÃéÒ§¢Öé¹µÒÁ¤èÒàÃÔèÁµé¹
2. ¨Ò¡¹Ñé¹ProjectàÁ¹Ù ¡ÒÃàÅ×Í¡¤ÍÁâ¾à¹¹µìàÁ×è͵éͧ¡ÒÃà»Ô´¡ÒäÍÁâ¾à¹¹µì¡ÅèͧâµéµÍº 㹡ÅèͧâµéµÍº¡ÒÃÊèǹ»ÃСͺ à¾ÔèÁ¡ÒÃÍéÒ§ÍÔ§ä»Âѧ MicrosoftµÑǤǺ¤ØÁ¡ÅèͧâµéµÍº·Õ辺â´Â·ÑèÇä»áÅÐÂѧ Microsoft¡ÒäǺ¤ØÁÍÔ¹à·ÍÃìà¹çµ. ¤ÅÔ¡µ¡Å§à¾×èÍà¾ÔèÁÃÒ¡ÒÃŧ㹡Åèͧà¤Ã×èͧÁ×Í
3. à¾ÔèÁÍÔ¹Êáµ¹«ì¢Í§µÑǤǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃì CommonDialog ¤Çº¤ØÁ áÅÐẺ CommandButton ä» Form1
4. ¢Ñ鹵͹¶Ñ´ä» à¾ÔèÁÃËÑʵèÍ仹Õéŧã¹Ë¹éÒµèÒ§ÃËÑÊÊÓËÃѺ Form1:

   Option Explicit
   
   Dim oDocument As Object
   
   Private Sub Command1_Click()
      Dim sFileName As String
      
    ' Find an Office file...
      With CommonDialog1
         .FileName = ""
         .ShowOpen
         sFileName = .FileName
      End With
      
    ' If the user didn't cancel, open the file...
      If Len(sFileName) Then
         Set oDocument = Nothing
         WebBrowser1.Navigate sFileName
      End If
   End Sub
   
   Private Sub Form_Load()
      Command1.Caption = "Browse"
      ' For the 2007 Microsoft Office documents, change the .Filter parameter of the 
      ' With CommonDialog1 statement to:
      ' .Filter = "Office Documents " & _
      '      "(*.docx, *.xlsx, *.pptx)|*.docx;*.xlsx;*.pptx"
      With CommonDialog1
         .Filter = "Office Documents " & _
         "(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt"
         .FilterIndex = 1
         .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
      End With
   End Sub
   
   Private Sub Form_Unload(Cancel As Integer)
      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
   					

5. ¡´f5àÁ×è͵éͧ¡ÒÃàÃÕ¡ãªéâ¤Ã§¡Òà àÁ×èͤسàÅ×Í¡¹Ñé¹àÃÕ¡´Ù»ØèÁOPEN¡ÅèͧâµéµÍº»ÃÒ¡¯¢Öé¹ãËé¤Ø³ÊÒÁÒö¹Ó·Ò§ä»Âѧá¿éÁ Word, Excel ËÃ×Í PowerPoint àÅ×Í¡OPENáÅÐàÍ¡ÊÒäÇÃà»Ô´ÍÂÙèÀÒÂã¹µÑǤǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃì ¡Åèͧ¢éͤÇÒÁáÅéÇáÊ´§ÇèÒ¨ÐáÊ´§ª×èͧ͢â»Ãá¡ÃÁ»ÃÐÂØ¡µì¢Í§ Office ·Õèà»Ô´á¿éÁ

ÊÔ觷Õè¤ÇþԨÒóÒàÁ×èͤسãªé¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃìã¹â»Ãá¡ÃÁ Microsoft Office 2007

µèÍ仹Õé¤ÇþԨÒóÒàÁ×èͤسãªéàÇçºàºÃÒÇìà«ÍÃì·ÕèµÑǤǺ¤ØÁ:

• ¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃì asynchronously navigates ¡ÑºàÍ¡ÊÒà «Öè§ËÁÒ¤ÇÒÁ ÇèÒ ¡ÒÃàÃÕ¡¡ÅѺ¡ÒäǺ¤ØÁä»Âѧâ»Ãá¡ÃÁ»ÃÐÂØ¡µì Visual Basic ¢Í§¤Ø³¡è͹·ÕèàÍ¡ÊÒÃä´é¶Ù¡âËÅ´â´ÂÊÁºÙóì à¡Ô´¢Öé¹àÁ×èͤسàÃÕ¡ãªé WebBrowser1.Navigate ¶éҤسÁÕá¼¹·Õè¨Ð·ÓãËéàÍ¡ÊÒ÷ÕèÁÕÍÂÙè ãªéNavigateComplete2à˵ءÒóì´Ñ§¹Ñ鹤س¨Ð·ÃÒºàÁ×èÍàÍ¡ÊÒÃä´éàÊÃç¨ÊÔ鹡ÒÃâËÅ´ ãªéẺàÍ¡ÊÒäسÊÁºÑµÔ¹ÕéàÇçºàºÃÒà«ÍÃìÇѵ¶Ø¡ÒÃÍéÒ§ÍÔ§¶Ö§Íͺà¨ç¡µìàÍ¡ÊÒà Office ·Õèä´éÃѺ ã¹ÃËÑÊ¡è͹˹éÒ ¡ÒÃÍéÒ§ÍÔ§¶Ù¡¡Ó˹´à»ç¹oDocument.
• ËÅÒ·ÃÒºÇèÒ »Ñ­ËÒ·Õèà¡Ô´¢Öé¹ä´éàÁ×èͤسÁÕ¡ÒäǺ¤ØÁàÇçºàºÃÒÇìà«ÍÃìÁÒ¡¡ÇèÒ˹Öè§ã¹â¤Ã§¡Òà áÅÐáµèÅеÑǤǺ¤ØÁ¶Ù¡âËÅ´ ´éÇÂàÍ¡ÊÒà Office ª¹Ô´à´ÕÂǡѹ ¹Ñ蹤×Í áµèÅеÑǤǺ¤ØÁ»ÃСͺ´éÇÂàÍ¡ÊÒà Word ·Ñé§ËÁ´ËÃ×Í¡ÃдÒɤӹdz¢Í§ Excel ·Ñé§ËÁ´ We recommend that you use only one control per project and that you move to one document at a time.
• To clear the current content from the WebBrowser, use the following code to navigate to the default blank page in the Click event of another command button. Or, do this in some other appropriate place in your code.

     WebBrowser1.Navigate "about:blank"
  					

What to consider when you use the WebBrowser control in the Microsoft Office 2003 programs and in earlier versions of Office

The following should be considered when you use the WebBrowser control:

• The WebBrowser control navigates to documents asynchronously. This means that when you call WebBrowser1.Navigate, the call returns control to your Visual Basic application¡è͹the document has been completely loaded. If you plan on Automating the contained document, you need to use theNavigateComplete2event to know when the document has finished loading. ãªéẺDocumentproperty of the WebBrowser object passed in to get a reference to the Office document object, which, in the preceding code, is set to oDocument.
• The WebBrowser control does not support menu merging. If you need the document's menu items to appear with your Visual Basic menu, you must use the OLE container control instead.
• The WebBrowser control generally hides any docked toolbars before displaying an Office document. You can use Automation to show a floating toolbar using code such as this:

     With oDocument.Application.CommandBars("Standard")
        .Position = 4 '[msoBarFloating]
        .Visible = True
     End With
  					

  Newer versions of Internet Explorer (5.0 and greater) also allow you to display docked toolbars using the following code:

   ' This is a toggle option, so call it once to show the 
   ' toolbars and once to hide them. This works with Internet Explorer 5
   ' but often fails to work properly with earlier versions...
     WebBrowser1.ExecWB OLECMDID_HIDETOOLBARS, OLECMDEXECOPT_DONTPROMPTUSER
  					

• There are several known issues with having more than one WebBrowser control in a project, and having each control loaded with the same type of Office document (that is, all Word documents, or all Excel spreadsheets). It is recommended that you only use one control per project, and navigate to one document at a time.
  
  The most common problem is with Office Command Bars, which appear disabled. If you have two WebBrowser controls on the same form, both loaded with Word documents, and you have displayed toolbars using one of the preceding techniques, only one set of toolbars will be active and work correctly. The other will be disabled and cannot be used.
• To clear the WebBrowser of its current contents, in the¤ÅÔ¡event of another command button (or in some other appropriate place in your code), navigate to the default blank page using this code:

     WebBrowser1.Navigate "about:blank"
  					

For more information about the WebBrowser control in Visual Basic, click the following article numbers to view the articles in the Microsoft Knowledge Base: