Question

我有一个在线报告，当下载时自动打开为* .csv文件。然后我打开另一个包含各种宏的Excel工作簿，并希望将整个下载的工作表（sheet1）复制到我的主工作簿上，作为新工作表或复制到名为＆＃34; DATA＆＃34;的现有空白工作表。

我的问题是引用打开的下载工作表，因为每次下载时名称都不同。我的首选是不保存下载的工作簿，然后复制，因为我只是在完成后删除文件。

任何有关引用下载文件并激活它的帮助都将不胜感激。

Answer 1

我今天一直在考虑Application.RecentFiles，并想知道它是否适用于此。假设csv是最近打开的文件，即它位于Home＆gt; Recent list的顶部：

Sub ActivateMostRecentOpened()
Dim WbName As String

With Application
    WbName = Workbooks(.RecentFiles(1).Name, InStrRev(.RecentFiles(1).Name, .PathSeparator) + 1).Activate
End With
End Sub

从另一个打开的工作簿引用工作簿/工作表

1 个答案: