Excel 移动由宏创建的文件

Excel 移动由宏创建的文件,excel,vba,Excel,Vba,我有一个宏文件,打开时将创建一个文件并保存在文件夹中 我已经创建了另一个宏来打开上面的宏文件 我这里的问题是将上述宏创建的文件移动到其他文件夹 请帮忙 下面是我的代码: Sub fcr_macro() Dim wb As Workbook Dim clname, compname As String clname = Range("D2").Value compname = Range("D3").Value Set wb = Workbooks

我有一个宏文件,打开时将创建一个文件并保存在文件夹中

我已经创建了另一个宏来打开上面的宏文件

我这里的问题是将上述宏创建的文件移动到其他文件夹

请帮忙

下面是我的代码:

    Sub fcr_macro()

    Dim wb As Workbook
    Dim clname, compname As String
    clname = Range("D2").Value
    compname = Range("D3").Value
    Set wb = Workbooks.Open(filename)

    wb.Close
    End Sub
再多描述一下:

代码行:

    Set wb = Workbooks.Open(filename) 
将打开包含宏的文件。该宏将在文件夹中创建一个文件

我希望将上述宏创建的此文件移动到目标文件夹。我希望在上面的代码中实现这一点

请注意:由于某些问题,无法更改文件打开时运行的宏

你能解释一下吗


谢谢

不。。。这无助于。。。由于文件是在运行时创建的,每次运行宏时新文件的文件名可能不同。您只需将
“D:\destination…”
更改为
filename
即可复制文件。然后你会说
Kill“C:\source\…”
来有效地“移动”它。但是,如果您单击我的第一条评论,它是指向一个站点的链接,该站点具有多个您可以使用的功能,其中一个功能名为
将某些文件移动到\u New\u Folder()
难道您的代码不知道文件名吗?如果您知道宏将把文件转储到的文件夹,您可以通过在该文件夹中查找最近创建的文件来确定其名称。有关在VBA中确定最近创建的文件的示例,请参见。这是一个不太理想的解决方案,但如果您不能更改遗留宏,它应该是一个合理的解决方案。