- 帖子
- 21
- 主題
- 2
- 精華
- 0
- 積分
- 27
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Tainan
- 註冊時間
- 2012-1-3
- 最後登錄
- 2013-2-28
|
1.Excel檔你就自己建立吧！
2.因為存取C:\Documents and Settings\Administrator會有權限問題，所以我改為D:\
3.50個sheet實在是太擠了，所以改成動態偵測，不管目前開啟的活頁簿有幾個sheet，會擷取每一個sheet的A1:A20數值寫入1.txt
Sub WriteTxtFile()
Dim WriteFile As String
WriteFile = "D:\1.txt"
Open WriteFile For Output As #1
SheetsCount = Application.Sheets.Count
'寫入資料
For i = 1 To SheetsCount
Sheets(i).Select
For j = 1 To 20
Print #1, Cells(j, 1)
Next j
Next i
Close #1
End Sub |
|
發表於 2012-1-4 23:54
| 