VBA最常用的基础代码、基础功能写法总结
| 阿里云国内75折 回扣 微信号：monov8 |
| 阿里云国际，腾讯云国际，低至75折。AWS 93折 免费开户实名账号 代冲值 优惠多多 微信号：monov8 飞机：@monov6 |
我们假设是在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 定义数组
9 循环写法
For i = 0 To 4 'i从0到4 i不需要声明
'写内容
Next i
10 判断的写法
If i > 1 Then
'可以写多条语句
End If
| 阿里云国内75折 回扣 微信号：monov8 |
| 阿里云国际，腾讯云国际，低至75折。AWS 93折 免费开户实名账号 代冲值 优惠多多 微信号：monov8 飞机：@monov6 |
