| |
▼ウッシ さん：
こんばんは。
ありがとうございます。
大変申し訳御座いません。
書き方が悪く（書き足りなく）、再度質問してしまいます。
>
>管理.xlsにマクロをセットするとして、
>管理.xlsと同じフォルダ内に「北高校」フォルダがあるとして、
>「北高校」フォルダ以下には各都道府県フォルダ内にしかExcelファイルが無いとして、
の部分なのですが、各都道府県と同じ階層には
xlsやzipファイルなどが存在しています。
その階層部分だけを書くと下記のようになります。
−千葉県
−東京都
−てすと.xls
−進路.zip
また、管理.xlsには千葉県だけの生徒情報がほしいのですが
”千葉県”というフォルダ指定にするにはどこを書き換えたらよいのでしょうか？
（転記先のほうはｓから書き換えさせていただきました）
どうぞ宜しくお願い致します。
>Sub test()
> Dim sFile As String
> Dim i As Long
> Dim fso As Object
>
> Set fso = CreateObject("Scripting.FileSystemObject")
> With Application.FileSearch
> .NewSearch
> .LookIn = ThisWorkbook.Path & "\北高校"
> .SearchSubFolders = True
> .FileName = "*.xls"
> .MatchTextExactly = True
> If .Execute() > 0 Then
> For i = 1 To .FoundFiles.Count
> sFile = fso.GetParentFolderName(.FoundFiles(i))
> sFile = "='" & sFile & "\[" & Dir(.FoundFiles(i)) & _
> "]情報'!"
> With Worksheets("千葉県").Cells(65536, 1).End(xlUp)
> .Offset(1).Formula = sFile & "R1C1"
> .Offset(1).Value = .Offset(1).Value
> .Offset(1, 1).Formula = sFile & "R1C2"
> .Offset(1, 1).Value = .Offset(1, 1).Value
> End With
> Next
> End If
> End With
> Set fso = Nothing
>End Sub
|
|
momo
- 07/6/14(木) 21:20 -
