用vba，打開我的電腦d盤wdxx檔案夾下面叫hi555的Excel，并復制sheet名字叫aa的那張sheet，新手，謝謝了
uj5u.com熱心網友回復：
可以只復制其內容，其他的不做任何操作，打開Excel的操作也不要顯示uj5u.com熱心網友回復：
不好意思，是名字帶有aa的作業表uj5u.com熱心網友回復：
寫好了,代碼如下:
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
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
不知程式碼重何開始,就用錄製巨集的方式,操作一下你要的,再慢慢來優化及測一下程式.我是這麼做的.轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35174.html
標籤：VBA
下一篇：精密導線平差程式設計探討