　暱稱: 小B

帖子: 62
主題: 14
精華: 0
積分: 86
點名: 0
作業系統: win10
軟體版本: offffice2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2016-8-23
最後登錄: 2017-11-5

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-5-16 14:33 | 只看該作者

[發問] 如何匯入UTF-8 類型的檔案

本帖最後由 bioleon69 於 2017-5-16 14:36 編輯

第一種方法
但是會開出新的WORKBOOK
Workbooks.Open Filename:="https://smart.tdcc.com.tw/opendata/getOD.ashx?id=2-8", Format:=2

第二種方法
會變亂碼

Sub TESTCSV()
Set book1 = ActiveSheet
Set bookshow = book1.QueryTables _
.Add(Connection:="TEXT;https://smart.tdcc.com.tw/opendata/getOD.ashx?id=2-8", _
Destination:=book1.Range("A1"))
With bookshow
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
End Sub

複製代碼

兩種方法都差一點
有辦法能夠成功匯入一個工作表裡面不亂碼嗎

謝謝[/code]

1.JPG (125.75 KB)

樓主熱帖

VBA 從0開始
先從學會看的懂開始
先從會有基本修改能力開始
一步一步學習中

bioleon69

　暱稱: 小B

中學生 Rank: 2

帖子: 62
主題: 14
精華: 0
積分: 86
點名: 0
作業系統: win10
軟體版本: offffice2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2016-8-23
最後登錄: 2017-11-5

論壇贊助勳章

2^#

發表於 2017-5-16 22:50 | 只看該作者

本帖最後由 bioleon69 於 2017-5-16 22:51 編輯

問題已解決~
有需要可參考,以下為解決方法

Sub 插入UTF8後刪除()
Dim sh As Worksheet
ActiveSheet.Select
tabname = "TEST"
For Each sh In Worksheets
If sh.Name = tabname Then Exit Sub
Next
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:="https://smart.tdcc.com.tw/opendata/getOD.ashx?id=2-8"
ActiveSheet.Name = tabname
Sheets(tabname).Copy After:=Workbooks(ControlFile).Sheets(1)
Application.DisplayAlerts = False
Workbooks("getod.ashx").Close
Application.DisplayAlerts = True
End Sub

複製代碼

VBA 從0開始
先從學會看的懂開始
先從會有基本修改能力開始
一步一步學習中

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2017-5-17 09:19 | 只看該作者

回復 2# bioleon69

我測試後還是亂碼

可以參考
https://www.mtmd.tw/mtmd_7236.htm

用錄製巨集方式
'
' Macro3 Macro
'

'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;https://smart.tdcc.com.tw/opendata/getOD.ashx?id=2-8", Destination:= _
      Range("$A$1"))
      .Name = "getOD.ashx?id=2-8"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .TextFilePromptOnRefresh = False
   .TextFilePlatform = 65001
      .TextFileStartRow = 1
      .TextFileParseType = xlDelimited
      .TextFileTextQualifier = xlTextQualifierDoubleQuote
      .TextFileConsecutiveDelimiter = False
      .TextFileTabDelimiter = False
      .TextFileSemicolonDelimiter = False
      .TextFileCommaDelimiter = True
      .TextFileSpaceDelimiter = False
      .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
      .TextFileTrailingMinusNumbers = True
      .Refresh BackgroundQuery:=False
End With
End Sub

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

bioleon69

　暱稱: 小B

中學生 Rank: 2

帖子: 62
主題: 14
精華: 0
積分: 86
點名: 0
作業系統: win10
軟體版本: offffice2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2016-8-23
最後登錄: 2017-11-5

論壇贊助勳章

4^#

發表於 2017-5-17 09:43 | 只看該作者

回復 3# ML089

XD奇怪我自己測試是OK的~
還是謝謝大大分享這個另外一種方法
還特別上色 XD讚
我來研究一下這個方法~
謝謝^^

VBA 從0開始
先從學會看的懂開始
先從會有基本修改能力開始
一步一步學習中

TOP