用VBS语言将excel中不同sheet页的内容保存到不同的excel文件
时间: 2024-05-13 10:16:01 浏览: 8
以下是一个示例代码,可以将一个Excel文件中不同的sheet页内容保存到不同的Excel文件中:
```vbscript
Option Explicit
Dim oExcel, oWorkbook, oSheet, oNewWorkbook
Dim sPath, sFilename, sNewFilename
Dim i
'设置Excel文件路径和名称
sPath = "C:\ExcelFiles\"
sFilename = "MyExcelFile.xlsx"
'创建Excel对象
Set oExcel = CreateObject("Excel.Application")
'打开Excel文件
Set oWorkbook = oExcel.Workbooks.Open(sPath & sFilename)
'循环遍历每个sheet页
For i = 1 To oWorkbook.Sheets.Count
Set oSheet = oWorkbook.Sheets(i)
'创建新的Excel文件
Set oNewWorkbook = oExcel.Workbooks.Add
'将当前sheet页的内容复制到新Excel文件中
oSheet.Copy Before:=oNewWorkbook.Sheets(1)
'设置新Excel文件名称并保存
sNewFilename = Replace(sFilename, ".xlsx", "_" & oSheet.Name & ".xlsx")
oNewWorkbook.SaveAs sPath & sNewFilename
'关闭新Excel文件
oNewWorkbook.Close False
Next
'关闭原Excel文件
oWorkbook.Close False
'关闭Excel对象
oExcel.Quit
Set oExcel = Nothing
```
注意:需要先安装Excel程序,并且将以上代码保存为.vbs文件后执行。同时,需要确保Excel文件中的sheet页名称不包含特殊字符,如空格等。