VBA 复制指定工作簿内容到 TEMP.xls 文件

使用 VBA 代码，将当前路径下文件名以 "PT22300" 开头的 Excel 文件中名为 "F-T Plot" 和 "R-T Plot" 的工作表复制到 "TEMP.xls" 文件的 "FT-DATA" 工作表之前。\n\nvba\nSub CopyWorksheets()\n Dim wbSource As Workbook\n Dim wbTarget As Workbook\n Dim wsSource As Worksheet\n Dim wsTarget As Worksheet\n Dim filename As String\n \n ' 获取当前路径\n Dim currentPath As String\n currentPath = ThisWorkbook.Path\n \n ' 遍历当前路径下的所有文件\n filename = Dir(currentPath & "\" & "PT22300*.xls")\n \n ' 打开源文件\n Set wbSource = Workbooks.Open(currentPath & "\" & filename)\n \n ' 打开目标文件\n Set wbTarget = Workbooks.Open(currentPath & "\" & "TEMP.xls")\n \n ' 复制 F-T Plot 工作表\n Set wsSource = wbSource.Sheets("F-T Plot")\n Set wsTarget = wbTarget.Sheets.Add(Before:=wbTarget.Sheets("FT-DATA"))\n wsSource.Copy Before:=wsTarget\n \n ' 复制 R-T Plot 工作表\n Set wsSource = wbSource.Sheets("R-T Plot")\n Set wsTarget = wbTarget.Sheets.Add(Before:=wbTarget.Sheets("FT-DATA"))\n wsSource.Copy Before:=wsTarget\n \n ' 关闭源文件，不保存\n wbSource.Close SaveChanges:=False\n \n ' 保存目标文件\n wbTarget.Save\n \n ' 关闭目标文件\n wbTarget.Close SaveChanges:=True\nEnd Sub\n\n\n请注意，上述代码假设当前路径下只有一个以 "PT22300" 开头的 xls 文件，并且目标文件 TEMP.xls 已存在。如果有多个匹配的文件，或目标文件不存在，可能会出现错误。你可以根据需要进行修改和适应。