我需要将 xls 文件中的数据从 web 插入到我当前打开的工作簿中。问题是,如果我多次运行这个宏,它总是会创建新的工作表。理想情况下,我想删除旧内容并用同一张纸上的新内容替换它。有可能的?这是我的代码
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
最佳答案
假设从网络转储的工作表始终是工作簿中的最后一个工作表,请使用以下行:
Application.DisplayAlerts = False
wkbMyWorkbook.Worksheets(wkbMyWorkbook.Worksheets.Count).Delete
Application.DisplayAlerts = True
在复制新工作表之前。
关于vba - 将数据从 Web 插入 Excel 工作表 - VBA,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46348150/