excel vba教程完全版 PDF中文版

excel vba教程完全版是一款pdf中文版的高清電子書(shū)，非常的實(shí)用，詳細(xì)的介紹了excel vba實(shí)戰(zhàn)技巧精粹和基本語(yǔ)法操作，可以適用于辦公新手，也適用于excel編程高手。具體向讀者講述了vba語(yǔ)言基礎(chǔ)，vba程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)，xml與asp技術(shù)，利用vba操縱文件和文件夾，利用vba控制其它應(yīng)用程序，自定義集合和類(lèi)模塊，調(diào)試vba過(guò)程和處理錯(cuò)誤等等，希望對(duì)網(wǎng)友們有幫助。

另外軟件包中附帶了pdf福昕閱讀器，方便用戶(hù)即下即看。

內(nèi)容介紹

本電子文檔在安排內(nèi)容時(shí)，充分考慮到大多數(shù)初學(xué)者幾乎沒(méi)有編程基礎(chǔ)的實(shí)際情況，在文字表述方面盡量避開(kāi)專(zhuān)業(yè)術(shù)語(yǔ)，用通俗易懂的語(yǔ)言，教讀者如何學(xué)習(xí)Excel VBA。具體向讀者講述了vba語(yǔ)言基礎(chǔ)，vba程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)，xml與asp技術(shù)，利用vba操縱文件和文件夾，利用vba控制其它應(yīng)用程序，自定義集合和類(lèi)模塊，調(diào)試vba過(guò)程和處理錯(cuò)誤等。

實(shí)用的EXCEL VBA編程小結(jié)：

最近單位內(nèi)部的項(xiàng)目里要用到些報(bào)表EXCEL的生成，雖說(shuō)JAVA 的POI可以有這能力，但覺(jué)得還是可能比較麻煩，因此還是轉(zhuǎn)用.net來(lái)搞，用visual studio 2003配合office 2003，用到了一些VBA，因此小結(jié)并歸納之，選了些資料歸納在這里，以備今后查考：

首先創(chuàng)建 Excel 對(duì)象，使用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1、顯示當(dāng)前窗口：

ExcelID.Visible := True;

2、更改 Excel 標(biāo)題欄：

ExcelID.Caption := '應(yīng)用程序調(diào)用 Microsoft Excel';

3、添加新工作簿：

ExcelID.WorkBooks.Add;

4、打開(kāi)已存在的工作簿：

ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );

5、設(shè)置第2個(gè)工作表為活動(dòng)工作表：

ExcelID.WorkSheets[2].Activate;

或 ExcelID.WorkSheets[ 'Sheet2' ].Activate;

6、給單元格賦值：

ExcelID.Cells[1,4].Value := '第一行第四列';

7、設(shè)置指定列的寬度(單位：字符個(gè)數(shù))，以第一列為例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;

8、設(shè)置指定行的高度(單位：磅)(1磅=0.035厘米)，以第二行為例：

ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9、在第8行之前插入分頁(yè)符：

ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;

10、在第8列之前刪除分頁(yè)符：

ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

11、指定邊框線(xiàn)寬度：

ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;

1-左 2-右 3-頂 4-底 5-斜( \ ) 6-斜( / )

12、清除第一行第四列單元格公式：

ExcelID.ActiveSheet.Cells[1,4].ClearContents;

13、設(shè)置第一行字體屬性：

ExcelID.ActiveSheet.Rows[1].Font.Name := '隸書(shū)';

ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelID.ActiveSheet.Rows[1].Font.Bold := True;

ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;