Excel VBA質問箱 IV

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

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


9288 / 13644 ツリー ←次へ | 前へ→

【28192】ファイルを 05/8/30(火) 17:32 質問[未読]
【28195】Re:ファイルを りん 05/8/30(火) 18:19 回答[未読]
【28218】Re:ファイルを 05/8/31(水) 13:00 お礼[未読]

【28192】ファイルを
質問    - 05/8/30(火) 17:32 -

引用なし
パスワード
   初めて質問いたします。
不明な点がたくさんあるかと思いますがお願いします。

下記の方法でファイルをActiveにしたいです。
マクロを実行すると
 Windows("Filename").Activate
でエラーになります。
ここから前へ進まなくて頭が腫れそうです。
どなたかお助けください。

Dim folder As Variant
Dim myfile As String
  
  folder = Sheets("データ").Range("B1")
  myfile = Sheets("データ").Range("B2")
       
  FolderName = folder
  Filename = folder & "\" & myfile   
    
Windows("Filename").Activate

よろしくお願いします。

【28195】Re:ファイルを
回答  りん E-MAIL  - 05/8/30(火) 18:19 -

引用なし
パスワード
   は さん、こんばんわ。

>下記の方法でファイルをActiveにしたいです。
>マクロを実行すると
> Windows("Filename").Activate
>でエラーになります。
これでは、Filenameという名前のウィンドウを表示したいということになります。
ウィンドウのキャプションはブックの名前がそのままつきますので、キャプションをFilenameと指定しない限りエラーになります。

>Dim folder As String
>Dim myfile As String
>  
>  folder = Sheets("データ").Range("B1").Value
>  myfile = Sheets("データ").Range("B2").Value
>       
>  FolderName = folder
>  Filename = folder & "\" & myfile   

アクティブにしたいブックが既に開かれている状態であれば、
 Worksbooks(myfile).Activate
まだ開いていなければ、
 Workbooks.Open Filename
です。

【28218】Re:ファイルを
お礼    - 05/8/31(水) 13:00 -

引用なし
パスワード
   ▼りん さん:

できました。
ありがとうございました。
これで頭の腫れもひきます。
またよろしくお願いします。

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