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

时间:2016-01-27 09:01:04

标签: excel excel-vba import import-from-excel vba

我正在尝试从在线查找的Excel中获取数据到我的计算机上的工作表中。我已经尝试过这篇文章中的脚本(Excel - import data from an online xls file daily),但是我想在同一张表中获取数据,而不是每当我想运行宏时创建一个新工作表/打开一个新工作簿。

我试过更换这一行:

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

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

这样,尝试让sheet9始终更新,而不是每次运行宏时都打开一个新的工作表。

我使用的完整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

0 个答案:

没有答案