【文章內(nèi)容簡(jiǎn)介】 如果今后想用 Input 語(yǔ)句讀出文件的數(shù)據(jù)，就要用 Write 語(yǔ)句而不用 Print 語(yǔ)句將數(shù)據(jù)寫入文件。因?yàn)樵谑褂?Write 時(shí)，將數(shù)據(jù)域分界就可確保每個(gè)數(shù)據(jù)域的完整性，因此可用 Input 再將數(shù)據(jù)讀出來(lái)。使用 Write 還能確保任何地區(qū)的數(shù)據(jù)都被正確讀出。Write與 Print 語(yǔ)句不同，當(dāng)要將數(shù)據(jù)寫入文件時(shí)，Write 語(yǔ)句會(huì)在項(xiàng)目和用來(lái)標(biāo)記字符串的引號(hào)之間插入逗號(hào)。Write 語(yǔ)句在將 outputlist 中的最后一個(gè)字符寫入文件后會(huì)插入一個(gè)新行字符，即回車換行符，(Chr(13) + Chr(10))。其他文件函數(shù)LOF(filenumber) 返回一個(gè) Long，表示用 Open 語(yǔ)句打開(kāi)的文件的大小，該大小以字節(jié)為單位。EOF(filenumber) 返回一個(gè) Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random 或順序 Input 打開(kāi)的文件的結(jié)尾。Loc(filenumber) 返回一個(gè) Long，在已打開(kāi)的文件中指定當(dāng)前讀/寫位置Seek(filenumber) 返回一個(gè) Long，在 Open 語(yǔ)句打開(kāi)的文件中指定當(dāng)前的讀/寫位詳解VBA編程是什么直到 90 年代早期,:可以用EXCEL的宏語(yǔ)言來(lái)使EXCEL自動(dòng)化,使用WORD BASIC使WORD自動(dòng)化, Basic For Application(VBA),可以認(rèn)為 VBA 是非常流行的應(yīng)用程序開(kāi)發(fā)語(yǔ)言VASUAL BASIC 寄生于:1. VB是設(shè)計(jì)用于創(chuàng)建標(biāo)準(zhǔn)的應(yīng)用程序,而VBA是使已有的應(yīng)用程序(EXCEL等)自動(dòng)化2. VB具有自己的開(kāi)發(fā)環(huán)境,而VBA必須寄生于已有的應(yīng)用程序.3. 要運(yùn)行 VB 開(kāi)發(fā)的應(yīng)用程序,用戶不必安裝 VB,因?yàn)?VB 開(kāi)發(fā)出的應(yīng)用程序是可執(zhí)行文件(*.EXE),而VBA開(kāi)發(fā)的程序必須依賴于它的父應(yīng)用程序,例如EXCEL.盡管存在這些不同,如果你已經(jīng)了解了VB,當(dāng)學(xué)會(huì)在EXCEL中用VBA創(chuàng)建解決方案后,即已具備在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用VBA創(chuàng)建解決方案的大部分知識(shí).* VBA一個(gè)關(guān)鍵特征是你所學(xué)的知識(shí)在微軟的一些產(chǎn)品中可以相互轉(zhuǎn)化.* VBA可以稱作EXCEL的遙控器.VBA 究竟是什么?更確切地講,它是一種自動(dòng)化語(yǔ)言,它可以使常用的程序自動(dòng)化,可以創(chuàng)建自定義的解決方案.此外,如果你愿意,還可以將EXCEL用做開(kāi)發(fā)平臺(tái)實(shí)現(xiàn)應(yīng)用程序.EXCEL環(huán)境中基于應(yīng)用程序自動(dòng)化的優(yōu)點(diǎn)也許你想知道VBA可以干什么?使用VBA可以實(shí)現(xiàn)的功能包括:1. 使重復(fù)的任務(wù)自動(dòng)化.2. 自定義EXCEL工具欄,菜單和界面.3. 簡(jiǎn)化模板的使用.4. 自定義EXCEL,使其成為開(kāi)發(fā)平臺(tái).5. 創(chuàng)建報(bào)表.6. 對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析.用EXCEL作為開(kāi)發(fā)平臺(tái)有如下原因:1. EXCEL本身功能強(qiáng)大,包括打印,文件處理,格式化和文本編輯.2. EXCEL內(nèi)置大量函數(shù).3. EXCEL界面熟悉.4. 可連接到多種數(shù)據(jù)庫(kù).用其他語(yǔ)言開(kāi)發(fā)應(yīng)用程序,一半的工作是編寫一些基本功能的模塊,包括文件的打開(kāi)和保存,打印,則由于EXCEL已經(jīng)具備這些基本功能,你要做的只是使用它.錄制簡(jiǎn)單的宏在介紹學(xué)習(xí)VBA之前，應(yīng)該花幾分鐘錄制一個(gè)宏。新術(shù)語(yǔ)：宏，指一系列EXCEL能夠執(zhí)行的VBA語(yǔ)句。以下將要錄制的宏非常簡(jiǎn)單，只是改變單元格顏色。請(qǐng)完成如下步驟：打開(kāi)新工作簿，確認(rèn)其他工作簿已經(jīng)關(guān)閉。選擇A1單元格。調(diào)出常用工具欄。選擇工具宏錄制新宏。輸入改變顏色作為宏名替換默認(rèn)宏名，單擊確定,注意，此時(shí)狀態(tài)欄中顯示錄制，特別是停止錄制工具欄也顯示出來(lái)。替換默認(rèn)宏名主要是便于分別這些宏?！?宏名最多可為255個(gè)字符，并且必須以字母開(kāi)始。其中可用的字符包括：字母、數(shù)字和下劃線。宏名中不允許出現(xiàn)空格。通常用下劃線代表空格。選擇格式的單元格，選擇圖案選項(xiàng)中的紅色,單擊確定。單擊停止錄制工具欄按鈕，結(jié)束宏錄制過(guò)程。※ 如果停止錄制工具欄開(kāi)始并未出現(xiàn)，請(qǐng)選擇工具宏停止錄制。錄制完一個(gè)宏后就可以執(zhí)行它了。執(zhí)行宏當(dāng)執(zhí)行一個(gè)宏時(shí)，EXCEL 按照宏語(yǔ)句執(zhí)行的情況就像 VBA 代碼在對(duì) EXCEL 進(jìn)行遙控。但VBA 的遙控不僅能使操作變得簡(jiǎn)便，還能使你獲得一些使用 EXCEL 標(biāo)準(zhǔn)命令所無(wú)法實(shí)現(xiàn)的功能。而且，一旦熟悉了 EXCEL 的遙控，你都會(huì)奇怪自己在沒(méi)有這些遙控的情況下，到底是怎么熬過(guò)來(lái)的。要執(zhí)行剛才錄制的宏，可以按以下步驟進(jìn)行：選擇任何一個(gè)單元格，比如A3。選擇工具宏宏，顯示宏對(duì)話框。選擇改變顏色，選擇執(zhí)行，則 A3 單元格的顏色變?yōu)榧t色。試著選擇其它單元格和幾個(gè)單元格組成的區(qū)域，然后再執(zhí)行宏，以便加深印象。查看錄制的代碼到底是什么在控制EXCEL的運(yùn)行呢?,讓我們看看VBA的語(yǔ)句吧.選擇工具宏宏，顯示宏對(duì)話框。單擊列表中的改變顏色,選擇編輯按鈕。此時(shí)，會(huì)打開(kāi) VBA 的編輯器窗口（VBE）。關(guān)于該編輯器，以后再詳細(xì)說(shuō)明，先將注意力集中到顯示的代碼上。代碼如下：（日期和姓名會(huì)有不同）Sub 改變顏色()39。39。 改變顏色 Macro39。 xw 記錄的宏 200061039。39。With .ColorIndex = 3.Pattern = xlSolid.PatternColorIndex = xlAutomaticEnd WithEnd Sub將來(lái)會(huì)十分熟悉這種代碼，雖然現(xiàn)在它們看上去像一種奇怪的外語(yǔ)。學(xué)習(xí) VBA 或編程語(yǔ)言在某種程度上比較像在學(xué)習(xí)一種外語(yǔ)。Sub 改變顏色():這是宏的名稱。中間的以 39。開(kāi)頭的五行稱為注釋，它在錄制宏時(shí)自動(dòng)產(chǎn)生。以With 開(kāi)頭到End With 結(jié)束的結(jié)構(gòu)是With結(jié)構(gòu)語(yǔ)句，這段語(yǔ)句是宏的主要部分。注意單詞selection，它代表突出顯示的區(qū)域（即：選定區(qū)域）。With ：它讀作選擇區(qū)域的的內(nèi)部.這整段語(yǔ)句設(shè)置該區(qū)域內(nèi)部的一些屬性。其中：.ColorIndex = 3: 將該內(nèi)部設(shè)為紅色。注意：有一小圓點(diǎn)，它的作用在于簡(jiǎn)化語(yǔ)句，小圓點(diǎn)代替出現(xiàn)在With后的詞,它是With結(jié)構(gòu)的一部分。另外：紅色被數(shù)字化為3.(紅色警戒是否可稱作：3號(hào)警戒，嗯？)有興趣的話，你將3改為其他數(shù)字試試看。.Pattern = xlSolid：設(shè)置該區(qū)域的內(nèi)部圖案。由于是錄制宏，所以，雖然你并未設(shè)置這一項(xiàng)，宏仍然將其記錄下來(lái)(因?yàn)樵趫D案選項(xiàng)中有此一項(xiàng)，只是你未曾設(shè)置而已）。xlSolid 表示純色。.PatternColorIndex = xlAutomatic：表示內(nèi)部圖案底紋顏色為自動(dòng)配色。End With:結(jié)束With 語(yǔ)句。End Sub:整個(gè)宏的結(jié)束語(yǔ)編輯錄制的代碼在上一節(jié)，我們錄制了一個(gè)宏并查看了代碼，代碼中有兩句實(shí)際上并不起作用。哪兩句？現(xiàn)在，在宏中作一個(gè)修改，刪除多余行，直到和下面代碼相同：Sub 改變顏色()39。39。 改變顏色 Macro39。 xw 記錄的宏 200061039。39。With .ColorIndex = 3End WithEnd Sub完成后，在工作表中試驗(yàn)一下。你會(huì)發(fā)現(xiàn)結(jié)果和修改前的狀況一樣。在 With 語(yǔ)句前加入一行:Range(A5).Select試著運(yùn)行該宏,則無(wú)論開(kāi)始選擇哪個(gè)單元格,宏運(yùn)行結(jié)果都是使A5單元格變紅.現(xiàn)在可以看到，編輯錄制的宏同樣非常簡(jiǎn)單。需要編輯宏是因?yàn)橐韵氯齻€(gè)方面的原因。一：在錄制中出錯(cuò)而不得不修改。二：錄制的宏中有多余的語(yǔ)句需要?jiǎng)h除，提高宏的運(yùn)行速度。三：希望增加宏的功能。比如：加入判斷或循環(huán)等無(wú)法錄制的語(yǔ)句。錄制宏的局限性希望自動(dòng)化的許多 EXCEL .通過(guò)宏記錄器無(wú)法完成的工作有:錄制的宏無(wú)判斷或循環(huán)能力.人機(jī)交互能力差,即用戶無(wú)法進(jìn)行輸入,計(jì)算機(jī)無(wú)法給出提示.無(wú)法顯示EXCEL對(duì)話框.無(wú)法顯示自定義窗體.小結(jié)本章節(jié)中,你已經(jīng)掌握了 VBA 的一些基礎(chǔ)知識(shí),你會(huì)錄制宏、編輯宏而且了解了錄制宏的局限性，,就是說(shuō),。思考:VBA只能用于EXCEL嗎?VBA是基于哪種語(yǔ)言?說(shuō)說(shuō)EXCEL和VBA的關(guān)系.為什么要用宏?Excel處理錄制的宏為宏指定快捷鍵你也許希望為經(jīng)常使用的宏指定快捷鍵?？旖萱I是指鍵的組合，當(dāng)其按下時(shí)執(zhí)行一條命令。例如：CTRL+C在許多程序中代表復(fù)制命令。當(dāng)給宏指定了快捷鍵后，就可以用快捷鍵來(lái)執(zhí)行宏，而不必通過(guò)工具菜單。注意：當(dāng)包含宏的工作簿打開(kāi)時(shí)間，為宏指定快捷鍵會(huì)覆蓋 EXCEL 默認(rèn)的快捷鍵。例如：把CTRL+C指定給某個(gè)宏，那么CTRL+C就不再執(zhí)行復(fù)制命令。用以下方法可以打印出EXCEL的快捷鍵清單（用A4紙打印共有24頁(yè)之多）：打開(kāi)EXCEL幫助文件并選擇目錄選項(xiàng)。從使用快捷鍵文件夾中選擇快捷鍵標(biāo)題。右擊該標(biāo)題，從快捷菜單中選擇打印。選擇打印所選標(biāo)題和所有子主題，單擊確定。可以在創(chuàng)建宏時(shí)指定快捷鍵，也可以在創(chuàng)建后再指定。要在創(chuàng)建（錄制）宏時(shí)指定快捷鍵，只須在錄制宏時(shí)在輸入宏名后，在快捷鍵文本框中輸入相應(yīng)的鍵。錄制宏后指定快捷鍵也很簡(jiǎn)單，只需選擇工具宏，顯示宏對(duì)話框，選擇要指定快捷鍵的宏，再單擊選項(xiàng)按鈕，通過(guò)選項(xiàng)對(duì)話框進(jìn)行設(shè)置。決定宏保存的位置宏可保存在三種可能的位置：當(dāng)前工作簿。（只有該工作簿打開(kāi)時(shí)，該宏才可用。）新工作簿。個(gè)人宏工作簿。個(gè)人宏工作簿個(gè)人宏工作簿，是為宏而設(shè)計(jì)的一種特殊的具有自動(dòng)隱藏特性的工作簿。第一次將宏創(chuàng)建到個(gè)人宏工作簿時(shí)，會(huì)創(chuàng)建名為的新文件。如果該文件存在，則每當(dāng) EXCEL 啟動(dòng)時(shí)會(huì)自動(dòng)將此文件打開(kāi)并隱藏在活動(dòng)工作簿后面（在窗口菜單中選擇取消隱藏后，可以很方便地發(fā)現(xiàn)它的存在。）如果你要讓某個(gè)宏在多個(gè)工作簿都能使用，那么就應(yīng)當(dāng)創(chuàng)建個(gè)人宏工作簿，并將宏保存于其中。個(gè)人宏工作簿保存在XLSTART文件夾中。具體路徑為：C:\WINDOWS\Profiles\Application Data\Microsoft\Excel\XLSTART?？梢砸詥卧~XLSTART查詢。注意：如果存在個(gè)人宏工作簿，則每當(dāng) EXCEL 啟動(dòng)時(shí)會(huì)自動(dòng)將此文件打開(kāi)并隱藏。因?yàn)樗娣旁赬LSTART文件夾內(nèi)。保存宏到個(gè)人宏工作簿本練習(xí),將保存一個(gè)簡(jiǎn)單的宏到個(gè)人宏工作簿,該宏為文本加下劃線并改為斜體,步驟如下:建立一個(gè)名為HOUR2的工作簿，選擇工具宏錄制新宏,顯示錄制新宏對(duì)話框.輸入格式化文本作為宏名.從保存在下拉框中選擇個(gè)人宏工作簿.單擊確定.單擊斜體,鼠標(biāo)出現(xiàn)沙漏,特別是在第一次創(chuàng)建個(gè)人宏工作簿時(shí),因?yàn)镋XCEL在創(chuàng)建該工作簿.單擊下劃線按鈕.停止錄制.使用并編輯個(gè)人宏工作簿中的宏剛才已經(jīng)保存了一個(gè)宏到個(gè)人宏工作簿,操作:關(guān)閉所有EXCEL工作簿.任意打開(kāi)一個(gè)EXCEL文件.(EXCEL自動(dòng)將個(gè)人宏工作簿同時(shí)打開(kāi)并隱藏.)在A3中輸入你的名字.選擇工具宏,格式化文本這個(gè)宏.選擇格式化文本宏, A3 單元格中,窗口取消隱藏,其中沒(méi)有任何文字,但通過(guò)VBA編輯器可以在其中的模塊中找到格式化文本 VBA 中一個(gè)宏都沒(méi)有,在啟動(dòng) EXCEL 時(shí)仍會(huì)打開(kāi) ,這也許是EXCEL存在的一個(gè)小毛病.將宏指定給按鈕即使通過(guò)快捷鍵可以是宏的執(zhí)行變快,但是一旦宏的數(shù)量多了也難于記憶,而且,如果宏是由其他人來(lái)使用,難道你要他們也記住那么多的快捷鍵嗎?作為 EXCEL 開(kāi)發(fā)者,一個(gè)主要的目標(biāo)是為自動(dòng)化提供一個(gè)易于操作的界面.按鈕窗體工具欄，可以為工作簿中的工作表添加按鈕。在創(chuàng)建完一個(gè)按鈕后，可以為它指定宏，然后你的用戶就可以通過(guò)單擊按鈕來(lái)執(zhí)行宏。在本練習(xí)中，將創(chuàng)建一個(gè)按鈕，并為它指定一個(gè)宏，然后用該按鈕來(lái)執(zhí)行宏。具體步驟如下：打開(kāi)HOUR2工作簿。調(diào)出窗體工具欄。單擊窗體工具欄中的按鈕控件，此時(shí)鼠標(biāo)變成十字形狀。在希望放置按鈕的位置按下鼠標(biāo)左鍵，拖動(dòng)鼠標(biāo)畫出一個(gè)矩形，這個(gè)矩形代表了該按鈕的大小。對(duì)大小滿意后放開(kāi)鼠標(biāo)左鍵，這樣一個(gè)命令按鈕就添加到了工作表中，同時(shí) EXCEL 自動(dòng)顯示指定宏對(duì)話框。從指定宏對(duì)話框中選擇格式化文本，單擊確定。這樣，就把該宏指定給命令按鈕。在按鈕的標(biāo)題按鈕1前單擊鼠標(biāo)左鍵，按下DELETE直到刪除所有文本，輸入格式化作為標(biāo)題。單擊按鈕外的任意位置，現(xiàn)在該按鈕的標(biāo)題由默認(rèn)的按鈕1變?yōu)楦袷交冶恢付艘粋€(gè)宏。試著在某個(gè)單元格中輸入文本，單擊按鈕運(yùn)行該宏。當(dāng)鼠標(biāo)移動(dòng)至該按鈕時(shí)自動(dòng)變成手的形狀，如果要改變其大小或標(biāo)題，只需用右鍵單擊該按鈕就可以進(jìn)行修改和設(shè)置。很明顯，你再也不需記住宏的名字或快捷鍵了，只需按一下按鈕。將宏指定給圖片或其他對(duì)象要執(zhí)行宏有多種方法可以選擇，可以將宏指定給按鈕等控件，還可以指定給圖片、自定義工具欄、窗體甚至可以將宏指定給某個(gè)事件，比如單擊工作表，雙擊工作表，激活工作表，打開(kāi)工作簿等等，事件是一個(gè)重要的概念，除此而外方法對(duì)象都是將來(lái)你會(huì)經(jīng)常接觸到的。現(xiàn)在它們看來(lái)十分抽象，但是將來(lái)你會(huì)很熟悉這些詞語(yǔ)。指定宏到圖片十分簡(jiǎn)單，只需單擊某個(gè)圖片，單擊快捷菜單中的指定宏進(jìn)行設(shè)置即可。如果不希望在工作表上添加控件或圖片執(zhí)行宏，還有一種方法可以選擇：將宏指定給工具欄按鈕，可按如下步驟進(jìn)行：打開(kāi)HOUR2工作簿，選擇工具定義，顯示自定義工具欄對(duì)話框。從類別列表框中選擇宏，從命令列表框中選擇自定義按鈕。將自定義按鈕拖動(dòng)到工具欄。右鍵單擊該按鈕，選擇指定宏，顯示指定宏對(duì)話框。選擇格式化文本并確定。單擊關(guān)閉按鈕，關(guān)閉自定義工具欄對(duì)話框。試著在某個(gè)單元格中輸入文本，單擊工具欄按鈕運(yùn)行該宏。小結(jié)小結(jié)與思考：宏存放于三個(gè)可能的位置。