|
|
发表于 2018-12-18 01:53:06
|
显示全部楼层
来自： 中国江苏南京
我有问题请教/ L& E* E) T d6 N
我想将文件的创建时间提取出来，不知道用什么属性提取。
- w1 v/ c! g3 `- \3 w用"SW-Created Date"提取不出来。# w+ k* N+ {2 K7 g
4 C; a0 ]4 i1 O5 e
==================================================
3 g. {7 |/ b- g; V \" k
0 W: Y9 \$ }% }; W6 { I: ^: J'**************************************根据自己的实际需求进行增删**************************
; T- ?* c0 N3 v2 b* V8 N* A; M# N8 _! T xlWs.Range("B" & CurRow).Value = Left(swDocName & MYext, 11) & Chr(10) & Mid(swDocName & MYext, 12) }/ U1 n2 t+ L' [- x- o4 d
'这样书写可实现自动换行.Chr(10)表示换行
& T9 `. ~! v! Z/ ^" M
3 V. o1 L( E! G! x/ v' xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "Description")
: Q/ j! S M7 G1 l, _: Y xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "名称")
1 i$ f# V" r# Y xlWs.Range("D" & CurRow).Value = Get_Property_value(swDoc, "代号")1 L @1 ], o) e- V1 S; o: }' s
' xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "Material")9 ~: t0 D9 ~$ n1 _1 F7 G$ c
xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "材料")2 z$ F/ q( o. O. c7 Z/ i* I: N
( m+ @+ o, K) M8 [# d* e
xlWs.Range("G" & CurRow).Value = Get_Property_value(swDoc, "所属装配")" P7 U# n- |8 @& Q4 o
' xlWs.Range("H" & CurRow).Value = Get_Property_value(swDoc, "数量")
- l" @+ U6 r/ x( q- F0 S& P& ] '对于数量列，按照中心对齐
* r4 W$ T* k. A- i4 h7 J With xlWs.Range("H" & CurRow)4 z) P4 i7 v+ K8 J
.Value = Get_Property_value(swDoc, "数量")
! n' k- w6 ~6 C, n: F .HorizontalAlignment = xlCenter
6 _ u/ A3 W7 D3 v! G) M& y/ V: Y End With: \. ?5 C2 q& n6 h, l G! r
9 `( V! [" `6 U9 y7 d) u' xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc,"Weight")
- \7 n, f1 E+ \, K xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc, "质量")
P9 a0 t# W1 t/ u% f) I xlWs.Range("J" & CurRow).Value = Get_Property_value(swDoc, "创建日期") '重量: F2 {% l w, @" u7 l% L
xlWs.Range("K" & CurRow).Value = Get_Property_value(swDoc, "SW-Created Date")
8 T9 h& k! v, V$ `' Y3 l8 C
& [7 D$ X o# W* g+ z'*****************************************************************************************
6 g- P4 {" \' f# Z3 P+ Z6 v( `
! j7 }: k; m3 C4 I====================================================
- t! s+ f8 L: j; ?% o
- m7 A; ~8 ~6 @+ B. B+ h: E$ t: ~* @ E* d" g' f) `0 |
) }3 z# X1 v- U: G" y* i/ @4 V# r
0 B. E$ p; n/ B! X5 Y& F |
|
发表于 2018-5-23 17:54:07
