求老师帮忙修改附件导出指定地址的EXCEL数据

天真无鞋

求老师帮忙修改附件文件导出指定地址的EXCEL数据，详见附件，代码在模块1
1、原始表格有公式、插入批注、包括导出数据按钮；
2、导出数据为EXCEL存数据，不含公式、插入批注、按钮；
3、导出数据可以设置指定的导出文件地址、可命名文件名称；





Sub test()
    Dim mysht As Worksheet
    Dim mybook  As String
    Dim Str$
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    Path = "C:\Users\Administrator\Desktop\253" '导出地址
    mybook = "NSR" '导出文件命名
   
    Str = "表1*表2" '需导出的文件命名
    For j = 0 To 1
        Worksheets(Split(Str, "*")(j)).Copy
        
        With ActiveWorkbook
            ActiveWorkbook.SaveAs Path & mybook & Split(Str, "*")(j) & ".xlsx"
            ActiveWorkbook.Close
        End With
    Next j
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "OK"
End Sub

quqiyuan

供参考

quqiyuan

这个复制值，没有公式。。等等那些，利用数组复制，格式也稍微处理了一下，跟源表做的差不多

天真无鞋

quqiyuan 发表于 2024-5-15 23:30
这个复制值，没有公式。。等等那些，利用数组复制，格式也稍微处理了一下，跟源表做的差不多

谢谢老师，非常因我要导入到网盘地址，引用了那后面代码

天真无鞋

quqiyuan 发表于 2024-5-15 23:30
这个复制值，没有公式。。等等那些，利用数组复制，格式也稍微处理了一下，跟源表做的差不多

老师，代码做了修改，有时候会报错是什么原因，谢谢！注:前面代码是导入到指定网盘地址。

天真无鞋

天真无鞋 发表于 2024-5-17 10:09
老师，代码做了修改，有时候会报错是什么原因，谢谢！注:前面代码是导入到指定网盘地址。

自已失误了引用表多了一个空