|
度々すみません。
ファイルを開くことはできたのですが、なぜか元々から開いているファイルの方がアクティブになってしまい、どうしても新しく開いた方のファイルがアクティブになりません。
やりたい事は、最初にいくつか入ったフォルダの中のブックのセルを参照し、そのセルが実行であれば実行ブックを開き、実行ブックのデータを書き換えるといった事をしたいのですが、このコードを実行しても一番最初に開いているブックのセルしか参照してくれません。
どこが悪いでしょうか?
Sub test()
Dim mypath As String, mybook As String
Dim i As Integer, a As Integer, b As Integer, c As Integer
mypath = "c:\保存している場所\"
mybook = Dir(mypath & "*.xls")
Workbooks.Open Filename:=mypath & mybook
i = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "実行" Then
a = Cells(i, 3)
b = Cells(i, 4)
c = Cells(i, 5)
Workbooks.Open Filename:=実行ブック
処理
mybook = Dir()
Loop
End Sub
よろしくお願いします。
|
|