Question

也许这可能真的很容易构建，但我无法在论坛上找到，也许我只是缺少关键字或sintax。简单的数据输入过程，我得到了一个主文件（它是来自不同位置的报告概述），其中我从大约16个不同的报告中复制粘贴单元格。像这样的东西

Workbooks.Open Filename:="E:\TARANTO.xlsx"
Range("D29").Select
Selection.Copy
Windows("Overview weekly reports.xlsm").Activate
Sheets("n").Select
ActiveCell.Offset(3, 14).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Windows("TARANTO.xlsx").Activate
ActiveCell.Offset(-1, 1).Range("A1").Select
Selection.Copy
Windows("Overview figures from ASTs weekly reports.xlsm").Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Windows("TARANTO.xlsx").Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
Windows("Overview figures from ASTs weekly reports.xlsm").Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
'' and so on

我想要的是将报告的文件名复制到单元格中，理想情况下将其添加到偏移周期，就像复制另一个单元格一样。结果将是例如：

TARANTO 3 4 8 9

CROTONE 6 9 4 4

ETC。

不幸的是，在表单内的任何单元格中都没有提到位置，我需要每次都准确地获取文件名。我也试过录音，但当我尝试手动复制文件名时，当然没有动作出现在VBE上。请任何帮助将非常感谢。祝你有个美好的一天！

Answer 1

要获取可以使用的活动工作簿的名称：

Activeworkbook.Name

将此内容写入一个单元格中：

Range("A1").value = Activeworkbook.Name

这会将文件名（包括扩展名）输入到单元格中。

Excel宏 - 在自动化数据输入过程中复制/粘贴文件名

1 个答案: