返回列表下一主題上一主題發帖

[發問] 如何匯入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

第二種方法
會變亂碼

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

bioleon69

　暱稱: 小B

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 2017-5-17 09:43 | 顯示全部帖子

回復 3# ML089

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

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

TOP

靜思自在 : 屋寬不如心寬。

返回列表下一主題上一主題