用vbs从当前工作簿复制指定内容到一个新建的工作簿里面
时间: 2024-04-30 17:22:36 浏览: 10
以下是用vbs从当前工作簿复制指定内容到一个新建的工作簿的示例代码:
```
Option Explicit
Dim objExcel, objWorkbook, objNewWorkbook, objWorksheet, objNewWorksheet
Dim strCopyRange, strNewWorkbookName, strNewWorksheetName
'要复制的单元格范围
strCopyRange = "A1:B5"
'新工作簿的名称
strNewWorkbookName = "New Workbook.xlsx"
'新工作表的名称
strNewWorksheetName = "New Worksheet"
'创建Excel对象
Set objExcel = CreateObject("Excel.Application")
'设置Excel应用程序不可见
objExcel.Visible = False
'打开当前工作簿
Set objWorkbook = objExcel.Workbooks.Open(WScript.ScriptFullName)
'获取要复制的工作表
Set objWorksheet = objWorkbook.ActiveSheet
'创建一个新的工作簿
Set objNewWorkbook = objExcel.Workbooks.Add
'创建新的工作表
Set objNewWorksheet = objNewWorkbook.Worksheets.Add
'将新工作表重命名
objNewWorksheet.Name = strNewWorksheetName
'将要复制的单元格范围复制到新工作表中
objWorksheet.Range(strCopyRange).Copy objNewWorksheet.Range("A1")
'保存新工作簿
objNewWorkbook.SaveAs objWorkbook.Path & "\" & strNewWorkbookName
'关闭新工作簿
objNewWorkbook.Close
'关闭当前工作簿
objWorkbook.Close
'退出Excel应用程序
objExcel.Quit
'释放对象变量
Set objNewWorksheet = Nothing
Set objNewWorkbook = Nothing
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
```
在使用此代码之前,请确保已经保存了当前工作簿。此外,还需要将要复制的单元格范围、新工作簿的名称和新工作表的名称替换为实际值。