|
|
发表于 2018-12-18 01:53:06
|
显示全部楼层
来自： 中国江苏南京
我有问题请教. o+ f* f3 m* p7 o; b. a
我想将文件的创建时间提取出来，不知道用什么属性提取。
. g8 D1 ?3 m- N @ p* s用"SW-Created Date"提取不出来。
: t, W3 o8 E3 I2 W! ^5 N( \8 |+ L+ z: ]2 w2 F
==================================================
( o/ r {# G7 U9 k2 K% e1 ^6 ]: i' s2 h7 V" j9 ~' i [
'**************************************根据自己的实际需求进行增删**************************! G# G5 t+ n6 N% f# k5 W+ e4 p9 i
xlWs.Range("B" & CurRow).Value = Left(swDocName & MYext, 11) & Chr(10) & Mid(swDocName & MYext, 12)
- g4 T# C& W' ] '这样书写可实现自动换行.Chr(10)表示换行8 b; a! s+ J) @! s C6 J
5 L2 Y. x1 M0 @1 _$ y
' xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "Description")8 ~- x2 L }2 a! d6 w
xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "名称"), X3 E+ m0 J1 M& b. y+ F
xlWs.Range("D" & CurRow).Value = Get_Property_value(swDoc, "代号") g5 l: m: {. l" c; K; u& K
' xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "Material")7 ~7 u9 G- V2 h( S, D/ u; }
xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "材料")' ~/ a5 [* n1 J$ x- T
4 G$ n8 [2 S5 d4 p# u) m: a5 z xlWs.Range("G" & CurRow).Value = Get_Property_value(swDoc, "所属装配")
1 R( Z% Q7 c1 D8 D; f8 ] j- Q5 E# \* R' xlWs.Range("H" & CurRow).Value = Get_Property_value(swDoc, "数量")
" z, e0 ?1 R G; \4 ?& M '对于数量列，按照中心对齐
% d; `, g7 z+ }3 S0 J% u! A With xlWs.Range("H" & CurRow)9 s) b( x6 ? J% S
.Value = Get_Property_value(swDoc, "数量"): Q1 ] z. J9 N; {
.HorizontalAlignment = xlCenter% r% a* r% k! s {! C! I" B0 V
End With) U* h7 _" S# w$ [/ |3 _: w! l
/ y# j" N+ z4 Y: e- o- ?' xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc,"Weight")/ [4 t: V* P2 Y6 i- S2 n
xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc, "质量")
* m. Q6 n) @6 B xlWs.Range("J" & CurRow).Value = Get_Property_value(swDoc, "创建日期") '重量1 K1 K |! u/ i8 l! J
xlWs.Range("K" & CurRow).Value = Get_Property_value(swDoc, "SW-Created Date")0 h# V9 z! Y2 g$ C3 I2 |+ E
7 @3 N7 D, A7 p. n w' }'*****************************************************************************************
* a# \1 T4 M' L3 u1 X1 H- N# W+ H2 [) a, @# S. r" h0 n6 S
====================================================, v) U; O3 W& G/ B$ v/ k3 a4 V
1 A! z) b: W1 i- u
- z- s" R# o0 T0 r& w, b0 y% _2 T) u
; d3 b5 j7 `) R/ l4 Z8 `* J3 m% c
|
|
发表于 2018-5-23 17:54:07
