我有在网上找到汇出excel可转出来都是 特征的请问如何变成是尺寸@@一直搞不懂0..0Private Sub CommandButton1_Click()On Error GoTo abc:Dim app As Object Set app = CreateObject("pcdlrn.application")Dim part As Object Set part = app.ActivePartProgramDim cmds As Object Set cmds = part.C