返回列表 上一主題 發帖

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

[發問] 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

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

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

雙引號.png (11.53 KB)

雙引號.png

因為要求格式為  以 雙引號  框住 值   並用  逗號  隔開 
之所以不用 FileFormat:=xlTextPrinter   是因為就會變成用  空格  隔開

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

TOP

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