Line Input #1, vData ImpRng.Value = vData Set ImpRng = ImpRng.Offset(1, 0) Loop Close #1 Application.ScreenUpdating = True End Sub 示例从c:\textfile.txt文件中按行读取数据并依次显示到当前Sheet的单元格中。 返回目录 Excel Toolbar 通过VBA隐藏Excel中的Toolbars Sub HideAllToolbars() Dim ...
Workbooks.OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local) 关于以上参数的具体含义可以参看VBA的帮助,这里就不重复了。在实际的编...
Open "txt文件" For Input As #1\r\n Do While Not EOF(1)\r\n Line Input #1, h\r\n 这一行处理读出来的h(h表示txt文件中的一行)\r\n Loop\r\n Close #1 vba中，opentext方法可以实现txt文件导入excel。OpenText(Filename As String, [Origin], [StartRow], [DataType], [TextQua...
Sub ImportLPileTextFile() Dim myFile As String, text As String, textline As String, pos1 As Integer, pos2 As Integer myFile = Application.GetOpenFilename() Open myFile For Input As #1 Do Until EOF(1) Line Input #1, textline text = text & textline Loop Close #1 pos1 = InStr(te...
其中FileName是必选的参数,表示要打开的工作簿名,如果没有指定路径,则代表当前路径。另外14个是可选参数,除了密码参数,其他的一般很少用。具体的含义可以参看VBA的帮助。 例: Workbooks.Open "F:\test.xls" 可以打开F盘的test.xls文件。 2、打开文本文件 使用Open方法也可以打开文本文件,但建议使用OpenText方法。
3. 从文本文件导入数据到Excel Private Sub CommandButton1_Click() Set ImpRng = ActiveCell Open " c:\textfile.txt " For Input As # 1 txt = "" Application.ScreenUpdating = False Do While Not EOF( 1 ) Line Input # 1 , vData ImpRng.Value = vData Set ImpRng = ImpRng.Offset( 1 ,...
openFile = "D:\Temp\12-1(ANSI).txt" '打开文件 Open openFile For Input As #1 ...
Close #1 Dim FilePath, NeiRong As String, Rng As Range, Crng As Range Dim arr() As String FilePath = Application.GetOpenFilename("文本文件(*.txt),*.txt")If FilePath = False Then Exit Sub Open FilePath For Input As #1 NeiRong = StrConv(InputB(LOF(1), 1), vbUnicode...
使用Open语句打开TXT文件。 读取TXT文件内容到VBA变量中。 (可选)对读取到的数据进行处理或展示。 关闭TXT文件并释放相关资源。以下是一个示例代码,用于打开并读取一个名为data.txt的TXT文件,并将其内容写入Excel工作表的第一列中: vba Sub ReadTxtFile() Dim filePath As String Dim fileNum As Integer Dim ...
Public Sub ImportTextFile(FName As String, Sep As String)Application.ScreenUpdating = False '记录当前活动单元格的地址 SaveColNdx = ActiveCell.Column RowNdx = ActiveCell.Row '打开文件 Open FName For Input Access Read As #1 While Not EOF(1)'整行读取 Line Input #1, WholeLine '为每行最后添加...