【正文】 = (5) = (6) = (7) = (8) = curRecNo 1 = curRecNo 1 = curRecNo totalRecs = curRecNo totalRecs TextBox9 = curRecNo End Sub (6).數據庫使用 SQL查詢語言 數據庫一般都提供了關連式數據庫的查詢語言 SQL (Structured Query Language)， 它是一種非?？谡Z 化、既易學又易懂的語法。此語言幾乎是每個數據庫系統都必須提供的，用以表示關連式的操作，包含了 資料的定義 (DDL)以及資料的處理 (DML)。 對于 SQL語言的使用，請參考別的專業(yè)教程，本文就簡約介紹一下，示例中也僅用到一點SQL語言。 （）資料定義 DDL（Data Definition Language）  資料定義語言是指對資料的格式和形態(tài)下定義的語言，他是每個數據庫要建立時候時首先要面對的， 舉凡資料分哪些表格關系、表格內的有什么字段元主鍵、表格和表格之間互相參考的關系等等，都是在開 始的時候所必須規(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 函數判斷 , 格式: Dir [(pathname [, attributes] ) ] Dir 會返回匹配 pathname 的第一個文件名。示例如下 . 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。 個檔案 ! ) 刪除文件 使用 kill 方法 示例如下 : kill(“c:\”) ) 取得文件日期屬性 使用 FileSystem object對象實現 , 示例函數如下 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文件系統對象的使用 FileSystemObject (FSO，下面簡礀為 FSO) 對象模型，具有大量的屬性、方法和事件，使用面向對象 的“ ”語法，來處理文件夾和文件，可以在Office 2000 以后版本使用。 FileSystemObject 并 不是 VBA 的一部分，它是以一個 COM 組件的形式提供，可以在VB、 VBA、 VBScript 中使用。 FSO對象模型可以創(chuàng)建、改變、移動和刪除文件夾，或探測特定的文件夾是否存在，若存在，還可以 找出有關文件夾的信息，如名礀、被創(chuàng)建或最后一次修改的日期，等等。 FSO 對象模型還使文件處理變得 很容易?？梢詣?chuàng)建文件，插入和改變數據，以及輸出（讀?。祿?FSO 對象模型，支持通過 TextStream 對象來創(chuàng)建和操作文本文件，但不支持二進制文件的創(chuàng)建或操作，這可以用 VBA語句完成。 使用 FileSystemObject 對象模型進行文件操作的步驟是： 1. 使用 CreateObject 方法來創(chuàng)建 FileSystemObject 對象； 2. 在新創(chuàng)建的對象上使用適當的方法； 3. 訪問對象的屬性。 下面代碼顯示如何創(chuàng)建 FileSystemObject 實例： Dim fso Set fso = CreateObject() 在這個示例中， Scripting 是類型庫的名字，而 FileSystemObject 則是想要創(chuàng)建的對象的名字。 使用 FSO 處理文件夾的任務和方法 創(chuàng)建文件夾 刪除文件夾 或 移動文件夾 或 復制文件夾 或 檢索文件夾 如果文件夾在驅動器上存在，則找出它 獲得現有Folder 對象的實例 找出文件夾的父文件夾名 找出系統文件夾的路徑 FSO 中寫數據到文本文件的方法 向打開的文本文件寫數據，不用后續(xù)一個新行字符 Write 向打開的文本文件寫數據，后續(xù)一個新行字符 WriteLine 向打開的文本文件寫一個或多個空白行 WriteBlankLines FSO 中讀取文本文件的方法 從文件讀取指定數量的字符 Read 讀取一整行（一直到但不包括新行字符） ReadLine 讀取文本文件的整個內容 ReadAll FSO 中移動、復制和刪除文件的方法 移動文件 或 復制文件 或 刪除文件 或 使用 FSO 處理文件、文件夾比使用 VBA 語句的方法具有更易操作的特點， FSO 除了不能處理二進制文 件，其文件和文件夾處理的方法也更完備，更直觀和易于使用。 第二節(jié) 工作表操作 在文件操作一節(jié)已經講了 Excel工作簿文件的打開、新建、保存和關閉了，這里再講文件下的表格操作。 1) 新建與刪除 新建工作表、圖表或宏表。新建的工作表將成為活動工作表。 (Before, After, Count, Type) 說明： Before Variant 類型，可選。指定工作表對象，新建的工作表將置于此工作表之前。 After Variant 類型，可選。指定工作表對象，新建的工作表將置于此工作表之后。 Count Variant 類型，可選。要新建的工作表的數目。默認值為 1。 Type Variant 類型，可選。指定工作表類型。可為以下 XlSheetType 常量之一： xlWorksheet、 xlChart、 xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默認值為 xlWorksheet。 如果 Before 和 After 兩者均省略，則新建的工作表將插入到活動工作表之前。 示例： after:=Sheets() 該語句可以在最后一個工作表后增加一個新表 刪除工作表 Sheets(“工作表名 ”).Delete 示例：在工作表末新建一個和刪除倒數第二個表。 Sub MySht() = False 39。關閉刪除確認對話框 after:=Sheets() Sheets( 1).Delete = True 39。開啟確認對話框 End Sub 2) 隱藏與顯示 使用工作表的 visible屬性來設置工作表是否隱藏或顯示 隱藏 Sheets (sheet2).Visible = False 顯示 Sheets (sheet2).Visible =True 3)保護與撤銷 保護工作表使其不至被修改。 Sheets(“工作表名 ”).Protect (Password) 撤銷工作表保護使其被修改。 Sheets(“工作表名 ”).Unprotect (Password) Password Variant 類型，可選。為一個字符串，該字符串為工作表或工作簿指定區(qū)分大小寫的密碼。如 果省略本參數，不用密碼就可以取消對該工作表或工作簿的保護。否則，必須指定密碼，通過密碼來取消 對該工作表或工作簿的保護。 示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 如果要對工作進行詳細保護設置，可參考Excel VBA參考，這里僅講簡單的參數設置。 第三節(jié) 單元格和區(qū)域操作 bExcel數據的計算歸根到底還是對表的單元進行的，所以單元格和區(qū)域操作非常重要的，這一節(jié)就詳 細介紹這方面的內容。 一、如何引用單元格和區(qū)域 1）用 Range屬性引用單元格和單元格區(qū)域 使用 Range 屬性來引用 A1 引用樣式中的單元格或單元格區(qū)域及進行屬性更改和賦值。如例句： Sheets(Sheet1).Range(A1:D5). = True Sheets(Sheet1).Range(A1:D5).Value = 10000 Range 對象既可表單個單元格，也可表單元格區(qū)域。下面說明 Range 對象最常用方法。 引用 含義 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 屬性通過行列編號來引用單個單元格。下例中 Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設置為 10。如：Worksheets(Sheet1).Cells(6, 1).Value = 10 因為可用變量替代行列編號，所以 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 對象的 Bold 屬性設置為 True。如：Worksheets(Sheet1).Rows(1). = True 下表舉例說明了使用 Rows 和 Columns 屬性的一些行和列的引用。 引用 含義 Rows(1) 第一行 Rows 工作表上所有的行 Columns(1) 第一列 Columns(A) 第一列 Columns 工作表上所有的列 4）用 Union方法合并區(qū)域后引用 若要同時處理若干行或列及區(qū)域，請創(chuàng)建一個對象變量并使用 Union 方法，將對多個區(qū)域組合起來。下 例將活動工作簿中第一張工作表上的第一行、第三行和第五行的字體設置為加粗。 Sub SeveralRows() Worksheets(Sheet1).Activate Dim myUnion As Range Set