1） myFile = ThisWorkbook.Path & "\test.txt" 将文件的地址和名称存放到变量中。2） Open myFile For Input As #1 打开这个文件 3） Do Until EOF(1)Line Input #1, textline text = text & textline Loop 以上代码提取文件的所有内容到text的字符串中。注意是按行提取的。4） Close #1 关闭文...
Open File For Input As #1 count = 0 Do While Not EOF(1)count = count + 1 Line Input #1, fText Worksheets("Sheet1").Cells(count, 1).Value = fText Loop Close #1
Sub ReadFile() Dim strFile As String, strLine As String '文件路径。vba.txt包含一句话vba test。 strFile = "D:\vba.txt" '打开文件并赋予句柄#1。 Open strFile For Input As #1 '循环读取,直到文件末尾。 Do Until EOF(1) '通过line input方法读取文件#1,并赋值给strline变量。一次读取一行。 Li...
這個範例會使用Line Input #語句,從循序檔案讀取一行,並將它指派給變數。 此範例假設TESTFILE是具有幾行資料範例的文字檔。 VB複製 DimTextLine Open"TESTFILE"ForInputAs#1 ' Open file. Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine' Read line into variable.Debug.Print Te...
Dim TextLine Open "TESTFILE" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在立即窗口中显示数据。 Loop Close #1 ' 关闭文件。
1、Open 语句 语法:Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 其中access、lock、reclength为可选参数,一般不用。 mode 指定打开文件的方式。有5种: Input:以输入方式打开,即读取方式。 Output:以输出方式打开,即写入方式。
使用Open方法也可以打开文本文件,但建议使用OpenText方法。此方法是载入一个文本文件,并将其作为包含单个工作表的工作簿进行分列处理,然后在此工作表中放入经过分列处理的文本文件数据。完整语法如下: Workbooks.OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma...
SubExtractTextFormFile1()Dim iFileNumber As Integer Dim strFilePath As String Dim strFileContent As String '文本文件的路径 strFilePath="C:\MyFile.txt"'确定下一个可用的文件序号 iFileNumber=FreeFile '打开文件 Open strFilePath For Input As iFileNumber ...
Sub ExtractTextFormFile1() Dim iFileNumber As Integer Dim strFilePath As String Dim strFileContent As String '文本文件的路径 strFilePath = "C:\MyFile.txt" '确定下一个可用的文件序号 iFileNumber = FreeFile '打开文...
VBA读写文件 处理文本文件 1、Open 语句语法:Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]其中access、lock、reclength为可选参数,一般不用。mode 指定打开文件的方式。有5种:Input:以输入方式打开,即读取方式。Output:以输出方式打开,即写入方式。