Excel – 从在线xls文件导入数据

我正试图从在线的Excel中获取数据到我的计算机上。 我已经尝试过这个post的脚本( Excel – 每天从一个在线的xls文件导入数据 ),但是我想在同一张表中获取数据,而不是创build一个新的工作表/打开一个新的工作簿,只要我想运行macros。

我试过replace这一行:

Set wsNew = wbMe.Sheets.Add(After:=wbMe.Sheets(w)) 

与: Set wsNew = wbMe.Sheets("Sheet9")

这样,试图让sheet9总是更新,而不是每次运行macros时打开一个新的工作表。

我使用的完整的VBA代码是:

 Sub OpenXLSfromURL() Dim wbMe As Workbook Dim wsNew As Worksheet Dim w As Integer Dim wbURL As Workbook Dim url As String Set wbMe = ThisWorkbook url = "https://google.com/test.xls" Set wbURL = Workbooks.Open(url) '## Add code to copy this data to your workbook and/or manipulate the data...' w = wbMe.Sheets.Count '## Add a new worksheet to the end of ThisWorkbook:' Set wsNew = wbMe.Sheets(Sheet9) '## Copy & Paste this data in to our new worksheet:' wbURL.Sheets(1).Cells.Copy Destination:=wsNew.Range("A1") '## Close the downloaded version which we no longer need:' wbURL.Close End Sub