如何在VB中自動(dòng)運(yùn)行EXCEL中的宏

如果是打開Excel文件就自動(dòng)運(yùn)行宏，那么，可以在ThisWorkBook里面，在WorkBook_Open事件里面加入代碼，這樣啟動(dòng)Excel文件即可自動(dòng)運(yùn)行宏?；蛘咴谀K里面使用Auto_Open事件，也可以自動(dòng)運(yùn)行宏。

發(fā)展壯大離不開廣大客戶長(zhǎng)期以來的信賴與支持，我們將始終秉承“誠信為本、服務(wù)至上”的服務(wù)理念，堅(jiān)持“二合一”的優(yōu)良服務(wù)模式，真誠服務(wù)每家企業(yè)，認(rèn)真做好每個(gè)細(xì)節(jié)，不斷完善自我，成就企業(yè)，實(shí)現(xiàn)共贏。行業(yè)涉及成都酒樓設(shè)計(jì)等，在重慶網(wǎng)站建設(shè)公司、成都營銷網(wǎng)站建設(shè)、WAP手機(jī)網(wǎng)站、VI設(shè)計(jì)、軟件開發(fā)等項(xiàng)目上具有豐富的設(shè)計(jì)經(jīng)驗(yàn)。

如果是在Excel使用過程中使用宏，就必須根據(jù)你的需要，選擇合適的事件來觸發(fā)宏代碼。

比如，如果要A1單元格的值改變，就自動(dòng)運(yùn)行某個(gè)宏，那么就在Sheet_Change事件中，加入代碼

If Target.Address = "$A$1" Then Call xx宏

如果是選取單元格變化觸發(fā)某個(gè)宏，則用SHeet_SelectionChange事件。

所以，要自動(dòng)運(yùn)行某個(gè)宏，就必須明白你首先需要在什么時(shí)候觸發(fā)宏，然后根據(jù)需要來選擇相應(yīng)的事件即可?。?/p>

vb.net如何調(diào)用打開外部excel文檔

第一步，新建項(xiàng)目。

1

打開vb.net，也就是打開Microsoft visual studio 2010，第一次使用的時(shí)候設(shè)置為basic語言就行。新建項(xiàng)目--打開excel。

2

新建成功。

END

第二步，添加引用。

1

“項(xiàng)目”--“添加引用”。

2

添加Microsoft Excel 14.0 Object Library。

END

第三步，添加打開文件對(duì)話框工具。

1

工具箱--對(duì)話框--openfiledialog。

2

添加成功。

END

第四步，添加命令按鈕控件。

1

工具箱--公共控件--button。

在控件上右擊鼠標(biāo)，進(jìn)入屬性設(shè)置。

2

text屬性設(shè)置為“打開excel”。

3

name屬性也設(shè)置為“打開excel”。

END

第五步，編寫程序。

1

鼠標(biāo)雙擊命令按鈕，進(jìn)入編程界面，編寫程序。

END

第六步，運(yùn)行程序。

1

鼠標(biāo)單擊啟動(dòng)調(diào)式圖標(biāo)，程序開始運(yùn)行。

2

單擊打開excel命令按鈕，調(diào)用打開文件對(duì)話框，選擇自己要打開的excel文件。

END

第七步，保存程序。

第一次程序運(yùn)行完，關(guān)閉程序，出現(xiàn)關(guān)閉項(xiàng)目提示，選擇保存。

2

選好自己要保存的位置。

vb.net 2010 調(diào)用word程序 打開一個(gè)word文檔

1 使用Shell函數(shù)直接調(diào)用

語法：Shell (pathname[,windowstyle]).Pathname是指要執(zhí)行的程序的名字和任何必須的參數(shù)或命令行開關(guān)，可以包括目錄和驅(qū)動(dòng)器名；Windowstyle是執(zhí)行程序的窗口風(fēng)格的數(shù)字。

使用Shell調(diào)用Word比較簡(jiǎn)單，編程量小，但必須明確指定Word所在路徑，這不利于移植，而且，不能對(duì)Word進(jìn)行控制，不利于程序和Word之間的數(shù)據(jù)交換。

