vba-編程常見(jiàn)實(shí)例-資料下載頁(yè)
2025-07-26 10:44本頁(yè)面
【正文】 i=1 39。開(kāi)始文件檢索 For Each vrtSelectedItem 39。打開(kāi)被合并工作簿 Dim tempwb As Workbook Set tempwb=(vrtSelectedItem) 39。復(fù)制工作表 (1).Copy Before:=(i) 39。把新工作簿的工作表名字改成被復(fù)制工作簿文件名，這兒應(yīng)用于xls文件，即Excel972003的文件， 如果是Excel2007，需要改成xlsx (i).Name=(,.xls,) 39。關(guān)閉被合并工作簿 SaveChanges:=False i=i+1 Next vrtSelectedItem End If End With Set fd=NothingEnd Sub 將含有多個(gè)sheet的工作表內(nèi)容信息匯總至一個(gè)sheet中Sub Combine()Dim J As IntegerOn Error Resume NextSheets(1).SelectSheets(1).Name = CombinedSheets(2).ActivateRange(A1). Destination:=Sheets(1).Range(A1)For J = 2 To Sheets(J).ActivateRange(A1).Select(1, 0).Resize( 1).Select Destination:=Sheets(1).Range(A65536).End(xlUp)(2)NextEnd Sub
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1