VBA导出代码修改

天真无鞋

求助老师帮忙修改附件VBA代码，EXCEL带有公式、插入批注、按钮的EXCEL表格，利用EXCEL VBA导出EXCEL存数据，详见附件。

ykcbf1100

附件供参考。

路径你自己改一下吧。

ykcbf1100

已回复，正在审核中。。。

天真无鞋

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

有那个老师能否帮忙看看此代码怎么修改，导出数据不含公式和按钮。

天真无鞋

今晚怎么审核这么慢

山菊花

天真无鞋 发表于 2024-4-28 21:45
今晚怎么审核这么慢

今晚有朋友来家里聊天，耽搁审核了，抱歉。

天真无鞋

山菊花 发表于 2024-4-28 22:30
今晚有朋友来家里聊天，耽搁审核了，抱歉。

版主辛苦啦