excel导入pdm建表

最新推荐文章于 2024-06-17 15:23:48 发布

qumingtainan

最新推荐文章于 2024-06-17 15:23:48 发布

阅读量2.2k

点赞数 3

本文链接：https://blog.csdn.net/qumingtainan/article/details/85114335

版权

这篇博客介绍了如何利用Excel模板和脚本文件高效地导入数据到PDM系统中建表。首先，提供了Excel建表模板，要求用户按照模板规范填写。接着，通过在PDM工具中执行脚本来运行导入过程，用户需要修改脚本中Excel文件的路径。最后，将生成的表拖放到相应的图表中完成建表操作。

摘要由CSDN通过智能技术生成

excel导入pdm建表

一脚本文件

Option Explicit
 
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
End If
 
Dim HaveExcel
Dim RQ
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes Then
   HaveExcel = True
   ' Open & Create Excel Document
   Dim x1  '
   Set x1 = CreateObject("Excel.Application")
   x1.Workbooks.Open "D:\FireFly\CRM\01文档\03设计文档\01总体设计类文档\testexcel2pdm1.xlsx"   '指定excel文档路径
   x1.Workbooks(1).Worksheets("Sheet1").Activate   '指定要打开的sheet名称
Else
   HaveExcel = False
End If
 
a x1, mdl
sub a(x1, mdl)
dim rwIndex   
dim tableName
dim colname
dim table
dim col
dim count
on error Resume Next
 
For rwIndex = 2 To 1000   '指定要遍历的Excel行标  由于第1行是表头，从第2行开始
        With x1.Workbooks(1)