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


よろしくお願いします。

312 hits

【74868】アクティブにするには abc 13/10/14(月) 1:43 質問
【74869】Re:アクティブにするには γ 13/10/14(月) 9:09 発言
【74870】Re:アクティブにするには abc 13/10/14(月) 17:54 質問
【74871】Re:アクティブにするには γ 13/10/14(月) 18:19 発言
【74878】Re:アクティブにするには γ 13/10/19(土) 20:08 発言

7451 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free