マクロとして保存すると正常に動作する単純なモジュールを VBA で作成しましたが、同じものをアドインとして保存して実行すると、動作がおかしくなりました。Error: Method "Move" of object "Sheets" failed が表示され、ファイル番号 1 (コードでは x=1) からシートが開かれます。
助けてくれてありがとう。MS Excel のセキュリティ問題をチェックするために別のシステムで試したことはありませんが、コードやシート スルー パスワードをロックしていません。
コード:
Sub opensheets()
Dim openfiles
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
openfiles = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls;*.xlsx),*.xls;*.xlsx", _
MultiSelect:=True, Title:="Select Excel files!")
If TypeName(openfiles) = "Boolean" Then
MsgBox "You need to select atleast one file"
GoTo ExitHandler
End If
x = 1
While x <= UBound(openfiles)
Workbooks.Open Filename:=openfiles(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub