Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5475 / 76732

←次へ　｜　前へ→


	【76870】ユーザー書式設定　00：00表記にかんして

金魚 - 15/3/29(日) 15:37 -


	引用なし

	パスワード

ファルダ「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

229 hits

▼

【76870】ユーザー書式設定　00：00表記にかんして 金魚 15/3/29(日) 15:37