|
|
发表于 2018-12-18 01:53:06
|
显示全部楼层
来自： 中国江苏南京
我有问题请教
8 y+ S1 k5 n" `, P& K我想将文件的创建时间提取出来，不知道用什么属性提取。
5 P' M; S: }# }# y" y用"SW-Created Date"提取不出来。" K- G8 z P% Q8 ~7 ]
) u' @7 Z; H9 S9 e) {6 I" u, k, h==================================================
7 G+ O: c6 }# Q. d1 I9 m& g" q. D2 d
1 w( Y; `! [9 f) q9 s7 U- o'**************************************根据自己的实际需求进行增删**************************
& j9 Y$ `7 f+ p; ^2 @* @ xlWs.Range("B" & CurRow).Value = Left(swDocName & MYext, 11) & Chr(10) & Mid(swDocName & MYext, 12)
5 A( f$ P0 w& E/ \7 R: a '这样书写可实现自动换行.Chr(10)表示换行. I6 a; j2 C8 Q, H
% b( N4 f2 A8 _, ?7 P! E2 ?
' xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "Description")
- Q d; d9 }( O" q9 W6 P xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "名称")
3 t/ a; r& W3 Y5 J! D) g xlWs.Range("D" & CurRow).Value = Get_Property_value(swDoc, "代号")
1 d0 q8 l3 w8 ]" h& F' y' xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "Material")
3 Y" b8 X+ A6 u9 T9 S- C. L8 G* Z xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "材料")
" e: y; E) P D) ~% n6 i8 s5 X6 U 5 A5 ?4 \8 C. @/ _
xlWs.Range("G" & CurRow).Value = Get_Property_value(swDoc, "所属装配")1 z& q/ O# h: }2 y) Z* W0 o
' xlWs.Range("H" & CurRow).Value = Get_Property_value(swDoc, "数量")/ d: I- F! f6 u) i; h. D2 }% N
'对于数量列，按照中心对齐) q1 e0 w& p6 L! p
With xlWs.Range("H" & CurRow)2 B4 W. M6 k- M! |- a3 z
.Value = Get_Property_value(swDoc, "数量")
/ j( B k7 ?4 U0 \2 s .HorizontalAlignment = xlCenter
3 v: o$ ?) \' r2 [. c% }6 c% ? End With# S8 @* D0 W4 K6 j! r4 k
: N/ |) m ~; B b) _6 o' xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc,"Weight")
$ u/ P$ i/ R( O, Z) p) K2 c$ R xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc, "质量")& ]* O6 R7 p: E7 o
xlWs.Range("J" & CurRow).Value = Get_Property_value(swDoc, "创建日期") '重量
" |# Q* k9 ]0 H% G7 z+ p xlWs.Range("K" & CurRow).Value = Get_Property_value(swDoc, "SW-Created Date")
/ P5 L* g4 k2 y c9 c( Y h( v) I( [2 f* ~
'*****************************************************************************************
7 R6 D7 c2 g @. D" V y
5 y, v6 c1 b; @9 Y( F5 Y" @! U====================================================4 C+ `, L! I! J- {8 M; `
; ` R( l: `+ W4 ~4 Z; u7 ]3 d$ O
% [5 A1 d, @ I
9 F7 X9 t3 f3 I, d* D* y. q+ z( M$ l' y+ D
|
|
发表于 2018-5-23 17:54:07
