|
▼あみん さん:
>フォルダに10個ほどのファイルがあります。
>各ファイルのSheet1のA1:A10には日にち(例:16日)が入っており
>B1:B10には金額(例:\12000)が入っています。
>もし検索で16日があれば
>worksheets("宿泊")、のA列にファイル名を、金額をB列に書いていきたいのです。
ある場合は、16日の横(B列)の金額を書くの?
>なければworksheets("確認")のA列にファイル名を、金額をB列に書いていきたいのです。
の意味ならば、ない場合、何の金額を書けばよいのでしょうか?
それと"16日"は、文字列でしょうか?
それともシリアルの日だけを表示しているのでしょうか?
Sub 転記()
Dim thname As String
Dim theDir As String
Dim thebk As Workbook
Dim FR As Variant
Application.ScreenUpdating = False
theDir = "\\cara\コンビ\料金一覧"
thname = Dir(theDir & "\*.xls")
Do While thname <> ""
Set thebk = Workbooks.Open(theDir & "\" & thname)
FR = Application.Match("16日", thebk.Worksheets("Sheet1").Range("A1:A10"), 0)
If IsError(FR) Then
With ThisWorkbook.Sheets("確認").Range("A65536").End(xlUp).Offset(1)
.Value = thebk.Name
End With
Else
With ThisWorkbook.Sheets("宿泊").Range("A65536").End(xlUp).Offset(1)
.Value = thebk.Name
.Offset(, 1).Value = thebk.Worksheets("Sheet1").Cells(FR, 2).Value
End With
End If
thebk.Close savechanges:=False
thname = Dir()
Loop
Application.ScreenUpdating = True
End Sub
|
|