|
经典图书 谁能贴个输出自定义属性值的代码?
再给出BOM输出到EXCEL的代码,谢谢!!
可以参考
Private Sub ShowFolderComment(folder As IEdmFolder5)! _/ R/ v( y* i) t( T
On Error GoTo ErrHand' i& P8 p6 o! Z; F# ?6 ?
Dim varEnum As IEdmEnumeratorVariable5
Set varEnum = folder
Dim value As Variant
If varEnum.GetVar("comment", "", value) Then
MsgBox value
Else
MsgBox ""+ J- u6 `8 n& ?8 J
End If3 {& W$ o& r' f, V
Exit Sub 9 o1 ~! J4 U; n+ E2 S3 Y& ]: d
ErrHand:) S& S. ?% [) C$ h0 _, p
Dim ename As String% }5 J; C. w$ X. n0 a* e
Dim edesc As String. F( e% q1 J' U4 H
folder.vault.GetErrorString Err.Number, ename, edesc) S }! G- p1 k4 m4 R
MsgBox ename + vbLf + edesc9 X6 ^; |) M# G+ Q+ _0 O) ~1 b
End Sub |
|