一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

從一個Office 程序控制另一個Office程序

 cslgwy 2019-12-28

如果要在一個 Office 應(yīng)用程序中運行與另一個應(yīng)用程序中的對象一起使用的代碼, 請按照以下步驟操作。

一、在“引用”**** 對話框(VBA--工具  菜單)中,設(shè)置對其他應(yīng)用程序的類型庫的引用 設(shè)置引用后,對象、屬性和方法將顯示在對象瀏覽器中,并且會在編譯時檢查語法。 此外,您還可以獲得有關(guān)它們的快捷幫助。
例如:引用庫:Microsoft PowerPoint 16.0 Object Library

二、將對象變量聲明為特定類型,該對象變量將引用其他應(yīng)用程序中的對象。 請確保使用提供對象的應(yīng)用程序的名稱限定每一個類型。 例如, 以下語句聲明一個變量, 該變量將指向一個 Word 文檔, 另一個引用 Excel 應(yīng)用程序。
  1. VB

  2. Dim appWD As Word.Application, wbXL As Excel.Application

  3. 備注

  4. 如果您希望代碼早期綁定, 則必須按照上面的步驟操作。

三、將 New 關(guān)鍵字與要在其他應(yīng)用程序中使用的對象的 OLE 程序標(biāo)識符一起使用,如以下示例所示。 如果要查看其他應(yīng)用程序的會話,請將 Visible 屬性設(shè)置為 True
  1. VB

  2. Dim appWD As Word.Application  

  3. Set appWD = New Word.Application  

  4.  appWd.Visible = True

四、將屬性和方法應(yīng)用于包含在變量中的對象。 例如,下面的指令將創(chuàng)建一個 Word 文檔。

  1. VB

  2. Dim appWD As Word.Application 

  3. Set appWD = New Word.Application appWD.Documents.Add

五、結(jié)束對另一個應(yīng)用程序的操作后,請使用 Quit 方法將其關(guān)閉,如以下示例所示。

VB
   appWd.Quit 

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    午夜福利92在线观看| 69老司机精品视频在线观看| 儿媳妇的诱惑中文字幕| 中文字幕人妻综合一区二区| 最新69国产精品视频| 国产人妻精品区一区二区三区| 精品欧美日韩一区二区三区| 在线日韩欧美国产自拍| 国产女优视频一区二区| 久久综合日韩精品免费观看| 色婷婷视频国产一区视频| 出差被公高潮久久中文字幕| 国产一区欧美一区二区| 亚洲精品一区三区三区| 日韩免费午夜福利视频| 欧美日韩精品久久第一页| 在线免费观看黄色美女| 成年人免费看国产视频| 免费播放一区二区三区四区| 亚洲欧美日韩色图七区| 午夜精品黄片在线播放| 久久精品国产亚洲av麻豆| 亚洲精品国产第一区二区多人| 国产欧美日韩精品一区二区| 国产又大又硬又粗又湿| 婷婷伊人综合中文字幕| 深夜视频在线观看免费你懂| 人妻人妻人人妻人人澡| 欧美黑人巨大一区二区三区| 亚洲国产精品久久琪琪| 亚洲av日韩av高潮无打码| 国产成人免费高潮激情电| 深夜视频在线观看免费你懂| 日韩三极片在线免费播放| 国产精品久久女同磨豆腐| 91亚洲国产日韩在线| 欧美成人黄色一级视频| 亚洲永久一区二区三区在线| 免费在线观看激情小视频| 亚洲国产成人爱av在线播放下载| 人妻少妇久久中文字幕久久|