我有多张床单,我想经常下载 . 问题是工作表位于特定文件夹中,通过按钮我想选择文件并将表中的特定值上传到主表 . 需要将不同工作表的值放在根据日期和行( Headers )指定的不同列/行中 .
例如
Descr. Jan15 Feb15 Mar15 Apr15
A 50 100
B 70 20
C 60 50
有人可以帮我解决问题吗?
附上我目前使用的代码:
Sub Enterknop()Dim Report As Sheet1 Dim Bron As Sheet1 Set Report = Sheets(“Report”)
'**************************************
'Process Report 1
'**************************************
R1 = Report.Cells(37, 4)
Workbooks.Open Filename:=R1
Set Bron = Active.Sheets(1)
Range("A1:AO28").Select
Selection.Cut
Application.CutCopyMode = False
Selection.Copy
Windows("Main Sheet_Business.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Windows("TOP25.xls").Activate
ActiveWindow.Close
结束子