vb获取txt内容到excel

在Visual Basic (VB) 中，将文本文件的内容读取到Excel工作表中通常涉及两个步骤：首先读取文本文件的内容，然后将数据写入Excel。这里是一个简单的示例：

1. **读取TXT文件内容**:

Dim filePath As String = "C:\path\to\your\text.txt" ' 替换为实际的文本文件路径
Dim fileContent As String
Using reader As New StreamReader(filePath)
    fileContent = reader.ReadToEnd()
End Using

上述代码会打开指定路径的文本文件，并将其全部内容读取到`fileContent`变量中。

2. **将数据写入Excel**:

Imports Microsoft.Office.Interop.Excel

Sub WriteToExcel()
    Dim excelApp As New Application ' 创建Excel应用实例
    Dim workbook As Workbook = excelApp.Workbooks.Add() ' 创建新工作簿
    Dim worksheet As Worksheet = workbook.ActiveSheet ' 获取活动工作表
    
    ' 将文本内容分割成行并写入Excel
    Dim lines() As String = fileContent.Split(vbCrLf) ' 分割文本按行
    For Each line In lines
        worksheet.Cells(worksheet.Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = line ' 写入第一列
    Next
    
    ' 关闭并释放资源
    workbook.Close()
    excelApp.Quit()
    System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp) ' 释放Excel对象
End Sub

这段代码会在当前工作簿的最后添加一个新的行，逐行写入`fileContent`中的文本。