|
2007で作成したマクロが2013で作動しなくて困っています。
例えば下記 フォルダー内のファイルを全て開くのですが、
以前何処かで頂いて来たものですが、2013ではどうしてうまく動かないのでしょうか?
他にも多くありますが、これを例に
2007と2010 2013で どんな所を修正すると良いのか
教えて下さい
宜しくお願い致します。
Sub 全て開く()
Application.ScreenUpdating = False
Dim FileName As String
Dim OpenedBook As Workbook
Dim IsBookOpen As Boolean
FileName = Dir("*.xlsm")
Do While FileName <> ""
If FileName <> ThisWorkbook.Name Then
IsBookOpen = False
For Each OpenedBook In Workbooks
If OpenedBook.Name = FileName Then
IsBookOpen = True
Exit For
End If
Next
If IsBookOpen = False Then
Workbooks.Open (FileName)
End If
End If
FileName = Dir()
Loop
Workbooks("メイン.xlsm").Activate
Application.ScreenUpdating = True
End Sub
|
|