求助大神，EXECL打印结束后保留原有表格的同时，生成同样的格式到指定文件夹中

dnvjfdeuff

求助大神，EXECL打印结束后保留原有表格的同时，生成同样的格式到指定文件夹中，文件格式还是EXCEL

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, strFolder$

    strPath = ThisWorkbook.Path & "\"
    strFolder = strPath & "文件夹\"
    If Dir(strFolder, vbDirectory) = "" Then MkDir strFolder

    Application.ScreenUpdating = False
    ActiveSheet.PrintOut
    strFileName = strFolder & [A1]
    Sheets(1).Copy
    With ActiveWorkbook
        .SaveAs strFileName
        .Close
    End With
    Application.ScreenUpdating = True
End Sub
不知是否这个意思

dnvjfdeuff

gwjkkkkk 发表于 2023-4-14 13:42
Option Explicit
Sub test()
    Dim strFileName$, strPath$, strFolder$

谢谢大神帮助，问题基本解决

gwjkkkkk

dnvjfdeuff 发表于 2023-4-14 16:03
谢谢大神帮助，问题基本解决

如果满意，右下角评分。。。

dnvjfdeuff

gwjkkkkk 发表于 2023-4-14 13:42
Option Explicit
Sub test()
    Dim strFileName$, strPath$, strFolder$

大神如何要拷贝指定区域"a1:i"，同时不能把按钮拷贝新建文件中去，刚才在使用的时候，跳出来未启用宏

gwjkkkkk

请参考。。。