工作表保存为文本文件

关注

原创最新推荐文章于 2026-01-04 07:17:56 发布 229 阅读 AI 写同款· GEO 优化 ›

使用python将txt文本写入xls工作表前几天在尝试将文本内容写入表格，在CSDN和谷歌百度检索到的信息总是不尽人意，记录下过程，减少类似错误，题目大意，将纯文本文件 student.txt 信息里面的内容写到 student.xls 文件中 student.txt文件内容写入后过程导入所需要的库，并编写正则表达式 import xlwt import re reg = '[:[\\]""{},]' # 旨在提取文件中的文字信息导入txt文件路径和保存xls的路径，暂设为 text_path 和 xls_path 阅读详情


Public Sub 工作表保存为文本文件()
    Dim sFName As String
    sFName = Application.InputBox(prompt:="请输入文本文件的名称：", _
         Title:="输入文件名称", Type:=2)
    If sFName = "False" Or sFName = "" Then Exit Sub
    
    sFName = ThisWorkbook.Path & "\" & sFName & ".txt"
    On Error Resume Next
    If Len(Dir(sFName, vbDirectory)) > 0 Then
        If MsgBox("该文件已经存在，是否删除？", vbQuestion + vbYesNo) = vbYes Then
            Kill sFName    '删除已有的同名文件
        Else
            Exit Sub
        End If
    End If
    On Error GoTo 0
    Set ws1 = Worksheets("Sheet1")
    ActiveWorkbook.SaveAs Filename:=sFName, FileFormat:=xlCSV
    MsgBox "保存成功！"
'    ActiveWorkbook.Close SaveChanges:=False  '这个语句用于清空工作表
End Sub

作者：LiW

收录于