VBA最常用的基础代码、基础功能写法总结

我们假设是在word里面编程的，excel里面编程同理

【注意点总结】

1、分清你是在word里面编程的，还是在excel里面编程的。
2、如果在word里面编程操作excel的话。在编程界面的工具栏：“工具”->“引用”，找到Microsoft Excel xxx Object Library 勾选出来。不然会报错。excel里面编程同理。

【实用代码总结】

1 注释是用一个单引号

2 获取word文档中表格的数量

tablesCount = ActiveDocument.Tables.Count 'tablesCount是变量名

3 获取word文档中表格的行数、列数

'i表示第i个表格
tableRowCount = ActiveDocument.Tables(i).Range.Rows.Count '行
tableColumnCount = ActiveDocument.Tables(i).Range.Columns.Count '列

4 打开一个excel文件，存入变量

	Dim ExcelApp As Object                          
    Dim wk As Object
    Application.ScreenUpdating = False
    Set ExcelApp = CreateObject("Excel.Application")                          '打开一个Excel程序对象
    ExcelApp.Visible = Flase                            '不显示文件
    Set wk = ExcelApp.Workbooks.Open("C:\Users\28641\Desktop\副本附注模板1.xlsx")         '打开文件地址位置

5 给word文档中表格的单元格赋值

ActiveDocument.Tables(1).Cell(1, 1).Range.Text = 1

6 给excel中的单元格赋值

wk.Sheets("Sheet1").Cells(1, 1).Value = 1 ' wk是excel存入的变量名

7 设置居中、居左、居右

xxx.ParagraphFormat.Alignment = wdAlignParagraphCenter
xxx.ParagraphFormat.Alignment = wdAlignParagraphLeft
xxx.ParagraphFormat.Alignment = wdAlignParagraphRight

8 定义数组

arr = Array(1,2,3)

9 循环写法

For i = 0 To 4 'i从0到4 i不需要声明
'写内容
Next i

10 判断的写法

If i > 1 Then '只能写一条语句

If i > 1 Then 
	'可以写多条语句
End If