求老师指导帮忙编制个VBA码，固定区域以名称另存为新表

北落的太阳

          想把固定区域的表格，固定格式，以公司名称另外路径到桌面，新建一个以公司名称的工作簿

北落的太阳

求老师们指导下，麻烦老师了

Chip_Kenny

可以試試:

1. Sub zz()
   
2. Dim p$
   
3. If Len([b5]) Then
   
4.     p = [b5].Value
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Pattern = "[<>:/\|\?\*\""]+|\.{2}"
   
7.         If .test(p) Then MsgBox "Not allow character " & .Execute(p)(0): End
   
8.     End With
   
9.     p = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & p
   
10.     'or
    
11.     'p = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & p
    
12.     ActiveSheet.Copy
    
13.     With ActiveSheet
    
14.         For Each b In .Buttons
    
15.             b.Delete
    
16.         Next
    
17.         Range([e1], [a1].SpecialCells(11)).EntireColumn.Delete
    
18.     End With
    
19.     ActiveWorkbook.SaveAs p
    
20. End If
    
21. End Sub

复制代码

Chip_Kenny

顯示有bug, 請看圖:

北落的太阳

Chip_Kenny 发表于 2018-8-30 10:41
顯示有bug, 請看圖:

谢谢老师指导，我试试

北落的太阳

Chip_Kenny 发表于 2018-8-30 10:41
顯示有bug, 請看圖:

不行，没成功啊，老师，哪里错了，版本的问题吗？

Chip_Kenny

跟圖片打一吧, 已經說了論壇顯示的代碼有bug

北落的太阳

Chip_Kenny 发表于 2018-8-30 14:14
跟圖片打一吧, 已經說了論壇顯示的代碼有bug

明白了，谢谢老师

北落的太阳

Chip_Kenny 发表于 2018-8-30 10:41
顯示有bug, 請看圖:

   老师，不行啊，还是有问题

北落的太阳

Chip_Kenny 发表于 2018-8-30 14:14
跟圖片打一吧, 已經說了論壇顯示的代碼有bug

好了，字母写错了，麻烦了，老师谢谢啊