Windows("b.xlsm").Activate

ning84

常用内置对话框参数解读-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum ... amp;_dsign=c3dadaf0

1. Sub ll()
   
2.    Dim Wk As Workbook
   
3.    Dim Sht As Worksheet
   
4.    Dim Rng As Range, oRng As Range
   
5.    Dim Str
   
6.          Windows("b.xlsm").Activate
   
7.         Set Rng = Selection
   
8.         Debug.Print Rng.Address
   
9.         Set Sht = Rng.Parent
   
10.         Set Wk = Sht.Parent
    
11.         Debug.Print Rng.Address, Rng.Parent.Name, Rng.Parent.Parent.Name
    
12.         Set oRng = Sht.Cells(1, "T")
    
13.         Debug.Print oRng.Address, oRng.Column, Rng.Address, Rng.Column
    
14.         
    
15.         Str = Wk.Name & "!" & Sht.Name & "!" & Rng(, oRng.Column - Rng.Column + 1).Resize(Rng.Rows.Count, 1).Address(0, 0)
    
16.         Debug.Print Str
    
17. End Sub
    

复制代码

结果 --- b.xlsm!Sheet1!T14:T24