| お世話になっております。
いろいろとありがとうございます。
ご教授いただいた内容を週末に考えてみました。
というか、net上で似たようなものを組み合わせて作ってみました。
> 【Excel VBAでの処理の流れ】
> (1) 指定のディレクトリ(会社のLAN内のサーバーの保管場所)の直下のxlsを調べます。
> (A.xls、B.xlsといったファイルパスの情報を配列などに一覧化します)
>
この部分は以下で対応できているのではないかと考えております。
Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "\\a0nd155\△\△△△△ファイル")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("Sheet1").UsedRange.Delete
'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter
i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified
ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
Next
End Sub
が、以下の部分は、操作のイメージが湧かず、
ご教授いただいた処置ができませんでした。
今のところ、sheet１にファイル名の羅列はできております。
そこから先ですが、処置についてヒントだけでも教えていただけないでしょうか。
> (2) 調べ上げた個々のxlsファイル一つ一つに対して以降の処理を行います。
> (個々のxlsファイルのことを「処理対象のxlsファイル」と呼ぶことにします。
> 今何ファイル目を処理しているかという値をNとします。)
>
> (3) 「処理対象のxlsファイル」の該当シートから品名(A1セル)、値段(B2セル)、仕様(A3セル)、入数(A5セル)の値を取得し、
> 「まとめ用xlsファイル」の「まとめ用シート」の(N+1)行目のA列から順に品名、値段、仕様、入数をセルに設定します。
>
> (4) (1)で一覧化したファイル数分だけ(3)を繰り返します。
|