在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变量替换为你想要读取的文件的路径。
辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
推荐阅读： vba代码太长怎么写多行
云服务器
物理服务器
虚拟主机
跨境电商服务器