返回列表 上一主題 發帖

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

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
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


第二種方法
會變亂碼
  1. Sub TESTCSV()
  2. Set book1 = ActiveSheet
  3. Set bookshow = book1.QueryTables _
  4.     .Add(Connection:="TEXT;https://smart.tdcc.com.tw/opendata/getOD.ashx?id=2-8", _
  5.         Destination:=book1.Range("A1"))
  6. With bookshow
  7.     .TextFileParseType = xlDelimited
  8.   .TextFileCommaDelimiter = True
  9.     .Refresh
  10. End With
  11. End Sub
複製代碼
兩種方法都差一點
有辦法能夠成功匯入一個工作表裡面不亂碼嗎

謝謝[/code]

1.JPG (125.75 KB)

1.JPG

收藏 分享
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 編輯

問題已解決~
有需要可參考,以下為解決方法
  1. Sub 插入UTF8後刪除()
  2.     Dim sh As Worksheet
  3.     ActiveSheet.Select
  4.     tabname = "TEST"
  5.     For Each sh In Worksheets
  6.     If sh.Name = tabname Then Exit Sub
  7.     Next

  9.     ControlFile = ActiveWorkbook.Name
  10.     Workbooks.Open Filename:="https://smart.tdcc.com.tw/opendata/getOD.ashx?id=2-8"
  11.     ActiveSheet.Name = tabname
  12.     Sheets(tabname).Copy After:=Workbooks(ControlFile).Sheets(1)
  13.     Application.DisplayAlerts = False
  14.     Workbooks("getod.ashx").Close
  15.     Application.DisplayAlerts = True
  16. End Sub
複製代碼
VBA 從0開始
先從學會看的懂開始
先從會有基本修改能力開始
一步一步學習中

TOP

ML089

帖子
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

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題