我有一份在线报告,下载后会自动打开为 *.csv 文件。然后我打开另一个包含各种宏的 Excel 工作簿,并希望将整个下载的工作表 (sheet1) 复制到我的主工作簿作为新工作表或名为“DATA”的现有空白工作表。
我的问题是引用打开的下载表,因为每次下载的名称都不同。我的偏好是不保存下载的工作簿然后复制,因为我完成后只是删除文件。
任何有关引用下载文件和激活它的帮助将不胜感激。
我一直在想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