Excel VBA質問箱 IV

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

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


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

【44844】フォルダ名を変えてもマクロが実行できるようにしたい。 masa 06/12/3(日) 15:09 質問[未読]
【44845】Re:フォルダ名を変えてもマクロが実行でき... かみちゃん 06/12/3(日) 15:18 発言[未読]

【44844】フォルダ名を変えてもマクロが実行できる...
質問  masa E-MAIL  - 06/12/3(日) 15:09 -

引用なし
パスワード
   ブックの中に 実績フォルダ と NEWフォルダ を作っています。
実績フォルダ名を 2006実績 と変更してマクロ(集計)を実行したところ
下記のところ
Windows("実績.xls").Activate
の部分でエラーが発生しました。2006実績 とフォルダ名に訂正すれば、マクロは
実行できるのですが、フォルダ名をいろいろな名前に変える度ごとに修正しなくてもいいようにしたいのです。お教えください。よろしくお願いします。
ちなみに、下記のように作っています。

2006実績フォルダを開いた状態で 下記のようにマクロ(集計)を実行しました。

Sub 集計()
'
' 集計 Macro
' マクロ記録日 : 2006/11/19 ユーザー名 :
'

'
Dim vbyn As Integer
  vbyn = MsgBox("一部連携していない部分がありますので了解してください!", vbOKCancel, "")
  Application.ScreenUpdating = False
Dim i As Integer
Dim Check As Integer
Dim mp As String
mp = ThisWorkbook.Path
Check = 0
  For i = 1 To Workbooks.Count
    If Workbooks(i).Name = "NEW.xls" Then
      Workbooks(i).Activate
      Check = 1
    End If
  Next i
  
If Check = 0 Then
  Workbooks.Open "" & mp & "\NEW.xls"
End If

Application.ScreenUpdating = False
 Windows("実績.xls").Activate ← この部分をフレキシブルに使えるように
したいのです。
 
 Sheets("資料").Select

【44845】Re:フォルダ名を変えてもマクロが実行で...
発言  かみちゃん  - 06/12/3(日) 15:18 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ブックの中に 実績フォルダ と NEWフォルダ を作っています。
>実績フォルダ名を 2006実績 と変更してマクロ(集計)を実行したところ
>下記のところ
>Windows("実績.xls").Activate
>の部分でエラーが発生しました。2006実績 とフォルダ名に訂正すれば、マクロは
>実行できるのですが、フォルダ名をいろいろな名前に変える度ごとに修正しなくてもいいようにしたい

フォルダ名は関係ないです。
開いているブック名が違うということはないですか?

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