【正文】 = (5) = (6) = (7) = (8) = curRecNo 1 = curRecNo 1 = curRecNo totalRecs = curRecNo totalRecs TextBox9 = curRecNo End Sub (6).數(shù)據(jù)庫(kù)使用 SQL查詢語言 數(shù)據(jù)庫(kù)一般都提供了關(guān)連式數(shù)據(jù)庫(kù)的查詢語言 SQL (Structured Query Language)， 它是一種非常口語 化、既易學(xué)又易懂的語法。此語言幾乎是每個(gè)數(shù)據(jù)庫(kù)系統(tǒng)都必須提供的，用以表示關(guān)連式的操作，包含了 資料的定義 (DDL)以及資料的處理 (DML)。 對(duì)于 SQL語言的使用，請(qǐng)參考別的專業(yè)教程，本文就簡(jiǎn)約介紹一下，示例中也僅用到一點(diǎn)SQL語言。 （）資料定義 DDL（Data Definition Language）  資料定義語言是指對(duì)資料的格式和形態(tài)下定義的語言，他是每個(gè)數(shù)據(jù)庫(kù)要建立時(shí)候時(shí)首先要面對(duì)的， 舉凡資料分哪些表格關(guān)系、表格內(nèi)的有什么字段元主鍵、表格和表格之間互相參考的關(guān)系等等，都是在開 始的時(shí)候所必須規(guī)劃好的。 如建表格：Create Table table_name (column1 DATATYPE [NOT NULL] [NOT NULL PRIMARY KEY], column2 DATATYPE [NOT NULL],...) （）資料操作 DML（Data Manipulation Language) 資料定義好之后接下來的就是資料的操作。資料的操作不外乎增加資料（ insert)、 查詢資料（ query）、 更改資料（ update） 、刪除資料（ delete）四種模式，以下分別介紹他們的語法： 增加資料： INSERT INTO table_name (column1,column2,...) VALUES ( value1,value2, ...) 查詢資料： SELECT * FROM table_name WHERE conditions 更改資料：UPDATE table_name SET column1=39。39。xxx39。39。 WHERE conditoins 刪除資料： DELETE FROM table_name WHERE conditions 4) 文件其它操作 ) 判斷文件存在 使用 Dir 函數(shù)判斷 , 格式: Dir [(pathname [, attributes] ) ] Dir 會(huì)返回匹配 pathname 的第一個(gè)文件名。示例如下 . strfile = Dir( amp。 \) 39。檢查文件是否存在 If strfile Then ‘存在就打開 amp。 \ Else ‘文件不存在就警告 MsgBox 文件不存在 , vbOKOnly, 警告 End If ) 搜查文件 使用 示例如下 : pp = D:\Temp: ff = 0 With .NewSearch .LookIn = pp .Filename = prn*.tmp ‘查找文件 prn*.tmp *為指代符 If .Execute() 0 Then ff = . End With MsgBox pp amp。 找到 amp。 ff amp。 個(gè)檔案 ! ) 刪除文件 使用 kill 方法 示例如下 : kill(“c:\”) ) 取得文件日期屬性 使用 FileSystem object對(duì)象實(shí)現(xiàn) , 示例函數(shù)如下 Function FileDate(filespec, datetype) Dim fs, f, s  Set fs = CreateObject() Set f = (filespec) Select Case datetype Case 1: FileDate = 39。 檔案建立日期 Case 2: FileDate = 39。 存取日期 Case 3: FileDate = 39。修改日期 End Select End Function ) FileSystemObject文件系統(tǒng)對(duì)象的使用 FileSystemObject (FSO，下面簡(jiǎn)礀為 FSO) 對(duì)象模型，具有大量的屬性、方法和事件，使用面向?qū)ο?的“ ”語法，來處理文件夾和文件，可以在Office 2000 以后版本使用。 FileSystemObject 并 不是 VBA 的一部分，它是以一個(gè) COM 組件的形式提供，可以在VB、 VBA、 VBScript 中使用。 FSO對(duì)象模型可以創(chuàng)建、改變、移動(dòng)和刪除文件夾，或探測(cè)特定的文件夾是否存在，若存在，還可以 找出有關(guān)文件夾的信息，如名礀、被創(chuàng)建或最后一次修改的日期，等等。 FSO 對(duì)象模型還使文件處理變得 很容易?？梢詣?chuàng)建文件，插入和改變數(shù)據(jù)，以及輸出（讀取）數(shù)據(jù)。 FSO 對(duì)象模型，支持通過 TextStream 對(duì)象來創(chuàng)建和操作文本文件，但不支持二進(jìn)制文件的創(chuàng)建或操作，這可以用 VBA語句完成。 使用 FileSystemObject 對(duì)象模型進(jìn)行文件操作的步驟是： 1. 使用 CreateObject 方法來創(chuàng)建 FileSystemObject 對(duì)象； 2. 在新創(chuàng)建的對(duì)象上使用適當(dāng)?shù)姆椒ǎ? 3. 訪問對(duì)象的屬性。 下面代碼顯示如何創(chuàng)建 FileSystemObject 實(shí)例： Dim fso Set fso = CreateObject() 在這個(gè)示例中， Scripting 是類型庫(kù)的名字，而 FileSystemObject 則是想要?jiǎng)?chuàng)建的對(duì)象的名字。 使用 FSO 處理文件夾的任務(wù)和方法 創(chuàng)建文件夾 刪除文件夾 或 移動(dòng)文件夾 或 復(fù)制文件夾 或 檢索文件夾 如果文件夾在驅(qū)動(dòng)器上存在，則找出它 獲得現(xiàn)有Folder 對(duì)象的實(shí)例 找出文件夾的父文件夾名 找出系統(tǒng)文件夾的路徑 FSO 中寫數(shù)據(jù)到文本文件的方法 向打開的文本文件寫數(shù)據(jù)，不用后續(xù)一個(gè)新行字符 Write 向打開的文本文件寫數(shù)據(jù)，后續(xù)一個(gè)新行字符 WriteLine 向打開的文本文件寫一個(gè)或多個(gè)空白行 WriteBlankLines FSO 中讀取文本文件的方法 從文件讀取指定數(shù)量的字符 Read 讀取一整行（一直到但不包括新行字符） ReadLine 讀取文本文件的整個(gè)內(nèi)容 ReadAll FSO 中移動(dòng)、復(fù)制和刪除文件的方法 移動(dòng)文件 或 復(fù)制文件 或 刪除文件 或 使用 FSO 處理文件、文件夾比使用 VBA 語句的方法具有更易操作的特點(diǎn)， FSO 除了不能處理二進(jìn)制文 件，其文件和文件夾處理的方法也更完備，更直觀和易于使用。 第二節(jié) 工作表操作 在文件操作一節(jié)已經(jīng)講了 Excel工作簿文件的打開、新建、保存和關(guān)閉了，這里再講文件下的表格操作。 1) 新建與刪除 新建工作表、圖表或宏表。新建的工作表將成為活動(dòng)工作表。 (Before, After, Count, Type) 說明： Before Variant 類型，可選。指定工作表對(duì)象，新建的工作表將置于此工作表之前。 After Variant 類型，可選。指定工作表對(duì)象，新建的工作表將置于此工作表之后。 Count Variant 類型，可選。要新建的工作表的數(shù)目。默認(rèn)值為 1。 Type Variant 類型，可選。指定工作表類型?？蔀橐韵? XlSheetType 常量之一： xlWorksheet、 xlChart、 xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默認(rèn)值為 xlWorksheet。 如果 Before 和 After 兩者均省略，則新建的工作表將插入到活動(dòng)工作表之前。 示例： after:=Sheets() 該語句可以在最后一個(gè)工作表后增加一個(gè)新表 刪除工作表 Sheets(“工作表名 ”).Delete 示例：在工作表末新建一個(gè)和刪除倒數(shù)第二個(gè)表。 Sub MySht() = False 39。關(guān)閉刪除確認(rèn)對(duì)話框 after:=Sheets() Sheets( 1).Delete = True 39。開啟確認(rèn)對(duì)話框 End Sub 2) 隱藏與顯示 使用工作表的 visible屬性來設(shè)置工作表是否隱藏或顯示 隱藏 Sheets (sheet2).Visible = False 顯示 Sheets (sheet2).Visible =True 3)保護(hù)與撤銷 保護(hù)工作表使其不至被修改。 Sheets(“工作表名 ”).Protect (Password) 撤銷工作表保護(hù)使其被修改。 Sheets(“工作表名 ”).Unprotect (Password) Password Variant 類型，可選。為一個(gè)字符串，該字符串為工作表或工作簿指定區(qū)分大小寫的密碼。如 果省略本參數(shù)，不用密碼就可以取消對(duì)該工作表或工作簿的保護(hù)。否則，必須指定密碼，通過密碼來取消 對(duì)該工作表或工作簿的保護(hù)。 示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 如果要對(duì)工作進(jìn)行詳細(xì)保護(hù)設(shè)置，可參考Excel VBA參考，這里僅講簡(jiǎn)單的參數(shù)設(shè)置。 第三節(jié) 單元格和區(qū)域操作 bExcel數(shù)據(jù)的計(jì)算歸根到底還是對(duì)表的單元進(jìn)行的，所以單元格和區(qū)域操作非常重要的，這一節(jié)就詳 細(xì)介紹這方面的內(nèi)容。 一、如何引用單元格和區(qū)域 1）用 Range屬性引用單元格和單元格區(qū)域 使用 Range 屬性來引用 A1 引用樣式中的單元格或單元格區(qū)域及進(jìn)行屬性更改和賦值。如例句： Sheets(Sheet1).Range(A1:D5). = True Sheets(Sheet1).Range(A1:D5).Value = 10000 Range 對(duì)象既可表單個(gè)單元格，也可表單元格區(qū)域。下面說明 Range 對(duì)象最常用方法。 引用 含義 Range(A1) 單元格 A1 Range(A1:B5) 從單元格 A1 到單元格 B5 的區(qū)域 Range(C5:D9,G9:H16) 多塊選定區(qū)域 Range(A:A) A 列 Range(1:1) 第一行 Range(1:5) 從第一行到第五行的區(qū)域 Range(1:1,3:3,8:8) 第 3 和 8 行 Range(A:C) 從 A 列到 C 列的區(qū)域 Range(A:A,C:C,F:F) A 、 C 和 F 列 Range(單元格區(qū)域名礀 ) 命名的單元格區(qū)域 2）用 Cells屬性引用單元格 可用 Cells 屬性通過行列編號(hào)來引用單個(gè)單元格。下例中 Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設(shè)置為 10。如：Worksheets(Sheet1).Cells(6, 1).Value = 10 因?yàn)榭捎米兞刻娲辛芯幪?hào)，所以 Cells 屬性非常適合單元格區(qū)域中循環(huán)且速度很快。如下例所示： Sub CC () Dim Counter As Integer For Counter = 1 To 20 Worksheets(Sheet1).Cells(Counter, 3).Value = Counter Next Counter End Sub 3）用 Rows或Columns屬性引用行列 可用 Rows 屬性或 Columns 屬性來處理整行或整列。下例中，用 Rows(1) 返回 Sheet1 上的第一行，然 后將單元格區(qū)域的 Font 對(duì)象的 Bold 屬性設(shè)置為 True。如：Worksheets(Sheet1).Rows(1). = True 下表舉例說明了使用 Rows 和 Columns 屬性的一些行和列的引用。 引用 含義 Rows(1) 第一行 Rows 工作表上所有的行 Columns(1) 第一列 Columns(A) 第一列 Columns 工作表上所有的列 4）用 Union方法合并區(qū)域后引用 若要同時(shí)處理若干行或列及區(qū)域，請(qǐng)創(chuàng)建一個(gè)對(duì)象變量并使用 Union 方法，將對(duì)多個(gè)區(qū)域組合起來。下 例將活動(dòng)工作簿中第一張工作表上的第一行、第三行和第五行的字體設(shè)置為加粗。 Sub SeveralRows() Worksheets(Sheet1).Activate Dim myUnion As Range Set