Publisher) (MailMerge.OpenDataSource 方法

將資料來源附加到指定的出版物，此時若無主出版物，則它會成為主出版物。

語法

運算式。OpenDataSource (bstrDataSource、 bstrConnect、 bstrTable、 fOpenExclusive、 fNeverPrompt)

表達 代表 MailMerge 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
bstrDataSource	選用	String	資料來源路徑和檔案名稱。 您可以指定 Microsoft Query (.qry) 檔案，而不是指定資料來源、連接字串和資料表名稱字串;Microsoft Query 檔案中的值會覆寫 bstrConnect 和 bstrTable 的值。
bstrConnect	選用	String	連接字串。
bstrTable	選用	String	資料來源中的表格名稱。
fOpenExclusive	選用	Long	True 是表示 拒絕其他資料庫的存取權。 False 讓其他人可以讀取/寫入至資料庫的權限。 預設值為 False 。
fNeverPrompt	選用	Long	True 是表示 永遠不會提示開啟資料來源時。 False 會顯示 [資料連結屬性 ] 對話方塊。 預設值為 False。

註解

[!注意事項] 若您使用合併列印資料來源，您必須將新增型錄合併列印區域至出版物頁面之前附加至資料來源。

範例

本範例會連接資料庫中的表格，並在資料庫開啟時，拒絕任何人對該資料庫進行寫入存取。

若要讓此範例正常執行，您必須以有效的檔案路徑和 TableName 有效的資料來源資料表名稱取代 PathToFile 。

Sub AttachDataSource() 
 
    ActiveDocument.MailMerge.OpenDataSource _ 
        bstrDataSource:="PathToFile", _ 
        bstrTable:="TableName", _ 
        fNeverPrompt:=True, fOpenExclusive:=True 
 
End Sub

注意事項

針對 TableName ，如果正在開啟 Excel 試算表， TableName 則必須接著 $ 。 也就是說， bstrTable:="Sheet1" 將無法運作; bstrTable:="Sheet1$" 將會運作。 以下是進一步厘清這點的範例。

在此範例中，資料會儲存在 sheet1 MySpreadSheet.xlsx與 Publisher 檔案相同的目錄中。

Dim strDataFile as String
strDataFile = Application.ActiveDocument.Path & "MySpreadSheet.xlsx"

ActiveDocument.MailMerge.OpenDataSource _ 
    bstrDataSource:=strDataFile, _ 
    bstrTable:="Sheet1$", _ 
    fNeverPrompt:=True, fOpenExclusive:=True 

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。