使用 VBA 从 CSV 超链接中提取表中的一列到 Excel [关闭]

Question

我正在尝试从此超链接https://www.cboe.org/publish/restrictionsall/cboerestrictedseries.csv 中提取 opt_class 列并使用 VBA 导入到 excel。我没有使用 VBA 的经验，所以有什么帮助！

这是我目前所拥有的。运行时，它将所有数据放入 excel 中的 1 个单元格中

子测试() 将 oXMLHTTP 作为对象变暗 将 sPageHTML 调暗为字符串 将 sURL 作为字符串变暗

sURL = "https://www.cboe.org/publish/restrictionsall/cboerestrictedseries.csv"

Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHTTP.Open "GET", sURL, False
oXMLHTTP.send
sPageHTML = oXMLHTTP.responseText

ThisWorkbook.Sheets(1).Cells(1, 1) = sPageHTML

MsgBox "Completed"

Answer 1

Sub dataImport()

        Dim wbImport        As Workbook
        Dim wksImport       As Worksheet
        Dim rngFind         As Range

        '/ Open the CSV
        Set wbImport = Workbooks.Open("https://www.cboe.org/publish/restrictionsall/cboerestrictedseries.csv")
        Set wksImport = wbImport.Worksheets(1)

        '/ Remove date stamp
        wksImport.Rows(1).EntireRow.Delete

        '/ Search for OPT_CLASS header
        Set rngFind = wksImport.UsedRange.Cells.Find("OPT_CLASS")

        If Not rngFind Is Nothing Then
            '/ Found it
            '/ Copy and paste to column A in Sheet1 of your macro workbook
            rngFind.Resize(rngFind.End(xlDown).Row).Copy ThisWorkbook.Worksheets("Sheet1").Cells(1, 1)
            Application.CutCopyMode = False

            '/Close the CSV file
            wbImport.Close False

        Else
            '/ Didn't find it.
            MsgBox "No such header"
        End If

    End Sub