|
猛虎襲来 さん、こんばんは
A2のブックを開いたところで、
A2のブックがアクティブになってしまいます。
なので、
>Sub リストをもとに開く()
> ChDir "d:\集計\List"
> Sheets("一覧表").Select
> Dim namae As String
> For i = 2 To 15
↓の書き方では、A2のブックのセルを参照してしまうことが原因です。
> namae = Cells(i, 1)
ThisWorkbook.Worksheets("Sheet1").Cells(i, 1).Value
このように、ちゃんとブックから参照してやらないとダメです。
ブックから参照するようにすると、
「Sheets("一覧表").Select」は必要なくなります。
> If namae = "" Then
> Exit Sub
> Else
> Workbooks.Open FileName:=namae & ".xls"
↑ここも、「ChDir "d:\集計\List"」としないで、
ちゃんとフルパスでファイル名を入れた方がいいような気がします。
> End If
> Next i
>End Sub
どーかな?
|
|