Excel VBA 批量将所有单元格转换为文本格式

以下是将文件夹中所有Excel文件中的所有单元格转换为文本格式的VBA代码：

Sub ConvertCellsToText()
    Dim MyFolder As String
    Dim MyFile As String
    Dim MyPath As String
    Dim MyWorkbook As Workbook
    Dim MyWorksheet As Worksheet
    Dim MyRange As Range
    
    '设置文件夹路径
    MyFolder = 'C:\MyFolder\'
    
    '关闭屏幕更新以加快代码运行速度
    Application.ScreenUpdating = False
    
    '循环遍历文件夹中的所有Excel文件
    MyFile = Dir(MyFolder & "*.xlsx")
    Do While MyFile <> ""
        
        '打开Excel文件
        MyPath = MyFolder & MyFile
        Set MyWorkbook = Workbooks.Open(MyPath)
        
        '循环遍历所有工作表
        For Each MyWorksheet In MyWorkbook.Worksheets
            
            '循环遍历所有单元格
            For Each MyRange In MyWorksheet.UsedRange.Cells
                
                '将单元格格式设置为文本
                MyRange.NumberFormat = "@"
                
            Next MyRange
        Next MyWorksheet
        
        '保存并关闭Excel文件
        MyWorkbook.Close SaveChanges:=True
        
        '获取下一个Excel文件
        MyFile = Dir()
    Loop
    
    '重新启用屏幕更新
    Application.ScreenUpdating = True
End Sub

你需要修改MyFolder变量以指定要遍历的文件夹路径。此代码将遍历该文件夹中的所有Excel文件，并将其中所有单元格格式设置为文本。请注意，这将覆盖原始单元格格式，包括数字和日期格式。如果你想仅将某些特定单元格设置为文本格式，请修改代码以仅应用于这些单元格。