【正文】 。Sub setopen() Dim str As String F: F:\PIC , True str = (圖片文件(*.jpg),*.jpg)End Sub訂閱 預設打開對話框的默認路徑和文件名（VBA）[ 原創(chuàng),轉載請注明出處 ]在下一章，你將學習如何通過自定義窗體從用戶處收集更多的數(shù)據(jù)。你也學習了如何以及何時使用關鍵字New。你也學習了如何從Outlook里獲取聯(lián)系地址并放置到Excel工作表中。你也學習了如何手動和編程地添加鏈接和嵌入對象。接下來……在本章，你學習了如何從VBA程序里啟動、激活和控制其它應用程序（Word和Outlook）。當所有的聯(lián)系地址都被寫入Excel工作表后，該過程釋放所有對象變量，將它們設定為Nothing。使用For…Each…Next循環(huán)在工作表里寫入列標題之后，過程使用另外一個For…Each…Next循環(huán)來遍歷聯(lián)系地址文件夾中的項目。NameSpace對象包含了文件夾（聯(lián)系地址，日志，任務，等等），每個文件夾由一次有它們的項目。為了訪問Outlook里的聯(lián)系項目，你也需要聲明對象變量來引用Outlook的NameSpace和ContactItem。 row index 行號r = 2 Set objOut = New Set objNspc = (MAPI) Headings = Array(Full Name, Street, City, _ State, Zip Code, EMail)Sheets(1).Activate For Each cell In Range(A1:F1) = Headings(i) i = i + 1 Next For Each objItem In _ (olFolderContacts).Items With ActiveSheet .Cells(r, 1).Value = .Cells(r, 2).Value = .Cells(r, 3).Value = .Cells(r, 4).Value = .Cells(r, 5).Value = .Cells(r, 6).Value = End With r = r + 1 Next objItem Set objItem = Nothing Set objNspc = Nothing Set objOut = Nothing End Sub 過程GetContacts開始聲明一個叫做objOut的對象變量來存儲到Outlook應用程序的引用，該變量定義為明確的對象類型（），因此VBA使用早期綁定。Sub GetContacts() Dim objOut As Dim objNspc As NameSpace Dim objItem As ContactItem Dim Headings As Variant Dim i As Integer 39。使用自動控制訪問Microsoft Outlook要從Excel直接訪問Outlook的對象模型的話，首先就要建立對Microsoft Outlook Object Library的引用。在聲明中使用關鍵字New會導致創(chuàng)建對象，即使它沒有被使用到。關鍵字New也可以用來在聲明對象變量的時候，同時創(chuàng)建一個新的對象示例，例如：Dim objWord As New 注意，當你使用關鍵字New在Dim語句里聲明對象變量的時候，你就不需要使用Set語句了。你每次使用關鍵字New的時候，VB就會創(chuàng)建應用程序的一個新示例。例如，你可以按下面的方式使用關鍵字New：Dim objWord As Set objWord = New Dim objAccess As Set objAccess = New 使用關鍵字New聲明的對象變量總是早期綁定的。clear object variable 清除對象變量內容Set applRef = Nothing End Function 使用關鍵字New除了使用CreateObject函數(shù)來引用到其它的應用程序之外，你可以使用關鍵字New。 was reformatted. Exit Sub ErrorHandler: MsgBox , vbCritical, Error: amp。center the 1st paragraph horizontally on page 將第一段水平居中With (1).Range . = wdAlignParagraphCenter End With SaveChanges:=True Set wordDoc = Nothing Set wordAppl = Nothing MsgBox The document amp。now check if Word is running 現(xiàn)在檢查Word是否正在運行If Not IsRunning(myAppl) Then MsgBox Word is not running will create a new instance of _ Word. Set wordAppl = CreateObject() Set wordDoc = (mydoc) Else MsgBox Word is running will get the specified document. 39。 mydoc amp。 Chr(13) _ amp。 does not exist. amp。Sub CenterText() Dim wordDoc As Dim wordAppl As Dim mydoc As String Dim myAppl As String On Error GoTo ErrorHandlermydoc = C:\ myAppl = 39。基于上述檢查結果，使用CreateObject或者GetObject函數(shù)。該過程使用了一個叫做DocExists的自定義函數(shù)來檢查指定的文件是否存在?；叵胍幌拢撐募窃诒菊虑懊娴倪^程WriteLetter里創(chuàng)建的。如果你忽略該參數(shù)，那么不必須明確參數(shù)class，指明要使用的對象類型，例如： ，并且強制設置為Excel 5工作表，你可以使用下列聲明：‘ late binding 后期綁定Dim excelObj As Object Set excelObj = GetObject(C:\, ) 要設定對象變量為某個特定的Word文檔的話，你可以使用：‘early binding 早期綁定Dim wordObj As Set wordObj = GetObject(C:\) 如果要訪問一個正在運行的Office應用程序對象，那么可以將第一個參數(shù)空出：Dim excelObj As Object Set excelObj = GetObject(, ) 當你調用不帶第一個參數(shù)的GetObject函數(shù)時，它就會返回一個對該應用程序示例的引用，如果該應用程序沒有啟動的話，就會產(chǎn)生錯誤。使用GetObject函數(shù)如果你確定自動控制對象以及存在并且已經(jīng)打開，那么就考慮使用GetObject函數(shù)，如下所示：GetObject([pathname][, class]) GetObject函數(shù)有兩個參數(shù)，它們都是可選的。語句： = False 將狀態(tài)欄上的信息恢復為默認的“就緒”。每條語句之前都有一條指令，將信息顯示在Excel應用程序窗口下面的狀態(tài)欄上。CreateObject函數(shù)返回的自動控制對象賦值到一個叫做wordAppl的對象變量，因為由子弟控制啟動的應用程序不會出現(xiàn)在屏幕上，所以使用語句： = True 使啟動的Word應用程序可見，這樣你就可以觀察VBA的工作情況。4. 輸入下面過程WriteLetter：Sub WriteLetter() Dim wordAppl As = Creating Word Application Object... Set wordAppl = CreateObject() With wordAppl .Visible = True = Creating a new document.... .(1). Invitation = Saving document... . C:\ = Exiting Word... .Quit End With Set wordAppl =