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格式如下图：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!