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

gaowen808

请高手赐教

0623136

qidai      !

lljjff

强烈顶你一下,支持!

360610988

5 E; A" G  q) K6 y/ U% z6 k
1 K- \$ M# g% k8 v3 j$ o我没明白楼主的意思？是把3维图导到Excel吗？

178767052

我也很想知道

aaa21

1 X$ O! A) G) R7 ]# }
' X1 A) Q: E7 ]/ U0 u. H0 G, oDim ExportList As ListView
Dim Exwbook As Excel.Workbook
Dim Exsheet As Excel.Worksheet

If ExportList Is Nothing Then MsgBox "请选择列表框！", vbInformation, "提示": Exit Sub
% b% D, Y8 K5 L0 W& OIf ExportList.ListItems.Count = 0 Then MsgBox "没有数据！", vbInformation, "提示": Exit Sub
'提取保存路径
PathStr = showdialog1
If PathStr = "" Then Exit Sub
'创建EXCLE文件
Set TempApp = CreateObject("Excel.application")
+ J* R  \# I& i/ H+ y9 q% ~If TempApp Is Nothing Then MsgBox "请检查是否安装Microsoft Excell软件", vbExclamation, "问题": Exit Sub
& Y1 m/ Z3 s+ KSet Exwbook = TempApp.Workbooks.Add
7 i4 w$ V1 R: g$ KSet Exsheet = Exwbook.Worksheets(1)
If Exsheet Is Nothing Then MsgBox "请检查是否存在" + PathStr & ",输出需要输入到Excell表中去", vbExclamation, "问题": Exwbook.Close: TempApp.Quit: Exit Sub
6 D! P& P( i4 j8 m, }TempApp.Sheets(1).Select
TempApp.Selection.ClearContents
. G2 ^$ ?" F4 d) rFor Loopj = 1 To ExportList.ColumnHeaders.Count
      Exsheet.Cells(1, Loopj) = ExportList.ColumnHeaders.Item(Loopj).Text
Next

( l. |/ N6 v( W0 t5 j! yFor Loopi = 1 To ExportList.ListItems.Count
4 e# x1 V7 W4 l   Set Itmx = ExportList.ListItems.Item(Loopi)
   For Loopj = 0 To ExportList.ColumnHeaders.Count - 1
      If Loopj = 0 Then
1 E( ?/ N# @0 F1 E) _: W         Exsheet.Cells(Loopi + 2, Loopj + 1) = Itmx.Text
      Else
         Exsheet.Cells(Loopi + 2, Loopj + 1) = Itmx.SubItems(Loopj)
% \9 E5 o0 K0 o& B/ Q- f      End If
   Next
! n; C' c7 c, y0 d# \Next
- y& V7 v- u& F1 ?6 @% O# m) J. rDim a As Long
1 i, Y, O) a. q: gExsheet.SaveAS (PathStr)
1 K, y$ q5 p4 D$ cExwbook.Close
TempApp.Quit
+ d* c; I+ q1 A5 Q9 MMsgBox "导出完成！", vbInformation, "确认"

178767052

楼上的告诉，你给的是什么软件的源代码啊？
: {6 y( U, P3 O: A8 x我们都是菜鸟看不太懂啊，能否说的详细一点啊？

gaowen808

Dim ExportList As ListView
9 g/ g, z& [; D2 B( x5 u- G: F- N/ _Dim Exwbook As Excel.Workbook
Dim Exsheet As Excel.Worksheet
6 m, _2 r1 j- T+ N8 }
If Expo ...
0 G, `) A4 c9 e' l6 w% ~. }aaa21 发表于 2010-1-25 09:50

$ \0 n& W  Q- q' X6 \$ \. o3 \

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

sayit

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

沈才曾

貌似是用VB编写的