如何在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文件，会数局发现添加的用户窗体会自动显示出来，如图所示。

调用外部程序使用Shell语句，下面的实例是调用CMD命令打开DOS窗口并执行Dir命令，将浏览结果存入文件，然后用open语句打轿蠢开文件，读入vba，实例中使用的是绝对路径，如果是相对路径用“&”表示盘符，您要调用计算器，并获闭知陪取计算器的计算结果，仅调用外部程序猛粗是不行的，我尝试使用API函数钩子，结果是自己重新写一个计算器都没那么费神

Sub shellcall()

Shell "cmd /c dir c:\>c:\1aaa.txt"

Open "c:\11ss.txt" For Input As #1

Dim s As String

While Not EOF(1)

Line Input #1, s

Debug.Print s

Wend

Close #1

End Sub

---