VBAを使用してExcelへのCSVハイパーリンクからテーブルに1列を抽出

Question

このハイパーリンクhttps://www.cboe.org/publish/restrictionsall/cboerestrictedseries.csvからopt_class列を抽出し、VBAを使用してExcelにインポートしようとしています。私はVBAの経験がないので、何かが助けになります！

これはこれまで私が行ってきたことです。これを実行すると、それは）エクセル

サブテスト（中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