|
Visual Basic for Applications
Visual Basic for Applications（VBA）是Visual Basic的一種巨集語言，主要能用來擴展Windows的應用程式功能，特別是Microsoft Office軟體。也可說是一種應用程式視覺化的Basic Script。 1994年發行的Excel 5.0版本中，即具備了VBA的巨集功能。 數據類型基本數據類型即Primary Type Data，下述列表的括號內為字節數：
自定义的数据类型相当于C语言的struct，例如： Type 自定义类型名
元素名 As 类型
…
[元素名 As 类型]
End Type
數組Option Base 0 '數組索引值從0開始
Option Base 1 '數組索引值從1開始
Dim MyArray(10) '聲明一個數組變量，10是最大的可用的數組索引值
MyArray(5) = 101 '給數組的元素賦值
Dim Data(10,5) '聲明一個二維數組變量
Data(1,1) = "A001" '給數組元素賦值
Dim cArr(-11 To 20, 1 To 3) As String '聲明一個數組，定義數組索引值的上下界
Dim dArr() As String '聲明動態數組
ReDim dArr(0 To 5, 1 To 2) '改變動態數組的尺寸默認把原數據清除。如果保留原來的數據，必須加上參數Preserve。
'使用Preserve參數時只能改變最後一維的大小
If UBound(vTemp) = -1 Then
'判斷數組變量vTemp是否為 空數組
End If
Erase MyArrar, Data 'Erase語句清除數組元素，釋放變量佔用的空間
常量日期常量由符号“#”将字符括起来，如#2012-1-1#。 系统定义常量有3个：True、False和Null。 固有常量是编程时引用的对象库定义的常量。所有固有常量都可以在宏或VBA代码中使用。通常，固有常量通过前两个字母来指明定义该常量。来自VB库的常量则以“vb”开头。来自Access的常量以“ac”开头。可以使用对象浏览器来查看所有对象库中的固有常量列表。 可以自行定义常量。如： Global Const 符号常量名称 = 常量值 调用DLL例如： Private Declare Function getFrequency Lib "kernel32" _ Alias "QueryPerformanceFrequency" (cyFrequency As Currency) As Long Private Declare Function getTickCount Lib "kernel32" _ Alias "QueryPerformanceCounter" (cyTickCount As Currency) As Long 控制結構if 語句if 條件1 then
語句1
elseif 條件2 then
語句2
elseif ...
...
else
語句n
end if
Select Case 語句Select Case 表達式
Case 表達式列表1
語句1
Case 表達式列表2
語句2
...
Case 表達式列表n
語句n
End Select
其中的表達式列表可以为：
Do...Loop 語句Do While或Until 條件 語句塊1 Exit Do 語句塊2 Loop Do 語句塊1 Exit Do 語句塊2 Loop While或Until 條件 For...Next語句For 循環控制變量=初值To 終值Step 步長 語句塊 ‘Exit For語句可以跳出循環體 Next For Each … Next語句For Each 循環控制變量 In 集合變量 語句塊 Exit For語句可以跳出循環體 Next 循環控制變量 跳出本次循环的continue语句VBA没有类似C语言的continue语句。通常可如此写程序： For 循環控制變量=初值 To 終值 Step 步長
Do '用于模拟continue
語句塊
If 条件 Then Exit Do '用于模拟continue
語句塊
Loop While False '用于模拟continue
Next
With語句With 對象引用 語句塊 End With On Error語句On Error Goto 出錯處理語句的label '跳轉到出錯處理語句 或 On Error Resume Next '遇到錯誤，不管錯誤，繼續往下執行 具有控制作用的函数
其他語句註釋語句使用REM或者單引號開始的行。 語句的連寫與續行如果一行包括多條語句，用冒號分割各個語句。跨多行的語句，在行末用“空格加下劃線”表示續行。 過程與函數Sub 過程名(參數表)
語句塊
Exit Sub
語句塊
End Sub
Function 函數名(參數表) As Type 語句塊 函數名=表達式 Exit Function End Function 可以是Private、Public、Friend、Static等修飾。 调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。例如： Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM myTable" , cn
Dim ExcelApp As New Excel.Application
Dim ExcelWst As Worksheet
Set ExcelWst = ExcelApp.Workbooks.Add.Worksheets(1)
ExcelWst.Range("A2").CopyFromRecordset(rs) '失败，无法执行该行
ExcelWst.Range("A2").CopyFromRecordset rs '可成功执行该行
常用内置函数VBA的常用内置函数列表参见：[1] （页面存档备份，存于互联网档案馆）
表达式比较特殊的运算符有指数运算^，浮点除法/，整数除法\，取模运算Mod，不等逻辑比较运算<> 參考文獻外部連結 維基教科書中的相關電子教程：Visual Basic for Applications
|
||||||||||||||||||||||
Index:
pl ar de en es fr it arz nl ja pt ceb sv uk vi war zh ru af ast az bg zh-min-nan bn be ca cs cy da et el eo eu fa gl ko hi hr id he ka la lv lt hu mk ms min no nn ce uz kk ro simple sk sl sr sh fi ta tt th tg azb tr ur zh-yue hy my ace als am an hyw ban bjn map-bms ba be-tarask bcl bpy bar bs br cv nv eml hif fo fy ga gd gu hak ha hsb io ig ilo ia ie os is jv kn ht ku ckb ky mrj lb lij li lmo mai mg ml zh-classical mr xmf mzn cdo mn nap new ne frr oc mhr or as pa pnb ps pms nds crh qu sa sah sco sq scn si sd szl su sw tl shn te bug vec vo wa wuu yi yo diq bat-smg zu lad kbd ang smn ab roa-rup frp arc gn av ay bh bi bo bxr cbk-zam co za dag ary se pdc dv dsb myv ext fur gv gag inh ki glk gan guw xal haw rw kbp pam csb kw km kv koi kg gom ks gcr lo lbe ltg lez nia ln jbo lg mt mi tw mwl mdf mnw nqo fj nah na nds-nl nrm nov om pi pag pap pfl pcd krc kaa ksh rm rue sm sat sc trv stq nso sn cu so srn kab roa-tara tet tpi to chr tum tk tyv udm ug vep fiu-vro vls wo xh zea ty ak bm ch ny ee ff got iu ik kl mad cr pih ami pwn pnt dz rmy rn sg st tn ss ti din chy ts kcg ve
