返回列表 上一主題 發帖

[發問] 用excel打開筆記本

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
1# 跳轉到 »
發表於 2012-1-4 23:54 | 顯示全部帖子
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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題