Board logo

標題: [發問] vba匯入csv檔欄位問題 [打印本頁]
作者: reangame    時間: 2021-3-17 18:18     標題: vba匯入csv檔欄位問題

  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    時間: 2021-3-17 21:36

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

我只想到一個方法,
你可參考以下網址中微軟的函式功能說明自己試試看 :
Range.TextToColumns 方法 (Excel)
作者: reangame    時間: 2021-3-18 07:36

回復 2# luhpro


    謝謝您，我再試試看
作者: reangame    時間: 2021-3-28 17:01

本帖最後由 reangame 於 2021-3-28 17:02 編輯
  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
複製代碼
用資料剖析的方法可以解決，謝謝！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)