第十七章 檔案

第十七章　檔案
17-01　開啟最近使用過的檔案

應用範例
Sub 開啟最近使用過的檔案()
MsgBox “顯示最近使用過的第二個檔案名稱，並開啟它”
MsgBox Application.RecentFiles(2).Name
Application.RecentFiles(2).Open
End Sub

17-02　搜尋檔案

應用範例
Sub 搜尋檔案()
sfolda = “C:\My Documents”
sname = “*.xls”
MsgBox “在 ” & sfolda & “ 內搜尋 ” & sname & “ 的檔案，並將顯示搜尋到的檔案數量以及依序顯示搜尋到的檔案名稱”
With Application.FileSearch
.LookIn = sfolda
.Filename = sname
rsl = .Execute
Msgbox “搜尋到的檔案數量為：” & rsl
If rsl > 0 Then
For Each nm In .FoundFiles
MsgBox nm
Next nm
Else
MsgBox “找不到檔案”
End If
End With
End Sub

17-03　取得檔案的日期

應用範例
Sub 檔案的日期()
fname = “C:\My Documents\作圖用 Excel Chp05.xls”……1
MsgBox “顯示 ” & fname & “的檔案建立日期/最後一次修改日期”
MsgBox FileDatetime(fname)
End Sub

17-04　使用循序模式寫入檔案

應用範例
Sub 使用循序模式寫入檔案()
MsgBox “將儲存格範圍A2到D6內的資料以循序模式寫入「分數.txt」檔案中”
Open “分數.txt” For Output As #1
For gyou = 2 To 6
For retu = 1 To 4
x = Cells(gyou, retu)
Print #1, x
Next retu
Next gyou
Close #1
End Sub

17-05　使用循序模式讀取檔案

應用範例
Sub 使用循序輸出模式讀出資料()
MsgBox “將循序檔內的資料讀出，寫入儲存格範圍A2到D6內”
Open “分數.txt” For Input As #1
For gyou = 2 To 6
For retu = 1 To 4
Input #1, x
Cells(gyou, retu) = x
Next retu
Next gyou
Close #1
End Sub
17-06　使用亂數模式寫入檔案

應用範例
Private Type fld
retu1 As Single
retu2 As String * 7
retu3 As String * 12
End Type

Sub 使用亂數模式寫入檔案()
MsgBox “將儲存格範圍A3到C7的資料寫入亂數檔「通訊錄」中”
Dim data As fld
Open “通訊錄” For Random As #1 Len = Len(data)
recnumber = 1
For gyou = 3 To 7
data.retu1 = Cells(gyou, 1)
data.retu2 = Cells(gyou, 2)
data.retu3 = Cells(gyou, 3)
Put #1, recnumber, data
recnumber = recnumber + 1
Next gyou
Close #1
End Sub

17-07　使用亂數模式讀取檔案

應用範例
Private Type fld
retu1 As Single
retu2 As String * 7
retu3 As String * 12
End Type

Sub 使用亂數輸出模式讀出資料()
MsgBox “將亂數檔內的資料讀出，寫入儲存格範圍A3到C7內”
Dim data As fld
Open “通訊錄” For Random As #1 Len = Len(data)……1
recnumber = 1
For gyou = 3 To 7……2
Get #1, recnumber, data
With ActiveSheet
.Cells(gyou, 1) = data.retu1
.Cells(gyou, 2) = data.retu2
.Cells(gyou, 3) = data.retu3
End With
recnumber = recnumber + 1
Next gyou
Close #1
End Sub