执行后，类worksheet 的方法无效，有谁懂得

zqq029

Sub 操作工作薄()
Dim jx As Workbook
Excel.Application.ScreenUpdating = False
Excel.Application.DisplayAlerts = False

Path = ThisWorkbook.Path & "\" & "基础表格\"

Set jx = GetObject(Path & "工作表1.xlsx")

For i = 1 To 2
    jx.Sheets(1).Copy after:=jx.Sheets(jx.Sheets.Count)
Next

Windows(jx.Name).viseble = True
jx.SaveAs Filename:=Path & "工作表.xlsx"
Set jx = Nothing

Excel.Application.ScreenUpdating = True
Excel.Application.dispalyalerts = True
End Sub

liulang0808

Sub 操作工作薄()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Path = ThisWorkbook.Path & "\" & "基础表格\"
    With Workbooks.Open(Path & "工作表1.xlsx")
        For i = 1 To 2
            .Sheets(1).Copy after:=.Sheets(.Sheets.Count)
        Next
        .SaveAs Filename:=Path & "工作表.xlsx"
    End With

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

liulang0808

附件内容供参考。。。。。

半百

zqq029

liulang0808 发表于 2023-3-6 09:38
Sub 操作工作薄()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

你一定要可视化后才可以操作吗？

zqq029

半百 发表于 2023-3-6 10:23

一定要可视化后，才可以吗

liulang0808

zqq029 发表于 2023-3-6 13:02
你一定要可视化后才可以操作吗？

不是必须的，前提是各种拼写需要注意下

半百

zqq029 发表于 2023-3-6 13:03
一定要可视化后，才可以吗

我也不确定，反正我把它拉到上边就可以运行了