[已解决]如何把一个工作薄中的一个工作表放置到另一个工作薄的工作表里？求助

mqvh

如何把一个工作薄中的一个工作表放置到另一个工作薄的工作表里？求助


Sub t()
Dim From_Copy_St   As Worksheet
Dim To_Copy_St   As Worksheet

Set From_Copy_St = Workbooks("from表").Sheets("财务表格")
Set To_Copy_St = Workbooks("to表").Sheets(1)
  From_Copy_St.Copy After:=To_Copy_St
  ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-29 17:50

1. Sub TEST2()  '复制表到另一个工作簿(带宏)
   
2.     Set From_Copy_St = ThisWorkbook.Sheets("财务表格")
   
3.     TOPath = ThisWorkbook.Path & ""
   
4.     TOFile = "to表.xlsx"
   
5.     Set To_Copy_St = Workbooks.Open(TOPath & TOFile)
   
6.     From_Copy_St.Copy After:=To_Copy_St.Sheets("sheet1")
   
7.     ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled
   
8.     To_Copy_St.Close True
   
9. End Sub

复制代码

跳转到最佳答案楼层

zjdh

1. Sub TEST()
   
2.     Set From_Copy_St = ThisWorkbook.Sheets("财务表格")
   
3.     TOPath = ThisWorkbook.Path & ""
   
4.     TOFile = "to表.xlsx"
   
5.     Set To_Copy_St = Workbooks.Open(TOPath & TOFile)
   
6.     From_Copy_St.Cells.Copy To_Copy_St.Sheets(1).Range("A1")
   
7.     To_Copy_St.Close True
   
8. End Sub

复制代码

mqvh

zjdh 发表于 2012-2-29 15:13

这样是通过单元格复制粘贴 我希望直接复制工作表 ，因为工作表里面有 宏 ，如果通过你的方法 宏将无法复制过去！

zjdh

1. Sub TEST2()  '复制表到另一个工作簿(带宏)
   
2.     Set From_Copy_St = ThisWorkbook.Sheets("财务表格")
   
3.     TOPath = ThisWorkbook.Path & ""
   
4.     TOFile = "to表.xlsx"
   
5.     Set To_Copy_St = Workbooks.Open(TOPath & TOFile)
   
6.     From_Copy_St.Copy After:=To_Copy_St.Sheets("sheet1")
   
7.     ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled
   
8.     To_Copy_St.Close True
   
9. End Sub

复制代码

zjdh 发表于 2012-2-29 17:50

我也遇到同样的问题，但我用了楼上的代码之后，显示变量未定义，From_copy_st与To_copy_st这两个说变量未定义，麻烦问一下这个具体如何应用，要怎样确定这两个变量，或者帮我解释一下这个变量的意思。谢谢~！

zjdh

那是可能你的系统问题或有限定语句，只要在宏的开头定义一下变量即可：
Dim From_Copy_St   As Worksheet
Dim To_Copy_St   As Worksheet