|
|
发表于 2018-12-18 01:53:06
|
显示全部楼层
来自： 中国江苏南京
我有问题请教7 N' }, H7 A! d# P% q% N
我想将文件的创建时间提取出来，不知道用什么属性提取。5 i/ n- ]9 Z; _6 T1 c& w+ @& R
用"SW-Created Date"提取不出来。3 g& i' ]& v( {3 }9 \+ Y
z6 q# y0 s; u. s4 x% P
==================================================% X# j( ?% L0 Z6 H
2 J$ s' S3 i3 n; J. R'**************************************根据自己的实际需求进行增删**************************, I9 V* q, L N+ y
xlWs.Range("B" & CurRow).Value = Left(swDocName & MYext, 11) & Chr(10) & Mid(swDocName & MYext, 12)- X* W) {( m2 V! m+ e9 r8 Z# l5 [
'这样书写可实现自动换行.Chr(10)表示换行
* T! d3 } a# V ! W& |8 _ I% v' v( E9 d9 ]
' xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "Description")8 O/ k/ `- J* Y/ M
xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "名称")
( x% \( i- I: L0 q! e. D xlWs.Range("D" & CurRow).Value = Get_Property_value(swDoc, "代号")- ~8 i4 c* z8 P2 u3 F. X
' xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "Material")9 v4 f, d% p; v! D4 b5 l
xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "材料")
+ }) C2 d# N+ Y) C3 x/ {5 D
! u( K) T2 i" \4 S9 g" u4 D xlWs.Range("G" & CurRow).Value = Get_Property_value(swDoc, "所属装配")
7 e6 u: W" U) T, a4 i' xlWs.Range("H" & CurRow).Value = Get_Property_value(swDoc, "数量")
( ^. T# @; F! k+ _) S '对于数量列，按照中心对齐
; Y4 J8 F: i: W( b With xlWs.Range("H" & CurRow)- p ` Q" c q
.Value = Get_Property_value(swDoc, "数量")
* ]' o+ I4 M( N! K .HorizontalAlignment = xlCenter
+ O) g* E6 b A, i) `" N End With/ m' u5 {% N8 i7 d9 F; J
/ h3 V/ |9 C2 _' xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc,"Weight")
3 f1 ~& g& J1 i xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc, "质量")
) q; b5 Q( z/ u' G: Q xlWs.Range("J" & CurRow).Value = Get_Property_value(swDoc, "创建日期") '重量0 z7 ~+ P a8 C
xlWs.Range("K" & CurRow).Value = Get_Property_value(swDoc, "SW-Created Date")
0 X! E% {! a% D: H1 w0 \
9 e8 L$ u. }% c! a% z* W9 z4 p9 t'*****************************************************************************************& t5 {! ~; T3 Q6 h0 v; L; ^$ N+ _
" r8 ^4 |; S# L! q. f3 _1 U6 J2 R====================================================
2 n" D3 \& e- M. c! E% a* {8 A
3 T) A7 v0 H# t, F E. J+ ^8 v& o( g6 b
- G3 j' x. [: o" z) E) N( T9 \5 T/ d) I9 G$ h+ M9 S
|
|
发表于 2018-5-23 17:54:07
