[發問]把Excel資料某欄資料存到另一個 Txt 檔案

超級版主 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兔年全勤獎章

11^#

發表於 2011-9-21 21:11 | 只看該作者

回復 10# cr123a
想把文件改成 big 5編碼的文件檔找奇很多書都沒寫到這個
可到維基百科看看

帖子: 19
主題: 6
精華: 0
積分: 25
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-9-9
最後登錄: 2012-8-31

10^#

發表於 2011-9-21 11:27 | 只看該作者

最近在使用上出現了一些問題
想把文件改成  big 5編碼的文件檔
找奇很多書都沒寫到這個
FileFormat:=xlUnicodeText, CreateBackup:=False
               ~~~~~~~~~
這個不知該知何改
再幫一下吧  謝謝

帖子: 19
主題: 6
精華: 0
積分: 25
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-9-9
最後登錄: 2012-8-31

9^#

發表於 2011-9-9 13:48 | 只看該作者

本帖最後由 cr123a 於 2011-9-10 09:53 編輯

太神奇了
謝謝你的教導
好厲害!強!

超級版主 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-9-9 12:53 | 只看該作者

回復 7# cr123a
你上傳的東東我無法下載我知道的

Sub Macro1()
Dim Rng As Range, i As Integer
With ActiveWorkbook.Sheets(1)
Set Rng = .Range("F" & .[C3]).Resize(.[C1])
'"F" & .[C3]-> F101 'Resize(.[C1])-> Resize(10)擴充範圍為10列
i = 1
Do While i <= .[C2] '控制每個出來的檔案數
With Workbooks.Add(1)
' Rng.Copy .Sheets(1).Range("A1") '->COPY 複製(全部內容:公式當然是#REF! )
.Sheets(1).Range("A1").Resize(Rng.Rows.Count, Rng.Columns.Count) = Rng.Value
.SaveAs Filename:="D:\TEST\HABCGGG-00" & i & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False
.Close True
End With
i = i + 1
Set Rng = Rng.Offset(.[C1]) '往下位移C1指定列數
Loop
End With
End Sub

複製代碼

帖子: 19
主題: 6
精華: 0
積分: 25
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-9-9
最後登錄: 2012-8-31

7^#

發表於 2011-9-9 11:59 | 只看該作者

本帖最後由 cr123a 於 2011-9-9 12:00 編輯

回復 6# GBKEE
ok謝謝你我傳上來了
但你上傳的東東我無法下載
我還是幼兒

NAMETEL.rar (51.61 KB)

超級版主 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兔年全勤獎章

6^#

發表於 2011-9-9 11:41 | 只看該作者

本帖最後由 GBKEE 於 2011-9-9 14:10 編輯

回復 5# cr123a
可傳的檔案類型 chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png
文件需用壓縮檔 zip, rar

帖子: 19
主題: 6
精華: 0
積分: 25
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-9-9
最後登錄: 2012-8-31

5^#

發表於 2011-9-9 10:56 | 只看該作者

檔案太大不知如何傳耶
我想應該是把
  With Workbooks.Add(1)
         Rng.Copy .Sheets(1).Range("A1")
         .SaveAs Filename:="D:\test\HABC-00" & i & ".tex",
改成  所要的欄  複製再貼上新的A欄  但要"選擇性貼上" ...再選 "值"
但我不會寫  試了好多次還是錯
謝謝