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

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

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

複製代碼

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。