ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何修改指定文件夹下所有工作薄B列的格式为文本

如何修改指定文件夹下所有工作薄B列的格式为文本

作者:绿色风 分类: 时间:2022-08-17 浏览:99
楼主
芐雨
Q:如何修改指定文件夹下所有工作薄B列的格式为文本
A:
代码如下:



  1. Sub 指定路径下的所有工作簿的某列格式设置为文本_芐雨()
  2. Dim dlgOpen As FileDialog
  3. Dim wb As Workbook, sht As Worksheet
  4. On Error Resume Next '防错

  5. Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
  6. With dlgOpen '路径选择对话框
  7. If .Show = -1 Then
  8. mypath = .SelectedItems(1)
  9. End If
  10. End With

  11. Application.DisplayAlerts = False '禁止弹出对话框
  12. Application.ScreenUpdating = False '禁止屏幕刷新
  13. Application.EnableEvents = False '让事件失效
  14. Application.Calculation = xlManual '手动计算


  15. FolderName = Dir(mypath & "\" & "*.xls")
  16. Do While FolderName <> ""    '遍历所有工作簿
  17. If FolderName <> ThisWorkbook.Name Then '不是本工作簿时执行
  18. Set wb = Workbooks.Open(mypath & "\" & FolderName) '打开工作簿
  19. For Each sht In wb.Sheets  '遍历所有sheet
  20. sht.Columns("B:B").NumberFormatLocal = "@" 'B列格式设置为文本
  21. If sht.Range("B" & Rows.Count).End(xlUp).Row > 1 Then 'B列有数据时分列
  22. sht.Columns("B:B").Cells.TextToColumns Destination:=Range("b1"), DataType:=xlDelimited, _
  23. TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
  24. Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
  25. :=Array(1, 2), TrailingMinusNumbers:=True
  26. End If
  27. Next
  28. Application.Calculation = xlAutomatic '自动计算
  29. wb.Close True '关闭工作簿并保存
  30. End If
  31. FolderName = Dir
  32. Loop

  33. Application.ScreenUpdating = True '恢复刷新
  34. Application.EnableEvents = True '恢复事件
  35. Application.DisplayAlerts = True '恢复对话框
  36. MsgBox "完成格式设置"
  37. End Sub

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap