作者：绿色风
分类：
时间：2022-08-17
浏览：232
楼主
芐雨 |
Q：如何修改指定文件夹下所有工作薄B列的格式为文本
A：
代码如下：
- Sub 指定路径下的所有工作簿的某列格式设置为文本_芐雨()
- Dim dlgOpen As FileDialog
- Dim wb As Workbook, sht As Worksheet
- On Error Resume Next '防错
- Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
- With dlgOpen '路径选择对话框
- If .Show = -1 Then
- mypath = .SelectedItems(1)
- End If
- End With
- Application.DisplayAlerts = False '禁止弹出对话框
- Application.ScreenUpdating = False '禁止屏幕刷新
- Application.EnableEvents = False '让事件失效
- Application.Calculation = xlManual '手动计算
- FolderName = Dir(mypath & "\" & "*.xls")
- Do While FolderName <> "" '遍历所有工作簿
- If FolderName <> ThisWorkbook.Name Then '不是本工作簿时执行
- Set wb = Workbooks.Open(mypath & "\" & FolderName) '打开工作簿
- For Each sht In wb.Sheets '遍历所有sheet
- sht.Columns("B:B").NumberFormatLocal = "@" 'B列格式设置为文本
- If sht.Range("B" & Rows.Count).End(xlUp).Row > 1 Then 'B列有数据时分列
- sht.Columns("B:B").Cells.TextToColumns Destination:=Range("b1"), DataType:=xlDelimited, _
- TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
- Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
- :=Array(1, 2), TrailingMinusNumbers:=True
- End If
- Next
- Application.Calculation = xlAutomatic '自动计算
- wb.Close True '关闭工作簿并保存
- End If
- FolderName = Dir
- Loop
- Application.ScreenUpdating = True '恢复刷新
- Application.EnableEvents = True '恢复事件
- Application.DisplayAlerts = True '恢复对话框
- MsgBox "完成格式设置"
- End Sub
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一