返回列表 上一主題 發帖

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

dbv002

帖子
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)
收藏 分享

stillfish00

帖子
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 是'逗號分隔'文字檔，那些引號是有其理由而不是莫名其妙的。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

dbv002

帖子
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的問題

TOP

stillfish00

帖子
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
試試吧...
  1. Public Sub ExportUnicodeWithoutQuote()
  2.     Set ws = ActiveSheet
  3.     Dim sFile As String
  4.    
  5.     sFile = Application.GetSaveAsFilename("", "Unicode Text File (*.txt), *.txt")
  6.     If sFile = "False" Then Exit Sub
  7.    
  8.     Const adTypeBinary = 1
  9.     Const adTypeText = 2
  10.     Const adSaveCreateOverWrite = 2

  12.     Dim oStream: Set oStream = CreateObject("ADODB.Stream")
  13.     oStream.Charset = "UTF-8"
  14.     oStream.Type = adTypeText
  15.     oStream.Open
  16.    
  17.     Dim ar: ar = ws.[A1].CurrentRegion.Value
  18.     Dim s As String
  19.     For r = 1 To UBound(ar)
  20.         For c = 1 To UBound(ar, 2)
  21.             s = IIf(c = 1, ar(r, c), s & vbTab & ar(r, c))
  22.         Next
  23.         oStream.writeText s, adTypeBinary
  24.     Next

  26.     oStream.SaveToFile sFile, adSaveCreateOverWrite
  27.     oStream.Close
  28. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

dbv002

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
WINDOWS 
軟體版本
WIN8 
閱讀權限
10 
註冊時間
2015-10-15 
最後登錄
2015-10-21 
5#
發表於 2015-10-16 11:48 | 只看該作者
謝謝,問題已經解決! 謝謝

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題