麻辣家族討論版版 » Excel程式區 » 請問工作表匯出成txt後，資料內容有多出雙引號

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

[發問] 請問工作表匯出成txt後，資料內容有多出雙引號

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: WINDOWS
軟體版本: WIN8
閱讀權限: 10
註冊時間: 2015-10-15
最後登錄: 2015-10-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-10-15 18:23 | 只看該作者

[發問] 請問工作表匯出成txt後，資料內容有多出雙引號

最近轉換格式遇見一個問題,導出工作表到TXT文檔時候,莫名其妙多了很多 ""
當然也有些地方是多出來" 符號.感覺比較隨機.
例如附件檔案 149行 298行 470行 729行等導出后都會變成. "" 或 ". 有時候是雙引號,有時候是單引號
查資料提到VBA 可以解決,但是不太理解怎麼處理,還請高手指點,謝謝!
如果能直接處理好這個工作表當然更好,拜謝!

string.rar (111.08 KB)

收藏

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-10-15 18:55 | 只看該作者

本帖最後由 stillfish00 於 2015-10-15 19:04 編輯

回復 1# dbv002
複製儲存格後再貼到文字檔比較快。。。

你說的匯出成txt 是指匯出csv吧...
csv 是'逗號分隔'文字檔，那些引號是有其理由而不是莫名其妙的。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: WINDOWS
軟體版本: WIN8
閱讀權限: 10
註冊時間: 2015-10-15
最後登錄: 2015-10-21

3^#

發表於 2015-10-16 09:19 | 只看該作者

回復 dbv002
複製儲存格後再貼到文字檔比較快。。。

你說的匯出成txt 是指匯出csv吧...
csv 是'逗號 ...
stillfish00 發表於 2015-10-15 18:55

匯出的UNICODE的 TXT文檔,嘗試過複製,好像無法從根本解決此問題,因為下次從excel導出后依然還是有雙引號,需要解決附件的excel的問題

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-10-16 10:30 | 只看該作者

回復 3# dbv002
試試吧...

Public Sub ExportUnicodeWithoutQuote()
Set ws = ActiveSheet
Dim sFile As String
sFile = Application.GetSaveAsFilename("", "Unicode Text File (*.txt), *.txt")
If sFile = "False" Then Exit Sub
Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2
Dim oStream: Set oStream = CreateObject("ADODB.Stream")
oStream.Charset = "UTF-8"
oStream.Type = adTypeText
oStream.Open
Dim ar: ar = ws.[A1].CurrentRegion.Value
Dim s As String
For r = 1 To UBound(ar)
For c = 1 To UBound(ar, 2)
s = IIf(c = 1, ar(r, c), s & vbTab & ar(r, c))
Next
oStream.writeText s, adTypeBinary
Next
oStream.SaveToFile sFile, adSaveCreateOverWrite
oStream.Close
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: WINDOWS
軟體版本: WIN8
閱讀權限: 10
註冊時間: 2015-10-15
最後登錄: 2015-10-21

5^#

發表於 2015-10-16 11:48 | 只看該作者

謝謝,問題已經解決! 謝謝

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

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