如何把UG实体的属性导出到Excel

gaowen808 · 发表于 2010-1-24 16:30

请高手赐教

0623136 · 发表于 2010-1-24 16:39

qidai !

lljjff · 发表于 2010-1-24 17:08

强烈顶你一下,支持!

360610988 · 发表于 2010-1-24 18:19

本帖最后由 360610988 于 2010-1-24 18:20 编辑

我没明白楼主的意思？是把3维图导到Excel吗？

178767052 · 发表于 2010-1-24 19:36

我也很想知道

aaa21 · 发表于 2010-1-25 09:50

本帖最后由 aaa21 于 2010-1-25 09:54 编辑

Dim ExportList As ListView
Dim Exwbook As Excel.Workbook
Dim Exsheet As Excel.Worksheet

If ExportList Is Nothing Then MsgBox "请选择列表框！", vbInformation, "提示": Exit Sub
If ExportList.ListItems.Count = 0 Then MsgBox "没有数据！", vbInformation, "提示": Exit Sub
'提取保存路径
PathStr = showdialog1
If PathStr = "" Then Exit Sub
'创建EXCLE文件
Set TempApp = CreateObject("Excel.application")
If TempApp Is Nothing Then MsgBox "请检查是否安装Microsoft Excell软件", vbExclamation, "问题": Exit Sub
Set Exwbook = TempApp.Workbooks.Add
Set Exsheet = Exwbook.Worksheets(1)
If Exsheet Is Nothing Then MsgBox "请检查是否存在" + PathStr & ",输出需要输入到Excell表中去", vbExclamation, "问题": Exwbook.Close: TempApp.Quit: Exit Sub
TempApp.Sheets(1).Select
TempApp.Selection.ClearContents
For Loopj = 1 To ExportList.ColumnHeaders.Count
   Exsheet.Cells(1, Loopj) = ExportList.ColumnHeaders.Item(Loopj).Text
Next

For Loopi = 1 To ExportList.ListItems.Count
Set Itmx = ExportList.ListItems.Item(Loopi)
For Loopj = 0 To ExportList.ColumnHeaders.Count - 1
   If Loopj = 0 Then
      Exsheet.Cells(Loopi + 2, Loopj + 1) = Itmx.Text
   Else
      Exsheet.Cells(Loopi + 2, Loopj + 1) = Itmx.SubItems(Loopj)
   End If
Next
Next
Dim a As Long
Exsheet.SaveAS (PathStr)
Exwbook.Close
TempApp.Quit
MsgBox "导出完成！", vbInformation, "确认"

178767052 · 发表于 2010-1-30 17:20

楼上的告诉，你给的是什么软件的源代码啊？
我们都是菜鸟看不太懂啊，能否说的详细一点啊？

gaowen808 · 发表于 2010-2-9 14:35

Dim ExportList As ListView
( o% p0 I! i7 p9 {3 P: N& `Dim Exwbook As Excel.Workbook
+ _6 D: [" s/ D5 w8 F4 [# RDim Exsheet As Excel.Worksheet1 [9 n6 F+ a! H

6 b; Y: z1 ^9 w( @+ hIf Expo ... l7 V. R1 |3 w9 Q
aaa21 发表于 2010-1-25 09:50

这位楼主是用VB做的二次开发吧，可以上传更多资料学学呀

sayit · 发表于 2010-3-26 11:50

http://bbs.uggd.com/thread-127940-1-5.html

沈才曾 · 发表于 2010-5-30 07:06

貌似是用VB编写的

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

[疑难] 如何把UG实体的属性导出到Excel

相关帖子