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

　暱稱: 小俊

帖子: 32
主題: 9
精華: 0
積分: 46
點名: 0
作業系統: windows XP
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2010-5-11
最後登錄: 2021-4-27

論壇贊助勳章

9^#

發表於 2011-7-25 08:51 | 只看該作者

回復 8# GBKEE

謝謝版主，試過後可以了，非常感恩。

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-7-25 07:03 | 只看該作者

回復 7# pesi2884

Sub Ex()
Dim Fs As Object
Dim Sh As Worksheet, FileName As String, i%
For Each Sh In Sheets
FileName = "D:\" '建立檔案資料夾"
Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName & Sh.Name & ".txt", 8, True, -1)
'FileSystemObject物件,提供對電腦檔案系統的存取。 OpenTextFile 開啟檔案.
'8 -> ForAppending: 開啟一個檔案並寫輸出至檔案的尾部。1 -> ForReading:開啟一個唯讀檔案。無法對此檔案進行寫入。
'True: 它表示如果指定的 filename 不存在是否可以建立一個開新檔案。如果建立開新檔案，其值為 True。若不建立檔案其值為 False。預設值為 False。
'-1 以 Unicode 格式開啟檔案。如果省略，則檔案以 ASCII 格式開啟。
'Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(FileName & Sh.Name & ".txt", True, True)
'CreateTextFile 新建檔案,
'第1個 True: 表示一個已存在檔案是否可被覆蓋。如果可被覆蓋其值為 True，其為 False 時無法覆蓋,預設值為False.
'第2個 True: 。如果作為一個 Unicode 檔案建立，其為 True，作為一個 ASCII 檔案建立，其為 False。預設值為False
i = 1
Do While Sh.Cells(i, "A") <> ""
Fs.Write Sh.Cells(i, "A") '將字串寫入底端。"
Fs.WriteLine '換行
i = i + 1
Loop
Fs.Close ' 將檔案關閉。
Next
End Sub

複製代碼

　暱稱: 小俊

帖子: 32
主題: 9
精華: 0
積分: 46
點名: 0
作業系統: windows XP
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2010-5-11
最後登錄: 2021-4-27

論壇贊助勳章

7^#

發表於 2011-7-24 22:31 | 只看該作者

回復 5# GBKEE

不好意思，再問一下
承剛剛版主大大您的回覆程式裡
如果匯出的檔案要有以下的格式
FileFormat:=xlUnicodeText, CreateBackup:=False
程式該如何寫
因為要的成果，與檔案格式有關，謝謝

　暱稱: 小俊

帖子: 32
主題: 9
精華: 0
積分: 46
點名: 0
作業系統: windows XP
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2010-5-11
最後登錄: 2021-4-27

論壇贊助勳章

6^#

發表於 2011-7-24 22:12 | 只看該作者

回復 5# GBKEE

謝謝版主!
可以了

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-7-24 21:48 | 只看該作者

回復 4# pesi2884
試試看

Sub Ex()
Dim Sh As Worksheet, FileName As String, i%
For Each Sh In Sheets
FileName = "D:\" '建立檔案資料夾"
Open FileName & Sh.Name & ".txt" For Output As #1 '開啟檔案。
i = 1
Do While Sh.Cells(i, "A") <> ""
Print #1, Sh.Cells(i, "A") '將字串寫入檔案。"
i = i + 1
Loop
Close #1 ' 將檔案關閉。
Next
End Sub

複製代碼

　暱稱: 小俊

帖子: 32
主題: 9
精華: 0
積分: 46
點名: 0
作業系統: windows XP
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2010-5-11
最後登錄: 2021-4-27

論壇贊助勳章

4^#

發表於 2011-7-24 21:41 | 只看該作者

回復 3# GBKEE

謝謝GBKEE您的回答，有達到想要的結果
但是我因為有許多相同資料類型的(有上百個)工作表
要存成許多(有上百個)檔案
假設附件內有3個工作表，分別為雲林~中美、高雄~墾丁、屏東~嘉義
那如何匯出成分別為雲林~中美.txt、高雄~墾丁.txt、屏東~嘉義.txt
請問該要怎麼寫，不好意思，我的程式語言能力還很弱
所以需要您的幫忙，謝謝你呀!

1000724-1.rar (14.48 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-7-24 21:12 | 只看該作者

回復 1# pesi2884
如infoverdad 說你字串有逗號"," 可試用下法存為txt

Sub Ex()
Dim i%, FileName
FileName = "D:\TEST\1000724.txt" '建立檔案名稱。"
Open FileName For Output As #1 '開啟檔案。
Do While Cells(i + 1, "A") <> ""
Print #1, Cells(i + 1, "A") '將字串寫入檔案。"
i = i + 1
Loop
Close #1 ' 將檔案關閉。
End Sub

複製代碼

infoverdad

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 265
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

2^#

發表於 2011-7-24 19:32 | 只看該作者

回復 1# pesi2884

顯然是因為你同一格中的資料有","號
因為excel 可轉為csv格式各格之間就是以","號區隔的
試著將你第一格(A1)中的","號都改成"#"號 (A2則不改)
則以notepad 讀出的結果如下：
<Placemark><name>???I1</name><Point><coordinates>120.1#23.1#0</coordinates></Point></Placemark>
"<Placemark><name>???I2</name><Point><coordinates>120.2,23.2,0</coordinates></Point></Placemark>"