急求帮忙！auto_open+二级循环，恳请各位老师帮忙！非常感谢！

tczone

Dear :
          非常感谢您的关注，首先附件中要实现的是一个利用“加载项”循环删除另一工作薄指定行的程序：
在auto_open的工作簿，“客户名称”sheet之外的所有工作表中，客户名所在列上，DELETE除指定客户名的行。运行程序上没有出现中断，但是就是只能删除其中一个工作表中内容，衷心请求帮忙！谢谢！

以下是代码源：

Dim AR, R1&, a&, S1 As Range, n As String
Sub auto_open()
  
    Dim mCaidan As Menu
    MenuBars(xlWorksheet).Reset
    Set mCaidan = MenuBars(xlWorksheet).Menus.Add("system")
    With mCaidan.MenuItems
        .Add "循环工作表", "循环工作表"
    End With
End Sub
Sub 循环工作表()
On Error Resume Next
n$ = ActiveWorkbook.Name
n = Sheets("客户名称").[a1].Value
For Each sh In Workbooks("n$").Sheets
    If sh.Name <> "客户名称" Then
    sh.Activate
    Call 删除指定内容
End If
Next
End Sub

Sub 删除指定内容()
R1 = Cells(Rows.Count, 2).End(xlUp).Row
   AR = Cells(1, 2).Resize(R1)
   For a = 5 To R1
   If AR(a, 1) <> n Then
   If S1 Is Nothing Then
   Set S1 = Rows(a).EntireRow
  Else
   Set S1 = Union(S1, Rows(a).EntireRow)
   End If
   End If
   Next
   If Not S1 Is Nothing Then S1.Delete: Set S1 = Nothing
[a1].Select
End Sub

蓝桥玄霜

重复发帖了。没有附件不能测试代码。

tczone

老师，您好！请查收附件！非常感谢！

mineshine

仅供参考

1. 
   
2. Dim AR, R1&, a&, S1 As Range, n As String, WB As Workbook
   
3. Sub auto_open()
   
4.      Dim mCaidan As Menu
   
5.      MenuBars(xlWorksheet).Reset
   
6.      Set mCaidan = MenuBars(xlWorksheet).Menus.Add("system")
   
7.      With mCaidan.MenuItems
   
8.          .Add "循环工作表", "循环工作表"
   
9.      End With
   
10. End Sub
    
11. 
    
12. 
    
13. Sub 循环工作表()
    
14. On Error Resume Next
    
15. Set WB = Workbooks("test--.xlsx")
    
16. 'n$ = ActiveWorkbook.Name
    
17. n = WB.Sheets("客户名称").[a1].Value
    
18. For Each sh In WB.Sheets
    
19.       If sh.Name <> "客户名称" Then
    
20.         sh.Activate
    
21.         Call 删除指定内容
    
22.     End If
    
23. Next sh
    
24. End Sub
    
25. 
    
26. 
    
27. Sub 删除指定内容()
    
28. R1 = Cells(Rows.Count, 2).End(xlUp).Row
    
29. AR = Cells(1, 2).Resize(R1)
    
30. For a = R1 To 5 Step -1
    
31.     If AR(a, 1) <> n Then
    
32.         If S1 Is Nothing Then
    
33.             Set S1 = Rows(a).EntireRow
    
34.             S1.Delete
    
35.         Else
    
36.             Set S1 = Union(S1, Rows(a).EntireRow)
    
37.         End If
    
38.     End If
    
39. Next a
    
40. [a1].Select
    
41. End Sub
    

复制代码

tczone

老师，您好！谢谢您的帮忙，但是如果限定了Set WB = Workbooks("test--.xlsx")
那每一次的文件名都要作出修改，我本意就是不想修改被加载的文件名。

mineshine

tczone 发表于 2013-8-30 12:48
老师，您好！谢谢您的帮忙，但是如果限定了Set WB = Workbooks("test--.xlsx")
那每一次的文件名都要作出修 ...

你的代码是写在另一个文件
要刪除特定文件的内容

如果同时有多个Excel文件开启
不指定如何知道要刪哪个文件内容?
如果依你原来的代码，只会在代码所在Excel文件运作。

tczone

mineshine 发表于 2013-8-30 13:26
你的代码是写在另一个文件
要刪除特定文件的内容

"n$ = ActiveWorkbook.Name
For Each sh In Workbooks("n$").Sheets”
您好！我源代码里用了上述的语句定位了被加载的文件，这样写会实现我想要的效果吗？

tczone

蓝桥玄霜 发表于 2013-8-30 09:56
重复发帖了。没有附件不能测试代码。

老师，您好！请查收附件！非常感谢！
test.zip

mineshine

tczone 发表于 2013-8-30 13:38
"n$ = ActiveWorkbook.Name
For Each sh In Workbooks("n$").Sheets”
您好！我源代码里用了上述的语句 ...

你可以在源代码下，按F8逐步执行，
可以看到
n$ = ActiveWorkbook.Name
加载后得到的文件是哪一个

tczone

mineshine 发表于 2013-8-30 13:43
你可以在源代码下，按F8逐步执行，
可以看到
n$ = ActiveWorkbook.Name

您好！在源代码指向的是test--的文件哦，请求老师再帮忙分析一下！谢谢了！