QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

楼主: lhl2008
收起左侧

[原创] 批量输出文件自定义属性及缩略图到Excel

[复制链接]
发表于 2018-5-23 17:54:07 | 显示全部楼层 来自: 中国江苏苏州
确实厉害啊。看得想睡觉了
发表于 2018-5-25 21:43:39 | 显示全部楼层 来自: 中国江苏
good
发表于 2018-8-22 06:54:26 | 显示全部楼层 来自: 中国江西吉安
好东东,值得分享
发表于 2018-8-24 15:23:36 | 显示全部楼层 来自: 中国江苏常州
lhl2008 发表于 2017-8-6 21:46
6 P/ ~3 @% g  I) X# ^做出了与鹿兄一样的线框缩略图,效果还不太好,还需改进
4 k0 U$ D' |% Q. f# y. q1 V9 }) {
楼主有这个最新板的宏分享学习下吗?
发表于 2018-9-11 16:20:07 | 显示全部楼层 来自: 中国浙江嘉兴
非常感谢分享好东西
发表于 2018-12-18 01:29:03 | 显示全部楼层 来自: 中国江苏南京
谢谢大师,我一初学者竟然运行成功了。% y  b: M& G& A' e
第一步,先解决了库的引用
5 N5 y5 D& N: p/ _; M$ ]2 |  v) a
第二步,加入提供的修改代码
* S5 V# t' ?$ c4 D3 ?1 @+ Y- `( `5 ]1 S1 r+ C8 E5 |/ Y" V

( X* \) M2 L+ s! \/ M然后就可以运行了。
4 Y- b9 N/ _4 Z
2 \5 N) {+ |1 |1 r# P/ J
QQ截图20181218011721.jpg
QQ截图20181218012246.jpg
QQ截图20181218012350.jpg
QQ截图20181218012438.jpg
QQ截图20181218012758.jpg
发表于 2018-12-18 01:53:06 | 显示全部楼层 来自: 中国江苏南京
我有问题请教% i' v0 w+ d5 _* g
我想将文件的创建时间提取出来,不知道用什么属性提取。2 a) Q( _# w, E
用"SW-Created Date"提取不出来。
+ u6 O6 k# Y" Q) U
9 R' r% U# [' J$ y==================================================, R0 X4 Q5 i. c9 ]8 p7 }
1 z4 [; P7 t. \2 X  Q$ S
'**************************************根据自己的实际需求进行增删**************************
0 j2 M; @$ V( b4 L: x1 j. G' `            xlWs.Range("B" & CurRow).Value = Left(swDocName & MYext, 11) & Chr(10) & Mid(swDocName & MYext, 12)
, ~& V$ X. B" k% g            '这样书写可实现自动换行.Chr(10)表示换行* c8 k1 r4 U5 u, D+ T* o
            
3 s  [+ _2 a5 M  [8 l'           xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "Description")  d. s" R; i1 \6 X- r4 k* g: M
            xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "名称"); j" `: ^" z0 |: l# Z. u
            xlWs.Range("D" & CurRow).Value = Get_Property_value(swDoc, "代号")& |6 {# b8 X: _0 V! m  A, p" s
'           xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "Material")# ^- t/ }4 F' A4 [& X% l8 M# ]
            xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "材料")" m. u7 D; m2 }2 Y8 J
            3 Y( |' v) |$ u. w
            xlWs.Range("G" & CurRow).Value = Get_Property_value(swDoc, "所属装配")
6 j7 d" `+ ~* S& q$ T1 V. P9 e3 {'           xlWs.Range("H" & CurRow).Value = Get_Property_value(swDoc, "数量")
# B6 G" A( l3 S! o           '对于数量列,按照中心对齐
8 U* |$ n9 D1 p2 G/ F  D            With xlWs.Range("H" & CurRow)
# @" l( s, }6 z1 I. g                .Value = Get_Property_value(swDoc, "数量")
" T, o" [& a( D9 l                .HorizontalAlignment = xlCenter
4 c. [2 }! Q) V. x6 h            End With7 W5 O) E5 b* [& K& U- a
            . u; ^! c9 n: @2 ]% i; c0 S
'           xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc,"Weight")
* n+ R6 H. s$ Z' E8 a            xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc, "质量")
8 ~% K2 }  i. {) S  c* O            xlWs.Range("J" & CurRow).Value = Get_Property_value(swDoc, "创建日期")  '重量
9 B" m' S( `8 S! b            xlWs.Range("K" & CurRow).Value = Get_Property_value(swDoc, "SW-Created Date")
8 U2 h9 ?' x7 k) Q) T8 U
/ R0 I! t! N, k) b! z'*****************************************************************************************( v2 s1 S! A- q/ K2 C

2 o" G: B9 O& r4 C4 a====================================================
& s7 c: ^8 F0 a. X9 o( u
) a4 v+ R0 y4 h: ^9 E( H& z, b' c- W% l7 j- E" ]. S& X% V

) S7 ]- s% ~( M5 _3 B* A# g- e" i, d' [1 f; ]/ X
QQ截图20181218015056.jpg
QQ截图20181218014947.jpg
QQ截图20181218013415.jpg
发表于 2019-2-18 18:04:38 | 显示全部楼层 来自: 中国河南洛阳
留个记号 太好用了 感谢
发表于 2019-4-26 11:00:33 | 显示全部楼层 来自: 中国广西钦州
这个功能强大
发表于 2019-4-27 17:08:37 | 显示全部楼层 来自: 中国广西钦州
soso2006 发表于 2017-7-30 19:40
) H1 b/ J; n! M7 R, H. B# xSw2012 64bit office 2007
/ I+ Q, ?1 c' S! ~0 K运行宏后,选择文件夹,excel中只能显示一个零件的相关内容! d4 y% x- {6 ~& l+ n4 w1 Y
其实文件夹中有 ...

2 ], y  z7 ~- }8 J# e我也试过有这个问题。如果文件大直接就崩溃了,不知道怎么解决
发表于 2019-5-4 21:55:52 | 显示全部楼层 来自: 中国湖南
应该是个好东西   改天看看
发表于 2019-7-6 10:32:15 | 显示全部楼层 来自: 中国河南济源
刚好需要,谢谢大神分享
发表于 2019-7-15 19:34:28 | 显示全部楼层 来自: 中国天津
ding
发表于 2023-2-20 18:14:44 | 显示全部楼层 来自: 中国河北秦皇岛
非常感谢
发表于 2023-7-21 14:37:14 | 显示全部楼层 来自: 中国湖北武汉
还是这个群里面大神多
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表