[求助]关于AutoCAD与Excel的数据链接的

laqi

我希望通过在AutoCAD里读取图元信息之后，存入到Excel中，之前都是先放入一个临时的book1里，在做复制粘贴操作到我专门做的数据统计的Excel模版中，现在就是想能够直接把数据导入到我的那个Excel模版中，省略掉中间的临时存储环节，还请路过的高人指点一招，小辈不胜感激！

翔羽

什么模版？请说具体点

StartMe

写入时打开你的模版文件，按位置写入，然后关闭文件时另存为新的文件名。

laqi

StartMe发表于2007-4-21 0:14:00写入时打开你的模版文件，按位置写入，然后关闭文件时另存为新的文件名。

还麻烦前辈说明清楚些，小弟菜鸟级，还不甚理解你的指教！谢谢！

StartMe

实在不好意思，这几天没太注意消息，今晚刚看到，简单写了几行，你可参照，具体还得多看帮助文件：

新建一窗体，新建一按钮Command1，在“工程”-“引用”中引用Excel类型库。

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
   
    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application
    xlApp.Application.Visible = False'在写入数据时设定为不可见
   
    '假设你的模板文件是e:\1.xls，.xlt的也一样
    Set xlBook = xlApp.Workbooks.Open("e:\1.xls")
    '假设你要对模板文件中的第一个工作表操作
    Set xlSheet = xlBook.Worksheets(1)
   
    '对你模板的相应位置写入数据，如在第一个工作表的A1单元格写入：
    xlSheet.Cells(1, 1).Value = "我的模板"
   
    '模板文件另存为结果文件，结果文件名c:\2.xls
    xlBook.SaveAs FileName:="c:\2.xls"
    '关闭工作簿
    xlBook.Close
    '退出新启动的Excel程序
    xlApp.Application.Quit
   
    '取消引用
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing
End Sub