|
|
发表于 2018-12-18 01:53:06
|
显示全部楼层
我有问题请教
7 b3 G& f' S9 H; w6 ^2 T我想将文件的创建时间提取出来，不知道用什么属性提取。2 j1 U% X6 I w7 ^ V$ c
用"SW-Created Date"提取不出来。3 g* X* f5 F# g4 }9 X
8 P# _2 H' N' _
==================================================
$ `5 G V- f- K9 g v9 B# |7 g) v
$ e/ f5 L2 m4 L; h'**************************************根据自己的实际需求进行增删**************************
( E$ T. g# v& Y5 g xlWs.Range("B" & CurRow).Value = Left(swDocName & MYext, 11) & Chr(10) & Mid(swDocName & MYext, 12)
* _4 Q+ c! E- A! ? '这样书写可实现自动换行.Chr(10)表示换行
& P6 A( v. O' d% h
+ V; J' n0 z) N8 I9 \, b' xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "Description")
, k7 H6 p; o1 g! W( K2 \. s xlWs.Range("C" & CurRow).Value = Get_Property_value(swDoc, "名称")
: G, f- B( Z; ~. A6 ^0 j B( {4 D xlWs.Range("D" & CurRow).Value = Get_Property_value(swDoc, "代号")
+ u; J$ m9 d! i! {8 I7 P9 W' xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "Material")
: Z; F7 t% i7 n! D4 ^ xlWs.Range("F" & CurRow).Value = Get_Property_value(swDoc, "材料")# T, A/ S. d$ d
3 ?* h7 ^5 A$ N: ^( p+ x3 v! r xlWs.Range("G" & CurRow).Value = Get_Property_value(swDoc, "所属装配")
. @8 [; X! W, s' xlWs.Range("H" & CurRow).Value = Get_Property_value(swDoc, "数量")
+ H$ P3 z! h2 y Y/ H '对于数量列，按照中心对齐0 u( _/ N' h: Y$ C
With xlWs.Range("H" & CurRow)3 I0 h: I% u/ V R
.Value = Get_Property_value(swDoc, "数量")
7 m f* z, u; o2 _' b( e .HorizontalAlignment = xlCenter9 A& h2 h9 z! x2 p
End With
6 U+ H6 v3 n* C, ~+ z6 ]' g' v% S . f1 B2 W) Y. f8 Z
' xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc,"Weight")
6 W p) C! l' a8 Z: H4 t xlWs.Range("I" & CurRow).Value = Get_Property_value(swDoc, "质量")
$ H( e, s. J1 B/ ^ xlWs.Range("J" & CurRow).Value = Get_Property_value(swDoc, "创建日期") '重量
* j0 X& c2 a, Y! Q0 g xlWs.Range("K" & CurRow).Value = Get_Property_value(swDoc, "SW-Created Date")
6 C: Y: S* K M1 m. |1 V- }8 F) L& W: V5 v1 Y" P$ u' E' y7 v. v
'*****************************************************************************************
) A9 r- |+ ~" p6 m7 u4 B" J( A6 H2 ~5 v! ^9 m* H9 v
====================================================& K+ c: L0 x- U' O- o
& m- w( D, `" T- g
. S1 v% `* @* O0 T9 ~. I, A/ @3 S5 ^2 M1 m
& z4 a7 c6 r! e |
|
发表于 2018-5-23 17:54:07
