vba中怎么excel文件转换成txt文件

1、打开Excel宏编辑器

打开待转换的Excel文件，按下Alt+F11，打开宏编辑器。

2、新建VBA模块

右键点击VBAProject，下拉菜单中选择"插入"->"模块"，新增一个VBA模块1。

1、在模块1中增加如下的VBA代码

Option Explicit

Public Sub ConvertExcelToTxt1()

    ActiveWorkbook.SaveAs "c:\学生成绩.txt", XlFileFormat.xlCSV

End Sub

2、运行VBA代码生成txt文件

光标放在上图红框内，按下F8，启动单步调试，连续按下F8，就可以运行完成上面的VBA代码，并会生成c:\学生成绩.txt。

注：也可以按下F5，一次性运行完成。

1、在模块1中新增如下代码

Public Sub ConvertExcelToTxt2()

    Dim lngRow          As Long

    Dim lngCol          As Long

    Dim strContent      As String

    Dim objSheet        As Worksheet

    Set objSheet = ActiveWorkbook.Sheets(1)

    Open "c:\学生成绩.txt" For Output As #1

    For lngRow = 1 To 4

        For lngCol = 1 To 4

            strContent = strContent & objSheet.Cells(lngRow, lngCol)

            If lngCol < 4 Then

                strContent = strContent & ","

            End If

        Next

        strContent = strContent & vbCrLf

    Next

    Print #1, strContent

    Close #1

End Sub

2、运行VBA代码生成txt文件

光标放在上图红框内，按下F8，启动单步调试，连续按下F8，就可以运行完成上面的VBA代码，并会生成c:\学生成绩.txt。

注：也可以按下F5，一次性运行完成。