| |
猛虎襲来 さん、こんばんは
Ａ２のブックを開いたところで、
Ａ２のブックがアクティブになってしまいます。
なので、
>Sub リストをもとに開く()
> ChDir "d:\集計\List"
> Sheets("一覧表").Select
> Dim namae As String
> For i = 2 To 15
↓の書き方では、Ａ２のブックのセルを参照してしまうことが原因です。
> 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
どーかな？
|
|
- 03/11/5(水) 22:01 -
