将数据从Web插入Excel工作表 - VBA

Question

我需要将来自web的xls文件中的数据插入到我当前打开的工作簿中。问题是如果我多次运行这个宏，它总是创建新的表。理想情况下，我想删除旧内容，并将其替换为同一张纸上的新内容。有可能的？这是我的代码

Sub downloadData()

Dim wkbMyWorkbook As Workbook
Dim wkbWebWorkbook As Workbook
Dim wksWebWorkSheet As Worksheet
Dim currentDate As Date

Set wkbMyWorkbook = ActiveWorkbook

currentDate = Date

Workbooks.Open ("https://www.somewebpage.com/file.xls")

Set wkbWebWorkbook = ActiveWorkbook
Set wksWebWorkSheet = ActiveSheet

wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count)

wkbMyWorkbook.Activate
wkbWebWorkbook.Close

End Sub

Answer 1

假设从网络转储的工作表始终是工作簿中的最后一个工作表，请使用以下行：

Application.DisplayAlerts = False
wkbMyWorkbook.Worksheets(wkbMyWorkbook.Worksheets.Count).Delete
Application.DisplayAlerts = True

复制新表之前。