从网页插入数据到Excel表格 – VBA

我需要从Web上的xls文件插入数据到我当前打开的工作簿。 问题是，如果我运行这个macros几次，它总是创build新的工作表。 理想情况下，我想删除旧内容，并用同一张表上的新内容replace它。 有可能的？ 这是我的代码

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 

在复制新的表单之前。