用VBA 生成一个批量将EXCEL文件里的工作表“打分模板”插入到另个EXCEL里的代码
时间: 2023-04-05 20:01:50 浏览: 91
可以使用以下代码实现:
Sub CopySheet()
Dim wbSource As Workbook
Dim wbTarget As Workbook
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
'打开源文件
Set wbSource = Workbooks.Open("C:\Source.xlsx")
'打开目标文件
Set wbTarget = Workbooks.Open("C:\Target.xlsx")
'复制源文件中的“打分模板”工作表到目标文件中
Set wsSource = wbSource.Worksheets("打分模板")
Set wsTarget = wbTarget.Worksheets.Add
wsSource.Copy Before:=wsTarget
wsTarget.Name = "打分模板"
'关闭文件
wbSource.Close SaveChanges:=False
wbTarget.Close SaveChanges:=True
End Sub
相关问题
用VBA 生成一个批量将EXCEL文件里的工作表“打分模板”插入到另个EXCEL里并改名字的代码
你可以使用以下的 VBA 代码来实现这个功能:
Sub CopySheets()
Dim sourceBook As Workbook
Dim targetBook As Workbook
Dim sheet As Worksheet
'打开源文件
Set sourceBook = Workbooks.Open("C:\source.xlsx")
'打开目标文件
Set targetBook = Workbooks.Open("C:\target.xlsx")
'循环复制工作表
For Each sheet In sourceBook.Worksheets
If sheet.Name = "打分模板" Then
sheet.Copy After:=targetBook.Sheets(targetBook.Sheets.Count)
targetBook.Sheets(targetBook.Sheets.Count).Name = "新名称"
End If
Next sheet
'关闭文件
sourceBook.Close
targetBook.Close
End Sub
这个代码会打开两个 Excel 文件,然后循环复制源文件中的“打分模板”工作表到目标文件中,并将其重命名为“新名称”。你可以根据需要修改文件路径和工作表名称。
用VBA 生成一个将多个EXCEL文件里的工作表“打分模板”插入的代码
可以使用以下VBA代码将多个Excel文件中的工作表“打分模板”插入到当前工作簿中:
Sub InsertScoreTemplate()
Dim wb As Workbook
Dim ws As Worksheet
Dim filePath As String
Dim fileName As String
'打开多个Excel文件
filePath = "C:\ExcelFiles\"
fileName = Dir(filePath & "*.xlsx")
Do While fileName <> ""
Set wb = Workbooks.Open(filePath & fileName)
'复制“打分模板”工作表
Set ws = wb.Sheets("打分模板")
ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
wb.Close False
fileName = Dir
Loop
End Sub