excel保存转换文本格式的宏
2006-01-12 10:21
302 查看
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
RunCheck
End Sub
Private Sub RunCheck()
Dim i, j
For i = 1 To Sheet1.UsedRange.Rows.Count
For j = 1 To Sheet1.UsedRange.Columns.Count
Sheet1.Cells(i, j) = "'" + Sheet1.Cells(i, j).Text '在文本前面加上一个"'",将其变为字符串,如果想恢复原来的格式,把前面的"'"+几个字符删除,保存一下Excel就行了
Next
Next
End Sub
RunCheck
End Sub
Private Sub RunCheck()
Dim i, j
For i = 1 To Sheet1.UsedRange.Rows.Count
For j = 1 To Sheet1.UsedRange.Columns.Count
Sheet1.Cells(i, j) = "'" + Sheet1.Cells(i, j).Text '在文本前面加上一个"'",将其变为字符串,如果想恢复原来的格式,把前面的"'"+几个字符删除,保存一下Excel就行了
Next
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 【原创】某些金额数据导出为文本格式，转换为数值的Excel 函数方法
- 如何把Excel中的某列数值如何转换成文本格式,且兼容性最好?
- Excel日期格式-文本格式快速转换
- excel日期格式转换为文本格式
- excel 批量数字格式转换成文本格式
- 怎样将Excel中的日期格式转换为文本格式
- Excel中的公式运算结果如何转换为文本格式
- 文本格式转换成EXCEL的步骤
- Excel 用于批量把单元格设置为"文本格式保存的数字"的宏
- 怎样将Excel中的日期格式转换为文本格式
- java导出:防止EXCEL或WPS的将文本自动转换为日期或数字格式
- Excel 将数字格式中的e+转换为文本格式
- 向Excel中导出长位数字时Excel会自动将其转化为类似于1.34E+13的格式,如何将其保存为文本?(如身份证)
- Excel 将数字格式中的e+14转换为文本数字格式
- excel中日期转换成指定的文本格式
- excel中日期转换成指定的文本格式
- excel日期格式转换为文本格式
- winform中将数据以文本的格式导出到excel中(以文本导出表示如果数据为0001则在excel中也显示为0001,而不被excel自动转换为1)
- Excel 文本格式批量 转换为数字格式
- 将excel的单元格日期格式转换成文本格式