|
あ!、まだ言い忘れが有った
「Voidingカウント一覧」は、Sheet1に作成されます
其れに伴い、以下の部分を追加して下さい
「Public Sub ReadRle()」の中で、
・
・
'新規Bookを追加
Set wkbNewBook = Workbooks.Add
Set wksVoiding = wkbNewBook.Worksheets("Sheet1")
lngVoidingRow = 1
wksVoiding.Cells(lngVoidingRow, "A").Resize(, 4).Value _
= Array("Folder", "FileName", "Voiding", "Voiding累計")
lngVoidingRow = lngVoidingRow + 1
wksVoiding.Name = "Voidingカウント一覧" '★この行追加
'Voidingカウント用の変数を初期化
・
・
'新規Bookに書き込み用シートを追加
With wkbNewBook.Worksheets
Set wksNewSheet = .Add(After:=.Item(.Count))
End With
strPath = objFso.GetParentFolderName(vntFileNames(1))
wksVoiding.Cells(lngVoidingRow, 1).Value = strPath
vntVoiding(3) = 0 '★この行追加
'書き込み行の初期値
・
・
また、使い方で、「ファイルを開く」ダイアログのキャンセルボタンを押すと
マクロが、終了しますのでヨロシク
|
|