|
ブックの中に 実績フォルダ と 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
|
|