VB 动态填充 Excel表格

一、准备工作：

1.下载 安装VB

2. 点击工程->引用->勾选mircosoft excel 14 （数字根据版本定）

如下图


二、实现步骤：

1.话不多说开始正文 首先安装 vb 新建一个工程 很简单的说。在主界面添加一个按钮 ，直接在左面的工具栏单击，在中间界面上拖动一个按钮出来，双击按钮可以得到如下图，在其中填入代码如下。

Private Sub Command1_Click() '打开EXCEL过程
If Dir("C:\牛专.xlsx") <> "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("C:\牛专.xlsx") '打开EXCEL工作簿
Set xlsheet2 = xlBook.Worksheets(2) '打开EXCEL工作表
Set xlsheet3 = xlBook.Worksheets(3)
xlsheet2.Activate
xlsheet3.Activate '激活工作表
For i = 1 To 977
For j = 1 To 606
If xlsheet2.Cells(i, 4) = xlsheet3.Cells(j, 1) Then
xlsheet2.Cells(i, 9) = xlsheet3.Cells(j, 2) '给单元格1行驶列赋值
End If
Next j
Next i
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

上面代码的意思是 判断 牛专.xlsx 这个文件 第三个sheet 和第二个 sheet 对应的分别 第四列和第一列 相等时，则将sheet3中第二列的数据填充到sheet2的最后一列中，很简单的操作，不过很实用。

2.双击主界面 填入对应的全局变量（我这么理解）

Private Sub Form_Load()
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Text1.Text = "hello world"
End Sub

3.excel格式如下图：



点击编译运行，表格会自动打开，数据就会自动填充，上图最后一列即为填充进去的数据。