【正文】 Err 對象的所有屬性設(shè)置。返回一個String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標相匹配。dirname = Dir(lj amp。指定一個控件或?qū)ο蟮拿Q或與 Font 對象相關(guān)的字體的名稱。返回指定文件、文件夾、或驅(qū)動器的路徑。復制新打開工作簿的每一個工作表到當前工作表(After:=())最后一個后面For i = 1 To iiWorkbooks(dirname).Sheets(i).Copy After:=()NextWorkbooks(dirname).Close FalseEnd Ifdirname = DirLoopEnd Sub在同一文件夾下有多個工作簿，其中有一個用于匯總的工作簿，將除該匯總工作簿外的其它工作簿中的每一張工作表的數(shù)據(jù)匯總到該匯總工作簿的一張工作表中。打開文件ii = 39。 \ amp。 \*.xls) 39。工作表命名,以工作表所在文件名為類If 1 Then().Name = strFileName amp。 strFileName, ReadOnly:=True)strFileName = Left(Left(strFileName, Len(strFileName) 4), 29) 39。 \ = FalsestrFileName = Dir(strFileDir amp。有多種合并工作簿的情形，下面先給出一種合并多個工作簿的VBA范例，供參考。注意單詞之間要用空格隔開。將光標定位到代碼中間任意位置，按F5運行它。則該區(qū)域中的列數(shù)保持不變。新區(qū)域中的列數(shù)。如果省略該參數(shù)，則該區(qū)域中的行數(shù)保持不變。 RowSize Variant 類型，可選。 (RowSize, ColumnSize) expression 必需。在Excel中，Resize 屬性的功能為調(diào)整指定區(qū)域的大小。 R1).Resize(Rs, Ls)‘a(chǎn)rr為變量，在VBA中，變量無需聲明就可以直接使用，此時該變量為變體變量。工作表上已使用區(qū)域的列數(shù)。只讀。Ls = .’ Count 屬性。Range 對象，只讀。Boolean 類型，可讀寫 = FalseFor i = 2 To ’。R1 = 2 39。:長整數(shù)型。右鍵點擊新工作表標簽，選擇“查看代碼”，將下面的代碼粘貼到打開的VBE窗口中：Sub Shcopy()Dim nRowamp。 i) amp。 Sq2 = select * from [ amp。extended properties=excel 。 sql End If Next sql = Left(sql, Len(sql) 6) Sheets(理數(shù)).Range(a4).CopyFromRecordset (sql) : Set n = NothingEnd Sub方法三Sub ConbimeAll() Dim yy As Long yy = [a65536].End(xlUp).Row + 1 Range(a2:l amp。 ] order by 班別,座號 sql = sqlTemp amp。 $A3:L amp。 For Each sh In Sheets If 理數(shù) Then iRow = (a3).End(xlDown).Row sqlTemp = select * from [ amp。extended properties=excel 。 Serow).Copy Destination:=Sheets(Total).Range(a amp。Range(A65536).End(xlUp).Row 是指第一列最后一個有數(shù)據(jù)單元格的行數(shù)，它的下一行即加 1 就是3樓所說的要添加數(shù)據(jù)的空白單元格匯總工作表數(shù)據(jù)20100603 00:44方法一：Sub Getdata()Dim Erow As Integer, c As Variant, Serow As IntegerErow = Sheets(Total).[a65536].End(xlUp).Row + 1If Erow 4 Then Sheets(Total).Rows(4: amp。Long 類型，只讀多謝兩位高手指點，看完以后我是這樣理解的，不知對否？END,range對象的END屬性,也返回一個對象,、xlToRight、xlUp 或 xlDown。第二行的sheets1sheet1或sheets(1)sheet1,對工作表對象的稱呼。Range(B4).End(xlToRight).Select 本示例將選定區(qū)域從單元格 B4 延伸至第四行最后一個包含數(shù)據(jù)的單元格。 xlDown xlToRight xlToLeft xlUp 示例本示例選定包含單元格 B4 的區(qū)域中 B 列頂端的單元格。所要移動的方向。 該表達式返回“應用于”列表中的對象之一。Range 對象，只讀。End 屬性參閱應用于示例特性返回一個 Range 對象，該對象代表包含源區(qū)域的區(qū)域尾端的單元格。(注：當C列有空白單元格時用：myEndRow=sheets(sheet1).range(C65536).End(xlUp).row)[a65536].End(xlUp) 取得A列最后一個數(shù)據(jù)的位置本示例選定包含單元格 B4 的區(qū)域中 B 列頂端的單元格。End WithNextEnd Sub注：在VISUAL BASIC中要加入注釋，直接在注釋文字前加上’符號即可，在’符號之后的文字會被編譯器忽略，也可以使用REM來進行注釋，但使用’符號會更快捷一些，還可以節(jié)省內(nèi)存及加快編譯的效率。n =.[c65536].End(xlUp) .Row得到C列最后一個非空單元格所在的行號，.Offset(1, 2)偏移[c65536].End(xlUp)得到單元格的位置開始復制后數(shù)據(jù)的粘貼位置。 n).Copy ActiveSheet.[a65536].End(xlUp).Offset(1, 0) 39。屬性。此程序事先沒有對變量進行聲明。分別求出最大行號。因此不能用with語句來設(shè)置多個不同的對象。 With/end with語句結(jié)構(gòu)中以.開頭的語句相當于引用了with語句中指定的對象。with語句可以在一個單一對象或一個用戶定義類型上執(zhí)行一系列的語句。For i = 1 To 1 39。在代碼中，屬性和方法都是通過連接符.來和對象連接的。新建一個工作表放在最后。過程是可以執(zhí)行的語句序列單元，所有可執(zhí)行的代碼必須包含在某個過程中，任何過程都不能嵌套在其它過程中，過程的名稱必須在模塊級別進行定義。當要聲明一個過程時，通常是以關(guān)鍵字SUB開頭，并且以關(guān)鍵字END結(jié)束，在SUB關(guān)鍵字之前是用來指定此過程的作用域，例如public,static, 或protected