0

我正在尝试在我的 excel 工作簿中设置一个工作表，其中数据来自网络。这样我就可以单击刷新，然后再次从站点中提取数据，基本上自动化当前的新流程。

现在我们正在将数据从站点导出到 excel 文件中，然后将其复制/粘贴到第二个工作簿中并在那里生成我们的报告，我想避免这样做，单击刷新应该刷新数据。

我试图提取的数据来自我们用来跟踪敏捷团队流程的 OnDemand JIRA 应用程序。（网址https://mycompany.atlassian.net/sr/jira.issueviews:searchrequest-excel-all-fields/10101/SearchRequest-10101.xls?tempMax=1000）

现在的问题是，如果我在 Excel 2010 中选择 Data -> From Web 并输入上面的 URL，Excel 总是想将数据保存到另一个 Excel 文件中......有什么办法可以让它将数据插入我已经打开的工作簿（我单击数据 -> 从 Web 进入的那个？）？我现在似乎找不到任何方法可以做到这一点，所以任何帮助表示赞赏！

我对 REST 了解不多，但除了使用 Data -> From Web 之外，还有更好的方法吗？请记住，我想避免将数据从一个电子表格复制/粘贴到另一个电子表格，并且数据将每周刷新一次。谢谢你！

4

1 回答 1

0

这可能会让你开始......

Sub DoUpdate()

Const URL As String = "https://mycompany.atlassian.net/sr/jira.issueviews:" & _
                       "searchrequest-excel-all-fields/10101/" & _
                       "SearchRequest-10101.xls?tempMax=1000)"

Dim wb As Workbook


    Set wb = Workbooks.Open(URL) 'open workbook from web

    'clear previous data
    ThisWorkbook.Sheets("data").Range("A1:H200").ClearContents

    'copy new data over
    wb.Sheets(1).Range("A1").CurrentRegion.Copy _
                      ThisWorkbook.Sheets("data").Range("A1")


    wb.Close False 'close and don't save any changes

End Sub
于 2012-11-16T17:00:35.120 回答