用vba，打开我的电脑d盘wdxx文件夹下面叫hi555的Excel，并复制sheet名字叫aa的那张sheet，新手，谢谢了

[qq_44877057]

用vba，打开我的电脑d盘wdxx文件夹下面叫hi555的Excel，并复制sheet名字叫aa的那张sheet，新手，谢谢了

[qq_44877057]

可以只复制其内容，其他的不做任何操作，打开Excel的操作也不要显示

[qq_44877057]

不好意思，是名字带有aa的工作表

[milaoshu1020]

写好了,代码如下:

Sub test()
    Dim wb As Workbook
    Set wb = Application.Workbooks.Open("d:\wdxx\hi555.xlsx")
    
    Dim sht As Worksheet
    For Each sht In wb.Worksheets
        If InStr(sht.Name, "aa") > 0 Then
            sht.Cells.Copy
            
            Dim sht2 As Worksheet
            Set sht2 = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            
            sht2.Name = sht.Name
            sht2.Cells.PasteSpecial
            
            Application.CutCopyMode = False
        End If
    Next
    
    wb.Close
End Sub

运行示例:


下载地址:
链接：https://pan.baidu.com/s/1zERGOXPclUPHNAifLQgtYA
提取码：j0de

[weixin_44920881]

[joehyn66]

不知程式碼重何開始,就用錄製巨集的方式,操作一下你要的,再慢慢來優化及測一下程式.我是這麼做的.