Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7451 / 76732

←次へ　｜　前へ→


	【74868】アクティブにするには

abc - 13/10/14(月) 1:43 -


	引用なし

	パスワード

度々すみません。

ファイルを開くことはできたのですが、なぜか元々から開いているファイルの方がアクティブになってしまい、どうしても新しく開いた方のファイルがアクティブになりません。
やりたい事は、最初にいくつか入ったフォルダの中のブックのセルを参照し、そのセルが実行であれば実行ブックを開き、実行ブックのデータを書き換えるといった事をしたいのですが、このコードを実行しても一番最初に開いているブックのセルしか参照してくれません。

どこが悪いでしょうか？

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

よろしくお願いします。

314 hits

▼

【74868】アクティブにするには abc 13/10/14(月) 1:43

≪