[發問]把Excel資料某欄資料存到另一個 Txt 檔案
- 帖子
- 19
- 主題
- 6
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-9-9
- 最後登錄
- 2012-8-31
|
[發問]把Excel資料某欄資料存到另一個 Txt 檔案
本帖最後由 cr123a 於 2011-9-21 11:25 編輯
我想把 sheet1 D欄內 D1 到 D23000
固定每20個一組 或 25個一組的資料存入文件檔
不知該如何操作 如 D1 ~D20 存成 HABC-001.tex
D21 ~D40 存成 HABC-002.tex
D41 ~D60 存成 HABC-003.tex
D61 ~D80 存成 HABC-004.tex
...................
謝謝大家 祝安 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-9-9 07:34
| 只看該作者
回復 1# cr123a
試試看- Option Explicit
- Sub Ex()
- Dim Rng As Range, i As Integer
- Set Rng = ActiveWorkbook.Sheets(1).Range("D1:D20")
- i = 1
- Do While Application.CountA(Rng.Columns(1)) > 0 '計算範圍第一欄內有資料的列數
- With Workbooks.Add(1)
- Rng.Copy .Sheets(1).Range("A1")
- .SaveAs Filename:="D:\test\HABC-00" & i & ".tex", FileFormat:=xlUnicodeText, CreateBackup:=False
- .Close True
- End With
- i = i + 1
- Set Rng = Rng.Offset(20) '往下位移20列
- Loop
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 19
- 主題
- 6
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-9-9
- 最後登錄
- 2012-8-31
|
3#
發表於 2011-9-9 09:39
| 只看該作者
回復 2# GBKEE
好像快成功了 但是 是執行出為
HABC-001.tex
內容
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
??
我不知如何改 我想應該是 欄內 copy 出後 應改成存為文字檔 |
|
|
|
|
|
|
|
- 帖子
- 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欄 但要"選擇性貼上" ...再選 "值"
但我不會寫 試了好多次還是錯
謝謝 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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
|
7#
發表於 2011-9-9 11:59
| 只看該作者
本帖最後由 cr123a 於 2011-9-9 12:00 編輯
回復 6# GBKEE
ok謝謝你 我傳上來了
但你上傳的東東 我無法下載
我還是幼兒 |
-
-
NAMETEL.rar
(51.61 KB)
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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
|
9#
發表於 2011-9-9 13:48
| 只看該作者
本帖最後由 cr123a 於 2011-9-10 09:53 編輯
太神奇了
謝謝你的教導
好厲害!強! |
|
|
|
|
|
|
|
- 帖子
- 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
~~~~~~~~~
這個不知該知何改
再幫一下吧 謝謝 |
|
|
|
|
|
|
|
