laqi 发表于 2007-4-20 10:00:00

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

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

翔羽 发表于 2007-4-20 20:10:00

什么模版？请说具体点

StartMe 发表于 2007-4-21 00:14:00

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

laqi 发表于 2007-4-22 19:51:00

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

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

StartMe 发表于 2007-4-26 23:15:00

本帖最后由 作者 于 2007-4-26 23:28:02 编辑 <br /><br /> <p>实在不好意思，这几天没太注意消息，今晚刚看到，简单写了几行，你可参照，具体还得多看帮助文件：</p><p>新建一窗体，新建一按钮Command1，在“工程”-“引用”中引用Excel类型库。</p><p>Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim xlApp As Excel.Application<br/>&nbsp;&nbsp;&nbsp; Dim xlBook As Excel.Workbook<br/>&nbsp;&nbsp;&nbsp; Dim xlSheet As Excel.Worksheet<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Set xlApp = CreateObject("Excel.Application")<br/>&nbsp;&nbsp;&nbsp; Set xlApp = New Excel.Application<br/>&nbsp;&nbsp;&nbsp; xlApp.Application.Visible = False'在写入数据时设定为不可见<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; '假设你的模板文件是e:\1.xls，.xlt的也一样<br/>&nbsp;&nbsp;&nbsp; Set xlBook = xlApp.Workbooks.Open("e:\1.xls")<br/>&nbsp;&nbsp;&nbsp; '假设你要对模板文件中的第一个工作表操作<br/>&nbsp;&nbsp;&nbsp; Set xlSheet = xlBook.Worksheets(1)<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; '对你模板的相应位置写入数据，如在第一个工作表的A1单元格写入：<br/>&nbsp;&nbsp;&nbsp; xlSheet.Cells(1, 1).Value = "我的模板"<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; '模板文件另存为结果文件，结果文件名c:\2.xls<br/>&nbsp;&nbsp;&nbsp; xlBook.SaveAs FileName:="c:\2.xls"<br/>&nbsp;&nbsp;&nbsp; '关闭工作簿<br/>&nbsp;&nbsp;&nbsp; xlBook.Close<br/>&nbsp;&nbsp;&nbsp; '退出新启动的Excel程序<br/>&nbsp;&nbsp;&nbsp; xlApp.Application.Quit<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; '取消引用<br/>&nbsp;&nbsp;&nbsp; Set xlApp = Nothing<br/>&nbsp;&nbsp;&nbsp; Set xlBook = Nothing<br/>&nbsp;&nbsp;&nbsp; Set xlSheet = Nothing<br/>End Sub</p>
页: [1]
查看完整版本: [求助]关于AutoCAD与Excel的数据链接的