【文章內(nèi)容簡介】 Weekday(date, [firstdayofweek]) 返回一個(gè) Variant (Integer)，包含一個(gè)整數(shù)，代表某個(gè)日期是星期幾 第十三節(jié) 文件操作 文件 Dir[(pathname[, attributes])] ； pathname 可選參數(shù)，用來指定文件名的字符串表達(dá)式，可能包含目錄或文件夾、以及驅(qū)動(dòng)器 。如果沒有找到 pathname，則會(huì)返回零長度字符串 ()。 attributes 可選參數(shù)。常數(shù)或數(shù)值表達(dá)式，其總和用來指定文件屬性。如果省略，則會(huì)返回匹配 pathname 但不包含屬性的文件。 刪除 Kill pathname 從磁盤中刪除文件 , pathname 參數(shù)是用來指定一個(gè)文件名 RmDir pathname 從磁盤中刪除刪除目錄， pathname 參數(shù)是用來指定一個(gè)文件夾 打開 Open pathname For mode [Access access] [lock] As []filenumber [Len=reclength] 能 Excel 財(cái)務(wù) 管理中 的應(yīng)用 —— 編程篇 13 夠?qū)ξ募斎?/輸出 (I/O)。 pathname 必要。字符串表達(dá)式，指定文件名，該文件名可能還包括目錄、文件夾及驅(qū)動(dòng)器。 mode 必要。關(guān)鍵字，指定文件方式，有 Append、 Binary、 Input、 Output、或 Random 方式。如果未指定方式，則以 Random 訪問方式打開文件。 access 可選。關(guān)鍵字，說明打開的文件可以進(jìn)行的操作，有 Read、 Write、或 Read Write 操作。 lock 可選。關(guān)鍵字，說明 限定于其它進(jìn)程打開的文件的操作，有 Shared、 Lock Read、 Lock Write、和 Lock Read Write 操作。 filenumber 必要。一個(gè)有效的文件號(hào)，范圍在 1 到 511 之間。使用 FreeFile 函數(shù)可得到下一個(gè)可用的文件號(hào)。 reclength 可選。小于或等于 32， 767（字節(jié)）的一個(gè)數(shù)。對(duì)于用隨機(jī)訪問方式打開的文件，該值就是記錄長度。對(duì)于順序文件，該值就是緩沖字符數(shù)。 說明 對(duì)文件做任何 I/O 操作之前都必須先打開文件。 Open 語句分配一個(gè)緩沖區(qū)供文件進(jìn)行 I/O 之用，并決定緩沖區(qū)所使用的訪問方式。如果 pathname 指定的文件不存在，那么，在用 Append、 Binary、 Output、或 Random 方式打開文件時(shí)，可以建立這一文件。如果文件已由其它進(jìn)程打開，而且不允許指定的訪問類型，則 Open 操作失敗，而且會(huì)有錯(cuò)誤發(fā)生。如果 mode 是 Binary 方式，則 Len 子句會(huì)被忽略掉。 重要 在 Binary、 Input 和 Random 方式下可以用不同的文件號(hào)打開同一文件，而不必先將該文件關(guān)閉。在 Append 和 Output 方 式下，如果要用不同的文件號(hào)打開同一文件，則必須在打開文件之前先關(guān)閉該文件。 讀入 Input filenumber, varlist 從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量 Get []filenumber, [reumber], varname 將一個(gè)已打開的磁盤文件讀入一個(gè)變量之中。 寫入 Write filenumber, [outputlist] 將數(shù)據(jù)寫入順序文件 Print filenumber, [outputlist] 將格式化顯示的數(shù)據(jù)寫入順序文件中 Put []filenumber, [reumber], varname 將一個(gè)變量的數(shù)據(jù)寫入磁盤文件中。 關(guān)閉 Close [filenumberlist] 關(guān)閉 Open 語句所打開的輸入 /輸出 (I/O) 文件 注意 如果今后想用 Input 語句讀出文件的數(shù)據(jù)，就要用 Write 語句而不用 Print 語句將數(shù)據(jù)寫入文件。因?yàn)樵谑褂? Write 時(shí)，將數(shù)據(jù)域分界就可確保每個(gè)數(shù)據(jù)域的完整 Excel 財(cái)務(wù) 管理中 的應(yīng)用 —— 編程篇 14 性，因此可用 Input 再將數(shù)據(jù)讀出來。使用 Write 還能確保任何地區(qū)的數(shù)據(jù)都被正確讀出。 Write 與 Print 語句不同，當(dāng)要將數(shù)據(jù)寫入文件時(shí)， Write 語句會(huì)在項(xiàng)目和用來標(biāo)記字符串的引號(hào)之間插入逗號(hào)。 Write 語句在將 outputlist 中的最后一個(gè)字符寫入文件后會(huì)插入一個(gè)新行字符，即回車換行符， (Chr(13) + Chr(10))。 其他文件函數(shù) LOF(filenumber) 返回一個(gè) Long，表示用 Open 語句打開的文件的大小，該大小以字節(jié)為單位。 EOF(filenumber) 返回一個(gè) Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random 或順序 Input 打開的文件的結(jié)尾。 Loc(filenumber) 返回一個(gè) Long，在已打開的文件中指定當(dāng)前讀 /寫位置 Seek(filenumber) 返回一個(gè) Long，在 Open 語句打開的文件中指定當(dāng)前的讀 /寫位 15 第 二 篇 VBA 程序設(shè)計(jì) 第一 節(jié) VBA是什么 VBA 是什么 直到 90 年代早期 ,使應(yīng)用程序自動(dòng)化還是充滿挑戰(zhàn)性的領(lǐng)域 .對(duì)每個(gè)需要自動(dòng)化的應(yīng)用程序 ,人們不得不學(xué)習(xí)一種不同的自動(dòng)化語言 .例如 :可以用 EXCEL 的宏語言來使 EXCEL 自動(dòng)化 ,使用 WORD BASIC 使 WORD 自動(dòng)化 ,等等 .微軟決定讓它開發(fā)出來的應(yīng)用程序共享一種通用的自動(dòng)化語言 Visual Basic For Application(VBA),可以認(rèn)為 VBA 是非常流行的應(yīng)用程序開發(fā)語言 VASUAL BASIC 的子集 .實(shí)際上 VBA是 寄生于 VB應(yīng)用程序的版本 .VBA和 VB的區(qū)別包括如下幾個(gè)方面 : 1. VB 是設(shè)計(jì)用于創(chuàng)建標(biāo)準(zhǔn)的應(yīng)用程序 ,而 VBA 是使已有的應(yīng)用程序 (EXCEL 等 )自動(dòng)化 2. VB 具有自己的開發(fā)環(huán)境 ,而 VBA必須寄生于已有的應(yīng)用程序 . 3. 要運(yùn)行 VB開發(fā)的應(yīng)用程序 ,用戶不必安裝 VB,因?yàn)?VB開發(fā)出的應(yīng)用程序是可執(zhí)行文件 (*.EXE),而 VBA 開發(fā)的程序必須依賴于它的 父 應(yīng)用程序 ,例如 EXCEL. 盡管存在這些不同 ,VBA 和 VB在結(jié)構(gòu)上仍然十分相似 .事實(shí)上 ,如果你已經(jīng)了解了 VB,會(huì)發(fā)現(xiàn)學(xué)習(xí) VBA 非?？?.相應(yīng)的 ,學(xué)完 VBA 會(huì)給學(xué)習(xí) VB 打下堅(jiān)實(shí)的基礎(chǔ) .而且 ,當(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)化語言 ,它可以使常用的程序自動(dòng)化 ,可以創(chuàng)建自定義的解決方案 . 此外 ,如果你愿意 ,還可以將 EXCEL 用做開發(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. 簡化模板的使用 . 4. 自定義 EXCEL,使其成為開發(fā)平臺(tái) . 5. 創(chuàng)建報(bào)表 . 16 6. 對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析 . 用 EXCEL 作為開發(fā)平臺(tái)有如下原因 : 1. EXCEL 本身功能強(qiáng)大 ,包括打印 ,文件處理 ,格式化和文本編輯 . 2. EXCEL 內(nèi)置大量函數(shù) . 3. EXCEL 界面熟悉 . 4. 可連接到多種數(shù)據(jù)庫 . 用其他語言開發(fā)應(yīng)用程序 ,一半的工作是編寫一些基本功能的模塊 ,包括文件的打開和保存 ,打印 ,復(fù)制等 .而用 EXCEL 作為開發(fā)平臺(tái) ,則由于 EXCEL 已經(jīng)具備這些基本功能 ,你要做的只是使用 它 . 錄制簡單的宏 在介紹學(xué)習(xí) VBA之前，應(yīng)該花幾分鐘錄制一個(gè)宏。 新術(shù)語： 宏 ，指一系列 EXCEL 能夠執(zhí)行的 VBA 語句。 以下將要錄制的宏非常簡單，只是改變單元格顏色。請(qǐng)完成如下步驟： 1)打開新工作簿，確認(rèn)其他工作簿已經(jīng)關(guān)閉。 2)選擇 A1單元格。調(diào)出 常用 工具欄。 3)選擇 工具 宏 錄制新宏 。 4)輸入 改變顏色 作為宏名替換默認(rèn)宏名，單擊確定 ,注意，此時(shí)狀態(tài)欄中顯示 錄制 ，特別是 停止錄制 工具欄也顯示出來。替換默認(rèn)宏名主要是便于分別這些宏 。 ★ 宏名最多可為 255 個(gè)字符，并且必須以字母開始。其中可用的字符包括：字母、數(shù)字和下劃線。宏名中不允許出現(xiàn)空格。通常用下劃線代表空格。 5)選擇 格式 的 單元格 ，選擇 圖案 選項(xiàng)中的紅色 ,單擊 確定 。 6)單擊 停止錄制 工具欄按鈕，結(jié)束宏錄制過程。 ※ 如果 停止錄制 工具欄開始并未出現(xiàn)，請(qǐng)選擇 工具 宏 停止錄制 。 錄制完一個(gè)宏后就可以執(zhí)行它了。 執(zhí)行宏 當(dāng)執(zhí)行一個(gè)宏時(shí)， EXCEL 按照宏語句執(zhí)行的情況就像 VBA 代碼在對(duì) EXCEL 進(jìn)行 遙控 。但 VBA的 遙控 不僅能使操作變得簡便，還能使你獲得一些使用 EXCEL 標(biāo)準(zhǔn)命令所無法實(shí)現(xiàn)的功能。而且，一旦熟悉了 EXCEL 的 遙控 ，你都會(huì)奇怪自己在沒有這些 遙控 的情況下，到底是怎么熬過來的。要執(zhí)行剛才錄制的宏，可以按以下步驟進(jìn)行： 1）選擇任何一個(gè)單元格，比如 A3。 17 2）選擇 工具 宏 宏 ，顯示 宏 對(duì)話框。 3）選擇 改變顏色 ，選擇 執(zhí)行 ，則 A3 單元格的顏色變?yōu)榧t色。試著選擇其它單元格和幾個(gè)單元格組成的區(qū)域，然后再執(zhí)行宏，以便加深印象。 查看錄制的代碼 到底是什么在控制 EXCEL 的運(yùn)行呢 ?你可能有些疑惑 .好 ,讓我們看看 VBA 的語句吧 . 1）選擇 工具 宏 宏 ，顯示 宏 對(duì)話框。 2）單擊列表中的 改變顏色 ,選擇 編輯 按鈕。 此時(shí)，會(huì)打開 VBA 的編輯器窗口（ VBE）。關(guān)于該編輯器，以后再詳細(xì)說明，先將注意力集中到顯示的代碼上。代碼如下：（日期和姓名會(huì)有不同） Sub 改變顏色 () 39。 改變顏色 Macro 39。 xw 記錄的宏 2021610 With .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 將來會(huì)十分熟悉這種代碼，雖然現(xiàn)在它們看上去像一種奇怪的外語。學(xué)習(xí) VBA 或編程語言在某種程度上比較像在學(xué)習(xí)一種外語。 Sub 改變顏色 ():這是宏的名稱。 中間的以 39。開頭的五行稱為 注釋 ，它在錄制宏時(shí)自動(dòng)產(chǎn)生。 以 With 開頭到 End With 結(jié)束的結(jié)構(gòu)是 With 結(jié)構(gòu)語句，這段語句是宏的主要部分。注意單詞 selection，它代表 突出顯示的區(qū)域 （即：選定區(qū)域）。 With ：它讀作 選擇區(qū)域的的內(nèi)部 .這整段語句設(shè)置該區(qū)域內(nèi)部的一些 屬性 。 其中： .ColorIndex = 3: 將該內(nèi)部設(shè)為紅色。注意：有一小圓點(diǎn)，它的作用在于簡化語句，小圓點(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)，宏仍然將其記錄下來 (因?yàn)樵?圖案 選項(xiàng)中有 此一項(xiàng)，只是你為曾設(shè)置而已）。 xlSolid 18 表示純色。 .PatternColorIndex = xlAutomatic：表示內(nèi)部圖案底紋顏色為自動(dòng)配色。 End With:結(jié)束 With 語句。 End Sub:整個(gè)宏的結(jié)束語 編輯錄制的代碼 在上一節(jié)，我們錄制了一個(gè)宏并查看了代碼，代碼中有兩句實(shí)際上并不起作用。哪兩句？現(xiàn)在，在宏中作一個(gè)修改，刪除多余行，直到和下面代碼相同： Sub 改變顏色 () 39。 39。 改變顏色 Macro 39。 xw 記錄的宏 2021610 With .ColorIndex = 3 End With End Sub 完成后，在工作表中試驗(yàn)一下。你會(huì)發(fā)現(xiàn)結(jié)果和修改前的狀況一樣。在 With 語句前加入一行 : Range(A5).Select 試著運(yùn)行該宏 ,則無論開始選擇哪個(gè)單元格 ,宏運(yùn)行結(jié)果都是使 A5 單元格變紅 . 現(xiàn)在可以看到，編輯錄制的宏同樣非常簡單。需要編輯宏是因?yàn)橐韵氯齻€(gè)方面的原因。一：在