返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-10-15 18:55 | 顯示全部帖子
本帖最後由 stillfish00 於 2015-10-15 19:04 編輯

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

你說的匯出成txt 是指匯出csv吧...
csv 是'逗號分隔'文字檔，那些引號是有其理由而不是莫名其妙的。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

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

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題