ExcelVAB 基础与应用.ppt

Yard of Choice 应用程序编码 Private Sub CommandButton1_Click() ‘执行写入电缆册操作 Dim FromID As String Dim ToID As String Dim FromName As String Dim ToName As String Dim FromRoom As String Dim ToRoom As String Dim Cablespec As String Dim Operator As String Dim CableTag As String CableTag = TextBox1.Text Operator = ComboBox1.Text FromName = ListBox1.Text ToName = ListBox2.Text Cablespec = ListBox4.Text FromRoom = ComboBox2.Text ToRoom = ComboBox3.Text Yard of Choice 应用程序编码 FromID = InputBox(请输入起始设备编码, 设备编码) ToID = InputBox(请输入终止设备编码, 设备编码) i_p = Sheet2.UsedRange.Rows.Count + 1 Sheet2.Cells(i_p, 1) = CableTag Sheet2.Cells(i_p, 2) = Cablespec Sheet2.Cells(i_p, 3) = FromID Sheet2.Cells(i_p, 6) = ToID Sheet2.Cells(i_p, 4) = FromName Sheet2.Cells(i_p, 7) = ToName Sheet2.Cells(i_p, 5) = FromRoom Sheet2.Cells(i_p, 8) = ToRoom Sheet2.Cells(i_p, 9) = Operator ThisWorkbook.Save End Sub Yard of Choice EXCEL VBA 基础与应用 第三章 开发AUTOCAD、CATIA Yard of Choice 开发AUTOCAD、CATIA 从本章开始，我们只是简单的对EXCEL VBA与其它应用程序 VBA之间进行数据交流进行讲解。 第一章我们介绍了AUTOCAD VBA的对象架构，下面我们就在此 基础上编写代码。 在EXCEL VBA环境中 点击菜单 “工具”“引用”，在弹出的 窗口中勾选 AutoCAD 2006 Type Library选项，此选项是 AutoCAD2006的VBA对象库。 Yard of Choice 开发AUTOCAD、CATIA 两个函数用于创建和返回对 COM 对象的引用, 不能用于在 Visual Basic 中创建和返回类的实例，除非那些类显式公开为 COM 组件 CreateObject参数： Class 必选。String。要创建的对象的程序 ID。 ServerName 可选。String。将要在其上创建对象的网络服务器的名称。如果 ServerName 为空字符串 ()，则使用本地计算机。 CreateObject 和 GetObject Yard of Choice 开发AUTOCAD、CATIA Getobject 参数： PathName：可选。String。包含待检索对象的文件的完整路径和名称。 如果省略 PathName 或者该参数为零长度字符串 ()，则 Class 是必需 的。 Class：如果没有提供 PathName，则是必选项。String。表示对象的类 的字符串。 CreateObject 用于创建一个全新的应用程序引用，GetObject是用来获取一个已经运行的应用程序引用。 Yard of Choice 开发AUTOCAD、CATIA 创建AUTOCAD程序引用，并将其显示模式设置为可视。 Private Sub CommandButton1_Click() Dim acadapp As AcadApplication Set acadapp = CreateObject(autocad.application) acadapp.Visible = True‘设置为可视 End Sub 获取AUTOCAD程序引用，并将其显示模式设置为可视。 Private Sub CommandButton1_Click() Dim acadapp As AcadApplication Set acadapp = GetObject(,autocad