当工作表名称更改时,从文件夹中已关闭的工作表中复制数据可以通过以下步骤实现:
Sub CopyDataFromClosedWorkbook()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim strSourceFile As String
Dim strSheetName As String
' 设置源文件路径和工作表名称
strSourceFile = "C:\Path\To\Your\File.xlsx"
strSheetName = "Sheet1"
' 打开源工作簿
Set wbSource = Workbooks.Open(strSourceFile)
' 查找源工作表
On Error Resume Next
Set wsSource = wbSource.Sheets(strSheetName)
On Error GoTo 0
If wsSource Is Nothing Then
MsgBox "工作表 " & strSheetName & " 未找到!"
Exit Sub
End If
' 设置目标工作表
Set wsTarget = ThisWorkbook.Sheets("TargetSheet")
' 复制数据
wsSource.Range("A1:B10").Copy Destination:=wsTarget.Range("A1")
' 关闭源工作簿
wbSource.Close SaveChanges:=False
MsgBox "数据复制完成!"
End Sub
pandas
和openpyxl
。pandas
读取已关闭的工作簿。import pandas as pd
# 设置源文件路径和工作表名称
source_file = "C:/Path/To/Your/File.xlsx"
sheet_name = "Sheet1"
# 读取源工作表
source_df = pd.read_excel(source_file, sheet_name=sheet_name)
# 设置目标工作表
target_df = pd.DataFrame()
# 复制数据
target_df = source_df.copy()
# 保存目标工作表
target_df.to_excel("C:/Path/To/Your/TargetFile.xlsx", index=False)
print("数据复制完成!")
通过上述方法和步骤,可以有效解决工作表名称更改时从文件夹中已关闭的工作表中复制数据的问题。
领取专属 10元无门槛券
手把手带您无忧上云