進(jìn)入vba 界面
方式之一：
快捷鍵：ALTER+F11

運(yùn)行方式之一：
進(jìn)入vba界面，點(diǎn)擊綠色三角符號(hào)

1 取得VBA對(duì)象

1.1 取得工作簿對(duì)象

Sub Test()'把當(dāng)前工作簿的名稱賦值給單元格A1'testvba.xlsm 只能是當(dāng)前工作簿的名稱[a1] = Workbooks("testvba.xlsm").Name'把活動(dòng)工作簿的名稱賦值給單元格A2[a2] = ActiveWorkbook.Name'把當(dāng)前工作簿的名稱賦值給單元格A3[a3] = ThisWorkbook.Name
End Sub

下面是執(zhí)行結(jié)果

1.2 取得工作表對(duì)象

默認(rèn)sheet名稱是Sheet1
新建一個(gè)sheet，名稱是Sheet2
新建一個(gè)sheet，并改名稱為：testsheet
新建一個(gè)sheet，刪除掉
新建一個(gè)sheet，并改名稱為：abc
最終得到下圖的結(jié)果

'取得上面4個(gè)工作表的名稱
Sub Test()'方式1[a1] = Sheet1.Name[a2] = Sheet2.Name[a3] = Sheet3.Name[a4] = Sheet5.Name'方式2[b1] = Sheets(1).Name[b2] = Sheets(2).Name[b3] = Sheets(3).Name[b4] = Sheets(4).Name'方式3[c1] = Sheets("Sheet1").Name[c2] = Sheets("Sheet2").Name[c3] = Sheets("testsheet").Name[c4] = Sheets("abc").Name'方式4 活動(dòng)工作表的名稱[a5] = ActiveSheet.Name
End Sub

下面是執(zhí)行結(jié)果

1.3 取得單元格對(duì)象

'取得單元格對(duì)象
Sub Test()'方式1 單元格A1，賦值文字“方式1”[a1] = "方式1"'方式2 3是第3行，1是第1列 單元格A3，賦值文字“方式2”Cells(3, 1) = "方式2"'方式3 當(dāng)前選擇的單元格，賦值文字“方式3”ActiveCell = "方式3"'方式4 單元格A2，賦值文字“方式4”Range("a2") = "方式4"'方式5 選中Excel的D列Range("d:d").Select'方式5-1 選中第10行'Range("10:10").Select'方式6 選中一個(gè)區(qū)域e2:g5，填充顏色紅色Range("e2:g5").Interior.ColorIndex = 3
End Sub

選擇c14單元格，然后執(zhí)行代碼，下面是執(zhí)行結(jié)果

1.4 取得對(duì)象的屬性

'取得對(duì)象的屬性
Sub Test()'取得所有sheet的數(shù)量[a1] = Sheets.Count'取得第一個(gè)sheet的名稱[a2] = Sheets(1).Name'取得當(dāng)前選中的單元格的地址[a3] = ActiveCell.Address'取得本excel的文檔路徑[a4] = ThisWorkbook.Path'取得A1單元格的值[a5] = Range("a1").Value'選擇當(dāng)前excel的第3個(gè)sheet的a1:b10區(qū)域，填充顏色為50的顏色'ThisWorkbook.Sheets(3).Range("a1:b10").Interior.ColorIndex = 50
End Sub

選擇單元格A1后，執(zhí)行代碼，下面是執(zhí)行結(jié)果

1.5 文檔的方法1

01 新建工作簿

Sub Test()
'新建工作簿
Workbooks.Add
'Workbooks.Add.Name = "test.xlsx" 可以修改新工作簿的名稱
'新工作簿的第一個(gè)sheet的名稱修改為add
ActiveWorkbook.Sheets(1).Name = "add"
'新工作簿的第一個(gè)sheet的單元格a3的值修改為abc
ActiveWorkbook.Sheets(1).Cells(3, 1) = "abc"
'添加一個(gè)sheet
ActiveWorkbook.Sheets.Add
'新sheet修改名稱為add2
ActiveWorkbook.ActiveSheet.Name = "add2"
'第一個(gè)sheet作為活動(dòng)sheet
ActiveWorkbook.Sheets("add").Activate
'關(guān)閉新工作簿
ActiveWorkbook.Close
End Sub

執(zhí)行結(jié)果：

02 打開工作簿

Sub Test()
'打開一個(gè)工作簿
Workbooks.Open ("D:\Jerry\Documents\工作簿4.xlsx")
'關(guān)閉這個(gè)打開的工作簿
ActiveWorkbook.Close
End Sub

執(zhí)行時(shí)一閃而過，因?yàn)槲臋n被打開后，立馬又被關(guān)閉了。如果F8，逐行代碼運(yùn)行，則可以看到工作簿被打開。