返回列表 上一主題 發帖

[發問] EXCEL轉 TXT檔, 如何自動新增雙引號?

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2025-2-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-6-6 19:08 | 只看該作者

[發問] EXCEL轉 TXT檔, 如何自動新增雙引號?

本帖最後由 mistery 於 2019-6-6 19:12 編輯

'轉檔時將儲存格處理增加雙引號

Cells(i, j) = Chr(34) & CStr(Cells(i, j))

ActiveWorkbook.SaveAs Filename:= spath & "\Q.txt", FileFormat:=xlCSV, CreateBackup:=False

EXCEＬ內：LUCKY08   LUCKY09    (分列在兩個儲存格)  　　  
轉到TXT檔後： """LUCKY08" ,  """LUCKY09"      (左邊三個雙引號,右邊一個雙引號)

怎麼做就是無法"正常"出現左右各一個雙引號 ???  
  
  請大師解惑

雙引號.png (11.53 KB)

雙引號.png

收藏 分享

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
2  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2025-6-27 
5#
發表於 2019-6-10 22:05 | 只看該作者


試試
Sub test()
    Dim f As Integer, temp(1 To 3)
    f = FreeFile
    Open "c:\test.txt" For Output As #f
    For i = 1 To 5
        For j = 1 To 3
              temp(j) = Chr(34) & Cells(i, j) & Chr(34)
        Next j
        Print #f, Join(temp, ",")
    Next i
    Close #f
End Sub

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
4#
發表於 2019-6-10 22:01 | 只看該作者
回復 3# mistery


  用Replace 處理字串，把空格變成逗號，因為你沒給檔案，所以我也只能給建議
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2025-2-6 
3#
發表於 2019-6-10 17:31 | 只看該作者
因為要求格式為  以 雙引號  框住 值   並用  逗號  隔開　
之所以不用 FileFormat:=xlTextPrinter   是因為就會變成用  空格  隔開

不過~~還是非常謝謝，我還是會再想想

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2019-6-6 23:06 | 只看該作者
本帖最後由 n7822123 於 2019-6-6 23:08 編輯

回復 1# mistery


存成txt就不要用CSV存檔了，改存檔格式吧，試試看

ActiveWorkbook.SaveAs Filename:=spath & "\Q.txt", FileFormat:=xlTextPrinter, CreateBackup:=False
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題