如何在VBA中设置打开EXCEL时运行窗体？

在VBA中设置打开EXCEL时运行窗体按以下方法 *** 作：

1、打开Excel工作簿后，通过点击“开发工具”选项卡的“Visual Basic”按钮或用快捷键“Alt + F11”打开VBE环境。

2、打开VBE环境后，通过点击如图所示的工具按钮添加用户窗体。

3、如图所示，设计用户窗体，添加3个文本框，2个Label控件和1个按钮控件。

4、双击窗体上的按钮控件，在d出的代码编辑区域添加如图所示的代码。

5、双击资源管理器中的“ThisWorkBook”，如图所示；在打开的代码编辑环境下，点击“通用”下拉框，选择“WorkBook”，如图所示；在出现的事件过程中添加如图所示的代码——在打开工作簿时自动立即用户窗体的关键代码。

6、将所有文件关闭后，重新打开保存好的.xlsm文件，会发现添加的用户窗体会自动显示出来，如图所示。

1.部件-添加-可插入对象--选择excel 表格就可以在窗体添加该表格控件

2.工程-引用-Microsoft Excel 11.0 Object Library

下面给个简单的例子

Private Sub Command1_Click()

Dim xlExcel As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim AppExcel As Object

Set xlExcel = CreateObject("Excel.Application")

xlExcel.Workbooks.Open "C:\test.xls"

Set xlBook = xlExcel.Workbooks("test.xls")

Set xlSheet = xlBook.Worksheets(1)

Text1.Text = xlSheet.Cells(1, 1).Value

Text1.Text = Text1.Text &"ADD"

xlSheet.Cells(1, 1).Value = Text1.Text

Application.DisplayAlerts = False

xlBook.Close SaveChanges:=True

Application.DisplayAlerts = True

End Sub

可以在 窗体内添加一个Microsoft Office PivotTable 10.0或者11.0

可以连接不同数据源 展示 类似透视表的功能

只要字段全展开 就可工作表相当

---