[發問] vba匯入csv檔欄位問題

reangame

1.             With ActiveSheet.QueryTables.Add(Connection:= _
   
2.                 "URL;https://www.twse.com.tw/exchangeReport/MI_INDEX?response=csv&date=" & y & m & d & "&type=ALL", Destination:=Range("A1"))
   
3.                 .Name = "09_1"
   
4.                 .FieldNames = True
   
5.                 .RowNumbers = False
   
6.                 .FillAdjacentFormulas = False
   
7.                 .PreserveFormatting = False
   
8.                 .RefreshOnFileOpen = False
   
9.                 .BackgroundQuery = True
   
10.                 .RefreshStyle = xlInsertDeleteCells
    
11.                 .SavePassword = False
    
12.                 .SaveData = True
    
13.                 .AdjustColumnWidth = True
    
14.                 .RefreshPeriod = 0
    
15.                 .WebSelectionType = xlSpecifiedTables
    
16.                 .WebFormatting = xlWebFormattingAll
    
17.                 .WebTables = "10"
    
18.                 .WebPreFormattedTextToColumns = True
    
19.                 .WebConsecutiveDelimitersAsOne = True
    
20.                 .WebSingleBlockTextImport = False
    
21.                 .WebDisableDateRecognition = False
    
22.                 .WebDisableRedirections = False
    
23.                 .Refresh BackgroundQuery:=False
    
24.             End With

複製代碼

上面程式碼執行後，得到的是以  ,  為區隔的一列資料，
請問該如何自動匯入並以  ,  區分欄位呢?

luhpro

上面程式碼執行後，得到的是以  ,  為區隔的一列資料，
請問該如何自動匯入並以  ,  區分欄位呢?
reangame 發表於 2021-3-17 18:18

我只想到一個方法,
你可參考以下網址中微軟的函式功能說明自己試試看 :
Range.TextToColumns 方法 (Excel)

reangame

回復 2# luhpro


    謝謝您，我再試試看

reangame

1.             Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
   
2.                 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
   
3.                 Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
   
4.                 :=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
   
5.                 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
   
6.                 , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), _
   
7.                 TrailingMinusNumbers:=True

複製代碼

用資料剖析的方法可以解決，謝謝！