![]() SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Copy This example copies worksheets Sheet1, Sheet2, and Sheet4 to a new blank workbook, and then saves and closes the new workbook. SaveAs Filename:=Environ("TEMP") & "\New1.xlsx", FileFormat:=xlOpenXMLWorkbook This example first copies Sheet1 to a new blank workbook, and then saves and closes the new workbook. Worksheets("Sheet1").Copy After:=Worksheets("Sheet3") This example copies Sheet1, placing the copy after Sheet3. Source and Destination must be in the same Excel.Application instance, otherwise it will raise a runtime error '1004': No such interface supported, if something like Sheet1.Copy objWb.Sheets(1) was used, or a runtime error '1004': Copy method of Worksheet class failed, if something like ThisWorkbook.Worksheets("Sheet1").Copy objWb.Sheets(1) was used. If the copied worksheet held a worksheet code sheet in a VBA project, that is also carried into the new workbook.Īn array selection of multiple worksheets can be copied to a new blank Workbook object in a similar manner. The single worksheet retains the Name and CodeName properties of the source worksheet. The newly created workbook holds the Application.ActiveWorkbook property and contains a single worksheet. If you don't specify either Before or After, Microsoft Excel creates a new workbook that contains the copied Worksheet object. You cannot specify After if you specify Before. ![]() The sheet after which the copied sheet will be placed. You cannot specify Before if you specify After. ![]() The sheet before which the copied sheet will be placed. SyntaxĮxpression A variable that represents a Worksheet object. Copies the sheet to another location in the current workbook or a new workbook. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |