循环浏览URL列表（29个.xls文件），以打开数据并将其粘贴到一张纸中

Question

我有一个包含3列的工作表：URL-目标工作表-行

URL会将您定向到自动下载的.XLS文件（以下示例）：

http://www.eurexrepo.com/blob/157370/ccb5c831da64925cfc15aff4c5e4be85/data/euro_gjpbasket.xls

[我想做的是让VBA代码遍历包含29个链接的行（B2：B30）（请参见图片），并将数据复制/粘贴到唯一的目标表中（在第二个中指定）目标工作表（在第三列中指定：D2：D30）中预定义的行号中的C2：C30列）。

List of URLs in cells

这是我要使用的代码：

Sub Import_Baskets()

Dim Rows As Long, links As Variant, link As Variant
Rows = Sheets("Admin").Cells(Sheets("Admin").Rows.Count, "B").End(xlUp).Row
links = Sheets("Admin").Range("B1:B" & Rows)

    For Each link In links

        Dim wkbMyWorkbook As Workbook
        Dim wkbWebWorkbook As Workbook
        Dim wksWebWorkSheet As Worksheet

        Set wkbMyWorkbook = ActiveWorkbook

        ' *************************************************
        ' Open The Web Workbook
        ' *************************************************

        ' *************************************************
        ' Set the Web Workbook and Worksheet Variables
        ' *************************************************
        Set wkbWebWorkbook = ActiveWorkbook
        Set wksWebWorkSheet = ActiveSheet

        ' *************************************************
        ' Copy The Web Worksheet To My Workbook and Rename
        ' *************************************************
        wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count)
        wkbMyWorkbook.Sheets(ActiveSheet.Name).Name = "GC"

        '.Range("$A$" + row_number)
        ' *************************************************
        ' Close the Web Workbook
        ' *************************************************
        wkbMyWorkbook.Activate
        wkbWebWorkbook.Close


    Next link

    'Next


End Sub

任何帮助将不胜感激！ ：）

Answer 1

这可能适合您的情况。尽管尚未测试，所以请尝试之前保存您的工作簿。