VBA将文件夹中所有工作表中的单元格值转换为文本

Sub ConvertCellValuesToText()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 获取文件夹中的所有文件
    fileName = Dir(folderPath & "*.xlsx")
    
    ' 循环处理每个文件
    Do While fileName <> ""
        ' 打开工作簿
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' 循环处理每个工作表
        For Each ws In wb.Worksheets
            ' 循环处理每个单元格
            For Each cell In ws.UsedRange
                ' 将单元格值转换为文本
                cell.Value = CStr(cell.Value)
            Next cell
        Next ws
        
        ' 保存并关闭工作簿
        wb.Close SaveChanges:=True
        
        ' 获取下一个文件
        fileName = Dir
    Loop
    
    ' 清除对象引用
    Set cell = Nothing
    Set ws = Nothing
    Set wb = Nothing
    
    MsgBox "转换完成！"
End Sub