1.雙擊Command1新增如下程式碼

Private Sub Command1_Click()

Dim strFile As String

Dim intFile As Integer

Dim strData As String

strFile = "c:\學生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

2.執行程式碼讀取檔案

3.關鍵程式碼說明

intFile = FreeFile：獲取一個檔案控制代碼

Open strFile For Input As intFile ：開啟檔案

FileLen(strFile) ：獲取檔案內容位元組大小

InputB：讀取檔案內容位元組流

StrConv：將位元組流轉換為Unicode字串

Debug.Print strData：將字串內容輸出到立即視窗

Close intFile：關閉檔案控制代碼