[已解决]这段代码如何修改inputbox保存只显示一次

h486

这段代码如何修改插入inputbox框保存只显示一次，如果没填写inputbox框（即点取消），保存为工资+年月日（如工资20131215）。请高手和老师赐教。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-12-15 10:42

Sub test()
    PT = InputBox("请输入新文件名称", "文件名设置")
    If PT = "" Then PT = "工资" & Format(Date, "YYYYMMDD")
    FL = ThisWorkbook.Path & "\太阳\" & PT & ".XLS"
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each ms In .Sheets(1).Shapes
            If ms.Type = 8 Then ms.Delete
        Next ms
        .SaveAs FL
        .Close
    End With
End Sub

跳转到最佳答案楼层

zjdh

Sub test()
    PT = InputBox("请输入新文件名称", "文件名设置")
    If PT = "" Then PT = "工资" & Format(Date, "YYYYMMDD")
    FL = ThisWorkbook.Path & "\太阳\" & PT & ".XLS"
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each ms In .Sheets(1).Shapes
            If ms.Type = 8 Then ms.Delete
        Next ms
        .SaveAs FL
        .Close
    End With
End Sub

h486

可以用，就是变量没声明，2个句子用1个循环解决问题，非常强大。