将外部的Excel数据导入SW工程图

574395 · 发表于 2010-10-25 09:01:27

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

有无宏能将将外部的Excel数据导入SW工程图

步骤为：1、打开Excel，并选中要导入的数据

2、转到SW中，运行宏

3、得到如图的表格

swabc · 发表于 2010-10-25 11:59:15

1、没看见图啊
2、是明细表么
3、能吧，要创建Excel的 ActiveX 对象

574395 · 发表于 2010-10-25 12:42:14

如何创建SW 与 EXCEL中对象的链接 2# swabc

syc102 · 发表于 2010-10-25 20:07:32

干吗要运行宏？直接Ctrl C 在工程图上Ctrl V!

swabc · 发表于 2010-10-26 09:59:50

本帖最后由 swabc 于 2010-10-26 10:01 编辑

如果你要插入完整的Excel表，不用宏就可以。
如果是部分，要创建Excel的ActiveX 对象。

在d盘存个excel文件，名字为Book1.xls
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim s As String
Set xlapp = CreateObject("excel.application")
xlapp.Visible = False
Set xlbook = xlapp.Workbooks.Open("d:\Book1.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
s=xlsheet.Cells(2, 5) '读取第2行，第5列
MsgBox (s) '现在可以用这个s了
xlbook.Close
Set xlapp = Nothing

swabc · 发表于 2010-10-26 10:03:27

我不知道你要把读出的数据放在sw哪里

574395 · 发表于 2010-11-1 08:39:48

谢 5# swabc

		自动登录	找回密码
密码			注册

通知

[已解决] 将外部的Excel数据导入SW工程图

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分