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

北落的太阳

Sub zz()
Dim p$
If Len([b5]) Then
p = [b5].Value
With CreateObject("vbscript.regexp")
    .Pattern = "[<>:/\|\?\*\\""]+|\.{2}"
    If .test(p) Then MsgBox "Not allow character" & .Execute(p)(0): End
End With
p = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & p
'or
'p = Createobject("WScript.Shell").SpecialFolders("Desktop") & "" & p
    ActiveSheet.Copy
    With ActiveSheet
        For Each b In .Buttons
            b.Delete
        Next
        Range([e1], [a1].SpecialCells(11)).EntireColumn.Delete
    End With
    ActiveWorkbook.SaveAs p
End If
End Sub

北落的太阳

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

      点击保存后，原表单的右边就没有了，这个是怎么回事？  

Chip_Kenny

把不需要的 remark 或刪除吧
Sub zz()
Dim p$
If Len([b5]) Then
&#160; &#160; p = [b5].Value
&#160; &#160; With CreateObject("vbscript.regexp")
&#160; &#160;&#160; &#160;&#160;&#160;.Pattern = "[<>:/\|\?\*\""]+|\.{2}"
&#160; &#160;&#160; &#160;&#160;&#160;If .test(p) Then MsgBox "Not allow character " & .Execute(p)(0): End
&#160; &#160; End With
&#160; &#160; p = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & p
&#160; &#160; 'or
&#160; &#160; 'p = Environ("USERPROFILE") & "\Desktop" & "\" & p
&#160; &#160; ActiveSheet.Copy
&#160; &#160; With ActiveSheet
&#160; &#160;&#160; &#160;&#160;&#160;For Each b In .Buttons
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;b.Delete
&#160; &#160;&#160; &#160;&#160;&#160;Next
&#160; &#160;&#160; &#160;&#160;&#160;rem Range([e1], [a1].SpecialCells(11)).EntireColumn.Delete
&#160; &#160; End With
&#160; &#160; ActiveWorkbook.SaveAs p
End If
End Sub

Chip_Kenny

直接copy過來又見bug, 把所有 &#160; &#160; 刪除吧。

北落的太阳

Chip_Kenny 发表于 2018-9-1 10:50
直接copy過來又見bug, 把所有 &#160; &#160; 刪除吧。

点击保存，就少了右半边，还是不行啊，老师

Chip_Kenny

將以下代碼刪了吧；

1. With ActiveSheet
   
2.         For Each b In .Buttons
   
3.             b.Delete
   
4.         Next
   
5.         Range([e1], [a1].SpecialCells(11)).EntireColumn.Delete
   
6. End With

复制代码

北落的太阳

Chip_Kenny 发表于 2018-9-1 11:21
將以下代碼刪了吧；

老师棒棒哒  。谢谢老师