實用的EXCELVBA編程大全總結(jié)

精品文檔 1歡迎下載 實用的實用的 EXCELEXCEL VBAVBA 編程小結(jié) 編程小結(jié) 最近單位內(nèi)部的項目里要用到些報表 EXCEL 的生成 雖說 JAVA 的 POI 可以有這能力 但覺得還是可能比較 麻煩 因此還是轉(zhuǎn)用 net 來搞 用 Visual Studio2003 配合 office 2003 用到了一些 VBA 因此小結(jié)并歸 納之 選了些資料歸納在這里 以備今后查考 首先創(chuàng)建 Excel 對象 使用 ComObj Dim ExcelID as Excel Application Set ExcelID as new Excel Application 1 顯示當前窗口 ExcelID Visible True 2 更改 Excel 標題欄 ExcelID Caption 應用程序調(diào)用 Microsoft Excel 3 添加新工作簿 ExcelID WorkBooks Add 4 4 打開已存在的工作簿 打開已存在的工作簿 ExcelID WorkBooks Open C Excel Demo xls 5 設置第 2 個工作表為活動工作表 ExcelID WorkSheets 2 Activate 或 ExcelID WorkSheets Sheet2 Activate 6 6 給單元格賦值 給單元格賦值 ExcelID Cells 1 4 Value 第一行第四列 精品文檔 2歡迎下載 7 設置指定列的寬度 單位 字符個數(shù) 以第一列為例 ExcelID ActiveSheet Columns 1 ColumnsWidth 5 8 設置指定行的高度 單位 磅 1 磅 0 035 厘米 以第二行為例 ExcelID ActiveSheet Rows 2 RowHeight 1 0 035 1 厘米 9 在第 8 行之前插入分頁符 ExcelID WorkSheets 1 Rows 8 PageBreak 1 10 在第 8 列之前刪除分頁符 ExcelID ActiveSheet Columns 4 PageBreak 0 11 11 指定邊框線寬度 指定邊框線寬度 ExcelID ActiveSheet Range B3 D4 Borders 2 Weight 3 1 左 2 右 3 頂 4 底 5 斜 6 斜 12 清除第一行第四列單元格公式 ExcelID ActiveSheet Cells 1 4 ClearContents 13 13 設置第一行字體屬性 設置第一行字體屬性 ExcelID ActiveSheet Rows 1 Font Name 隸書 ExcelID ActiveSheet Rows 1 Font Color clBlue ExcelID ActiveSheet Rows 1 Font Bold True ExcelID ActiveSheet Rows 1 Font UnderLine True 精品文檔 3歡迎下載 14 14 進行頁面設置 進行頁面設置 a 頁眉 ExcelID ActiveSheet PageSetup CenterHeader 報表演示 b 頁腳 ExcelID ActiveSheet PageSetup CenterFooter 第 c 頁眉到頂端邊距 2cm ExcelID ActiveSheet PageSetup HeaderMargin 2 0 035 d 頁腳到底端邊距 3cm ExcelID ActiveSheet PageSetup HeaderMargin 3 0 035 e 頂邊距 2cm ExcelID ActiveSheet PageSetup TopMargin 2 0 035 f 底邊距 2cm ExcelID ActiveSheet PageSetup BottomMargin 2 0 035 g 左邊距 2cm ExcelID ActiveSheet PageSetup LeftMargin 2 0 035 h 右邊距 2cm ExcelID ActiveSheet PageSetup RightMargin 2 0 035 i 頁面水平居中 精品文檔 4歡迎下載 ExcelID ActiveSheet PageSetup CenterHorizontally 2 0 035 j 頁面垂直居中 ExcelID ActiveSheet PageSetup CenterVertically 2 0 035 k 打印單元格網(wǎng)線 ExcelID ActiveSheet PageSetup PrintGridLines True 15 15 拷貝操作 拷貝操作 a 拷貝整個工作表 ExcelID ActiveSheet Used Range Copy b 拷貝指定區(qū)域 ExcelID ActiveSheet Range A1 E2 Copy c 從 A1 位置開始粘貼 ExcelID ActiveSheet Range A1 PasteSpecial d 從文件尾部開始粘貼 ExcelID ActiveSheet Range PasteSpecial 16 16 插入一行或一列 插入一行或一列 a ExcelID ActiveSheet Rows 2 Insert b ExcelID ActiveSheet Columns 1 Insert 17 刪除一行或一列 精品文檔 5歡迎下載 a ExcelID ActiveSheet Rows 2 Delete b ExcelID ActiveSheet Columns 1 Delete 18 打印預覽工作表 ExcelID ActiveSheet PrintPreview 19 19 打印輸出工作表 打印輸出工作表 ExcelID ActiveSheet PrintOut 20 工作表保存 If not ExcelID ActiveWorkBook Saved then ExcelID ActiveSheet PrintPreview End if 21 工作表另存為 ExcelID SaveAs C Excel Demo1 xls 22 放棄存盤 ExcelID ActiveWorkBook Saved True 23 關(guān)閉工作簿 ExcelID WorkBooks Close 24 退出 Excel ExcelID Quit 精品文檔 6歡迎下載 25 25 設置工作表密碼設置工作表密碼 ExcelID ActiveSheet Protect 123 DrawingObjects True Contents True Scenarios True 26 EXCEL 的顯示方式為最大化 ExcelID Application WindowState xlMaximized 27 工作薄顯示方式為最大化 ExcelID ActiveWindow WindowState xlMaximized 28 設置打開默認工作薄數(shù)量 ExcelID SheetsInNewWorkbook 3 29 關(guān)閉時是否提示保存 true 保存 false 不保存 ExcelID DisplayAlerts False 30 30 設置拆分窗口設置拆分窗口 及固定行位置及固定行位置 ExcelID ActiveWindow SplitRow 1 ExcelID ActiveWindow FreezePanes True 31 設置打印時固定打印內(nèi)容 ExcelID ActiveSheet PageSetup PrintTitleRows 1 1 32 設置打印標題 ExcelID ActiveSheet PageSetup PrintTitleColumns 33 設置顯示方式 分頁方式顯示 精品文檔 7歡迎下載 ExcelID ActiveWindow View xlPageBreakPreview 34 設置顯示比例 ExcelID ActiveWindow Zoom 100 35 讓 Excel 響應 DDE 請求 Ex Application IgnoreRemoteRequests False 用用 VBVB 操作操作 EXCELEXCEL Private Sub Command3 Click On Error GoTo err1 Dim i As Long Dim j As Long Dim objExl As Excel Application 聲明對象變量 Me MousePointer 11 改變鼠標樣式 Set objExl New Excel Application 初始化對象變量 objExl SheetsInNewWorkbook 1 將新建的工作薄數(shù)量設為 1 objExl Workbooks Add 增加一個工作薄 objExl Sheets objExl Sheets Count Name book1 修改工作薄名稱 objExl Sheets Add objExl Sheets book1 增加第二個工作薄在第一個之后 objExl Sheets objExl Sheets Count Name book2 精品文檔 8歡迎下載 objExl Sheets Add objExl Sheets book2 增加第三個工作薄在第二個之后 objExl Sheets objExl Sheets Count Name book3 objExl Sheets book1 SelectobjExl Sheets book1 Select 選中工作薄選中工作薄 For i 1 To 50 循環(huán)寫入數(shù)據(jù) For j 1 To 5 If i 1 Then objExl Selection NumberFormatLocal 設置格式為文本 objExl Cells i j E i j Else objExl Cells i j i j End If Next Next objExl Rows 1 1 Select 選中第一行 objExl Selection Font Bold True 設為粗體 objExl Selection Font Size 24 設置字體大小 objExl Cells EntireColumn AutoFit 自動調(diào)整列寬 精品文檔 9歡迎下載 objExl ActiveWindow SplitRow 1 拆分第一行 objExl ActiveWindow SplitColumn 0 拆分列 objExl ActiveWindow FreezePanes True 固定拆分 objExl ActiveSheet PageSetup PrintTitleRows 1 1 設置打印固定行 objExl ActiveSheet PageSetup PrintTitleColumns 打印標題 objExl ActiveSheet PageSetup RightFooter 打印時間 Format Now yyyy 年 mm 月 dd 日 hh MM ss objExl ActiveWindow View xlPageBreakPreview 設置顯示方式 objExl ActiveWindow Zoom 100 設置顯示大小 給工作表加密碼 objExl ActiveSheet Protect 123 DrawingObjects True Contents True Scenarios True objExl Application IgnoreRemoteRequests False objExl Visible True 使 EXCEL 可見 objExl Application WindowState xlMaximized EXCEL 的顯示方式為最大化 objExl ActiveWindow WindowState xlMaximized 工作薄顯示方式為最大化 objExl SheetsInNewWorkbook 3 將默認新工作薄數(shù)量改回 3 個 Set objExl Nothing 清除對象 Me MousePointer 0 修改鼠標 精品文檔 10歡迎下載 Exit Sub err1 objExl SheetsInNewWorkbook 3 objExl DisplayAlerts False 關(guān)閉時不提示保存