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

【问题标题】：Inserting data from web to excel sheet - VBA将数据从 Web 插入到 Excel 工作表 - VBA
【发布时间】：2017-09-21 23:58:04
【问题描述】：

我需要将来自网络的 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

【问题讨论】：

标签： vba excel

【解决方案1】：

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

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

在复制新工作表之前。

【讨论】：

我收到错误，它会在新工作簿中打开下载的文件：运行时错误 '1004' Worksheet 类的删除方法失败。
@joe32 - 立即尝试。我完全限定对象
@Scott Holtzman 请在here 抢购
@Scott Holtzman 请在here 进行抢劫，我欠你这个结果。请将该有用的参考作为答案发布。
@MGae2M - 我很欣赏你的观点并看到了你的评论。我会继续删除答案，因为在 cmets 中有很多来回，而我实际提供的答案对问题并不准确。