excel表格插入cad的vba代码

要在Excel表格中插入CAD的VBA代码，首先需要打开Excel软件并创建一个新的工作表。然后进入“开发工具”选项卡，在“Visual Basic”中创建一个新的模块。在新的模块中，可以开始编写VBA代码。

首先，需要使用VBA代码创建一个新的CAD应用程序对象。可以使用以下代码：

Dim cadApp As Object
Set cadApp = CreateObject("AutoCAD.Application")
cadApp.Visible = True

接下来，可以使用以下代码打开CAD的绘图文件：

cadApp.Documents.Open "D:\CADfile.dwg"

然后，可以使用VBA代码在CAD中创建一个新的图形对象，例如一个矩形：

Dim cadDoc As Object
Set cadDoc = cadApp.ActiveDocument
Dim cadModelSpace As Object
Set cadModelSpace = cadDoc.ModelSpace
Dim startPoint As Variant
startPoint = cadApp.Point(0, 0, 0)
Dim endPoint As Variant
endPoint = cadApp.Point(10, 10, 0)
cadModelSpace.AddBox startPoint, endPoint

最后，需要确保在Excel中运行VBA代码时，CAD软件是打开的。一旦VBA代码在Excel中编写完成并运行，就可以在CAD中看到相应的图形对象被创建。

在编写VBA代码时，需要确保CAD软件的对象模型和方法被正确理解和使用。同时也要确保CAD软件的安全设置和权限设置，以确保VBA代码能够正确地与CAD软件进行交互。