从活动工作表导出数据

时间:2017-08-25 12:51:49

标签: excel vba export

我制作了一个excel工作簿,其中单个工作表作为最终用户的模板。工作簿将保存并退出基于3个单元格值创建的文件名。我可以使此工作簿模板自动将某些数据导出到另一个工作簿吗?另外一点是,新导出的数据是否可以自动新行将数据插入工作簿/工作表目的地?我已检查相关的excel论坛,发现代码必须有一个文件名来导出数据,我坚持下去。这里是我尝试过的代码:

Sub ExportData()

Sheets("Master").Range("C95").Copy Destination:=Sheets("Summary").Range("B9")
Sheets("Master").Range("E97").Copy Destination:=Sheets("Summary").Range("C9")
Sheets("Master").Range("T9").Copy Destination:=Sheets("Summary").Range("D9")
Sheets("Master").Range("T11").Copy Destination:=Sheets("Summary").Range("E9")
Sheets("Master").Range("E15").Copy Destination:=Sheets("Summary").Range("F9")
x.Close
End Sub

-----------(我试过的其他代码)--------------------------- -----

Sub ExportData()
Dim x As Workbook
Dim s As Workbook

Set x = Workbooks.Open("Template")
Set s = Workbooks.Open("Summary Report")

s.Sheets("Summary").Range("C95").Value = x.Sheets("Master").Range("B9")
s.Sheets("Summary").Range("E97").Value = x.Sheets("Master").Range("C9")
s.Sheets("Summary").Range("T9").Value = x.Sheets("Master").Range("D9") 
s.Sheets("Summary").Range("T11").Value = x.Sheets("Master").Range("E9") 
s.Sheets("Summary").Range("E15").Value = x.Sheets("Master").Range("F9")
x.Close
End Sub

0 个答案:

没有答案