Join(Xls.WorksheetFunction.Transpose(Rng)

ning84

1. Private Sub del20170529()
   
2. 
   
3.    
   
4.     Dim Xls As Excel.Application, Rng As Range
   
5.         Set Xls = GetObject(, "Excel.Application")
   
6.         Set Rng = Xls.Selection
   
7.     Dim Arr, Str1
   
8.         Str1 = Join(Xls.WorksheetFunction.Transpose(Rng), ",")
   
9. 
   
10.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
    
11.         Set SwApp = Application.SldWorks
    
12.         Set SwModel = SwApp.ActiveDoc
    
13.     Dim SwDraw As DrawingDoc
    
14.         Set SwDraw = SwModel
    
15.     Dim SwDispDim As DisplayDimension, SwDim As Dimension
    
16.     Dim Anns, SwAnn As Annotation
    
17.         Anns = SwDraw.InsertModelAnnotations3(0, swInsertDimensionsMarkedForDrawing, True, True, True, False)
    
18.     Dim SwView As View, Str
    
19.         Set SwView = SwDraw.GetFirstView
    
20.         Set SwView = SwView.GetNextView
    
21.         Do While Not SwView Is Nothing
    
22.              Set SwAnn = SwView.GetFirstAnnotation
    
23.              Do While Not SwAnn Is Nothing
    
24.                   Set SwDispDim = SwAnn.GetSpecificAnnotation
    
25.                   Str = SwDispDim.GetDimension.FullName
    
26.                   ''
    
27.                   Str = Left(Str, InStrRev(Str, ".") - 1) & "@" & SwView.Name
    
28.                   If InStr(Str1, Str) = 0 Then
    
29.                       'SwAnn.Select True
    
30.                       SwAnn.Visible = swAnnotationHidden
    
31.                   End If
    
32.                   
    
33.                   Set SwAnn = SwAnn.GetNext2
    
34.              Loop
    
35.              Set SwView = SwView.GetNextView
    
36.         Loop
    
37.         Stop
    
38. End Sub
    

复制代码

'***************

zax010

Set Rng = Xls.Selection

没有工作表名称。