0

我有一份在线报告,下载后会自动打开为 *.csv 文件。然后我打开另一个包含各种宏的 Excel 工作簿,并希望将整个下载的工作表 (sheet1) 复制到我的主工作簿作为新工作表或名为“DATA”的现有空白工作表。

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

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

4

1 回答 1

0

我一直在想Application.RecentFiles今天,想知道它是否可以在这里工作。假设 csv 是最近打开的文件,即它位于 Home>Recent 列表的顶部:

Sub ActivateMostRecentOpened()
Dim WbName As String

With Application
    WbName = Workbooks(.RecentFiles(1).Name, InStrRev(.RecentFiles(1).Name, .PathSeparator) + 1).Activate
End With
End Sub
于 2013-08-14T20:25:01.343 回答