Vba 如何编写宏以复制复制数据旁边的日期或文件名列

我试图编写一个宏来打开模板文件的Sheet1中单元格A1:A4中指定的文件路径，并将数据从打开的工作簿复制/粘贴到模板的Sheet2

问题是因为我正在堆叠来自多个文件的数据，我想在数据旁边插入每个文件的日期，例如A列

表1中的单元格B1:B4具有日期

因此，最终结果应该是：

01/01/2017     Apple     Orange     Pear

这可能吗

我的代码尝试：

Sheets("Macro").Select
Range("C6").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Actual").Select 
Range("D2:D18").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 

---

问题是复制的数据将是不同的行，D2:D18 is位是静态的。

这是绝对可能的，您是否尝试在手动执行此操作时录制宏，并检查自动生成的代码以获得起点？工作表（“宏”）。选择。范围（“C6”）。选择Application.CutCopyMode=False Selection。复制工作表（“实际”）。选择范围（“D2:D18”）。选择Selection.Paste特殊粘贴：=XLPasteValue，操作：=xlNone，SkipBlanks:=False，Transpose:=False问题是复制的数据将是不同的行，D2:D18位是静态的。您的代码应该回答以下问题：在注释中通常太难理解。这是绝对可能的，您是否尝试在手动执行此操作时录制宏，并检查自动生成的代码以获取起点？工作表（“宏”）。选择。范围（“C6”）。选择Application.CutCopyMode=False Selection。复制工作表（“实际”）。选择范围（“D2:D18”）。选择Selection.Paste特殊粘贴：=XLPasteValue，操作：=xlNone，SkipBlanks:=False，Transpose:=False问题是复制的数据将是不同的行，D2:D18位是静态的。您的代码应该回答以下问题：在注释中通常太难理解。