vba：只能将文件的前1000个字符读入string

我需要打开一个txt文件，并将其读入VBA中的string，但我只想得到前1000个字符。

文件本身是20MB，我只需要前1000个字符。 有没有办法使这个效率？

Answer 1

不知道是否有更有效的方法，但这种方法很简单：

Dim sText As String Open "C:\myfile.txt" For Input As #1 sText = Input$(1000, 1) Close #1 

Answer 2

文件中的每一行有多长。 我要做的是不pipe是按字符还是按行（如果行较短）读取，然后设置1000个字符的上限。 这样你就不必读整个文件。 如果您正在逐行阅读，您只需阅读前1000个字符或更多。