在VBA中,可以使用`Open`語句來打開文件,并使用`Input`函數讀取文件的內容。以下是一個示例代碼,演示了如何讀取指定文件的內容:
Sub ReadFileContent()????Dim?fileNumber?As?Integer
????Dim?content?As?String
????Dim?filePath?As?String
????'?設置文件路徑
????filePath?=?“C:\path\to\file.txt”
????'?打開文件
????fileNumber?=?FreeFile
????Open?filePath?For?Input?As?fileNumber
????'?讀取文件內容
????content?=?Input$(LOF(fileNumber),?fileNumber)
????'?關閉文件
????Close?fileNumber
????'?打印文件內容
????Debug.Print?content End?Sub
在上述示例代碼中,首先使用Open
語句打開指定路徑的文件,并使用FreeFile
函數獲取一個可用的文件編號。然后使用Input
函數讀取整個文件的內容,并將其存儲在字符串變量content
中。最后使用Close
語句關閉文件,并使用Debug.Print
語句打印文件內容。
你可以將代碼中的filePath
變量替換為你想要讀取的文件的路徑。