|
ファルダ「CSV」
|_トマトファルダ…*.CSV 複数
|
|_ピーマンファルダ…*.CSV 複数
・
・
・
となっており、各*.CSVに対してColumns("B:B").NumberFormatLocal =""hh:mm"
としてやってみたが、01:33でなく1:33となっていしまい。途方に暮れております。
カンマ表記でなくを希望してます。
B列のユーザー定義のみです。
ちなみにつくったもの貼り付けます。
いじくりまわして、修正したもので ごちゃごちゃしてます。
ご了承ください。
よろしくお願いします。
Private FSO As Object
Sub try()
Application.ScreenUpdating = False
Set FSO = CreateObject("Scripting.FileSystemObject")
Call abc(FSO.GetFolder("D:\CSV"))
Application.ScreenUpdating = True
Set FSO = Nothing
End Sub
Private Sub abc(ByVal d As Object)
Dim d2 As Object
For Each d2 In d.SubFolders
Call abc(d2)
Next
Dim f As Object
Dim wb As Workbook
Dim ws As Worksheet
For Each f In d.Files
If f.Name <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(f.Path)
For Each ws In wb.Worksheets
ws.Activate
Columns("B:B").NumberFormatLocal =""hh\:mm\ss"
Next
wb.Close True
End If
Next
Set d = Nothing
Set wb = Nothing
End Sub
|
|