[已解决]一个工作表拆分为多个工作簿

laicaiqian12

laicaiqian12 发表于 2013-10-22 11:02
但问题是我并不是所有的工号都在D2单元格，貌似我测试也能正确命名的？

1. Sub a()
   
2.   Set dig = Application.FileDialog(msoFileDialogFolderPicker)
   
3.   With dig
   
4.     .InitialFileName = ThisWorkbook.Path
   
5.     .InitialView = msoFileDialogViewDetails
   
6.     .Title = "保存"
   
7.      If .Show = 0 Then
   
8.     Exit Sub
   
9.     End If
   
10.   End With
    
11.   Do While Sheets.Count <> 0
    
12.   st = Sheets(1).Name
    
13. For i = 2 To Sheets.Count
    
14. If InStr(Sheets(i).Name, Sheets(1).Name) Then
    
15. st = st & "," & Sheets(i).Name
    
16. End If
    
17. Next
    
18. ar = Split(st, ",")
    
19. If Sheets.Count > UBound(ar) + 1 Then
    
20. Sheets(ar).Move
    
21. ActiveWorkbook.SaveAs dig.SelectedItems.Item(1) & "" & Split(Sheets(1).Range("d2"), "：")(1)
    
22. ActiveWorkbook.Close True
    
23. Else
    
24. ActiveWorkbook.SaveAs dig.SelectedItems.Item(1) & "" & Split(Sheets(1).Range("d2"), "：")(1)
    
25. ActiveWorkbook.Close True
    
26. End If
    
27. Loop
    
28. End Sub
    

复制代码

这里有用到D2单元格，意思是说新生成的文件用对应表格中D2单元格的工号命名么？
但问题是我并不是所有的工号都在D2单元格，貌似我测试也能正确命名的？