2 使用OLE自動(dòng)化控制Microsoft Word

2.1 使用方法

（1)Word為OLE自動(dòng)化提供一種稱為“Basic”的對(duì)象，要在VB中控制Word ,首先要定義一個(gè)引用Word中“Basic”對(duì)象的對(duì)象變量：Dim Wordobj as Object

(2)將Word 中的“Basic”對(duì)象賦給該對(duì)象：Set Wordobj=CreateObject("Word.Basic")

(3)可以使用大多數(shù)WordBasic語句和函數(shù)控制Word或Word文檔，使用方法和在Word宏中使用WordBasic指令的方法基本相同。

(4)關(guān)閉Word:Set Wordobj =Nothing。

注意：“Basic”對(duì)象不支持關(guān)閉它自己的一個(gè)方法。即若在OLE自動(dòng)化中關(guān)閉了Word，則對(duì)象被置為Nothing，便不能再對(duì)對(duì)象進(jìn)行操作，程序出錯(cuò)。

2.2 VB指令與WordBasic指令的差異

(1)有一些語句和函數(shù)不能使用，包括：控制結(jié)構(gòu)，如While…Wend和If…Then…Else；聲明語句，如Dim；定制對(duì)話框相關(guān)的語句：FileExit語句；要求數(shù)組變量作為參數(shù)的語句或函數(shù)。

(2)也有一些指令使用方法不同。①返回字符串以一個(gè)美元符（$）結(jié)束的WordBasic函數(shù)的關(guān)鍵字必須括在方括號(hào)中。例如，在WordBasic宏中的GetBookmark$()語句：mark$=GetBookmark$("Address")，若用VB調(diào)用，必須這樣寫mark$=Wordobj.[Ge-tBookmark$]("Address")。②選擇一個(gè)命令按鈕用“True”,不選擇用“False”

2.3 對(duì)OLE自動(dòng)化的說明

Word可以為OLE自動(dòng)化給另一個(gè)應(yīng)用提供對(duì)象，但是它不能使用OLE自動(dòng)化訪問其它應(yīng)用中的對(duì)象。例如：VB和Excel可以使用OLE自動(dòng)化訪問Word，但是Word不能使用OLE自動(dòng)化訪問它們。

3 在包容器中嵌入Word對(duì)象

在VB中，要訪問在包容器中嵌入的Word對(duì)象，首先要在項(xiàng)目中插入對(duì)象。做法如下：在窗體中插入OLE控件，對(duì)象類型選擇“MicrosoftWord圖片”或“Microsoft Word文檔”，再按“確定”。

然后用Object屬性訪問文檔或圖片，并使用WordBasic語句和函數(shù)作用于它。嵌入的對(duì)象必須在可被訪問之前被激活，可以使用Action屬性激活OLE控件。例如，使用下面指令訪問一個(gè)嵌入在稱為OLE1的OLE控件中的文檔：

Dim Wordobj as Object

OLE1.Action =7

Set Wordobj =OLE1.Object.Application. WordBasic

其他方面，使用方法同OLE自動(dòng)化。使用在包容器中嵌入的Word對(duì)象，Word顯示的窗口大小、位置與OLE控件定義的大小、位置相同，而且工具欄顯示位置與Word脫離。這一點(diǎn)與OLE自動(dòng)化相比，是個(gè)不足。

總之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自動(dòng)化，通過使用WordBasic指令對(duì)Word進(jìn)行全面控制，而且，用戶使用起來與使用Microsoft Word一樣，非常方便。

怎么用VB.NET生成含有宏代碼的Excel

先創(chuàng)建一個(gè)模板e(cuò)xcel文件，然后作為資源放在程序中，先釋放這個(gè)文件，然后操作這個(gè)文件。

分享文章：vb.net打開宏文件 vb如何打開文件夾
網(wǎng)站路徑：http://aaarwkj.com/article14/doodpde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、面包屑導(dǎo)航、App設(shè)計(jì)、做網(wǎng)站、網(wǎng)站內(nèi)鏈、ChatGPT

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)