|
初心者なもので間違えてフォルダとブックを間違えて表記しました。
フォルダ(事務処理)の内に、実績ブックと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
|
|