Kopier ark fra Excel via VBA: Subscript out of range
Skal noget så simpelt som at kopiere et sheet fra et regneark til et andet.Har en procedure der åbner master-filen (xls-filen der skal kopieres fra), kopierer et bestemt sheet over i mit aktuelle fil, og lukker masterarket igen. Men jeg får en subscript out of range når jeg kører nedenstående kode - og jeg fatter simpelthen ikke hvorfor:
Først et par konstanter:
Const MasterFilePath = "C:\" '<-- Sti til masterregneark
Const MasterFileName = "Toolbox.xls" '<-- Filnavn på masterregneark
Min sub:
Sub copySheetFromMaster(SheetnameToCopy)
Dim WBName As String
Dim MasterFilenameAndPath As String
MasterFilenameAndPath = MasterFilePath & MasterFileName
WBName = ActiveWorkbook.Name
Workbooks.Open Filename:=MasterFilenameAndPath, ReadOnly:=True
Sheets(SheetnameToCopy).Select
Sheets(SheetnameToCopy).Copy BeFore:=Workbooks(WBName).Sheets(1)
Windows("MasterFileName").Activate '<FEJL: 9. Subscript out of range
ActiveWindow.Close False
Windows(WBName).Activate
Sheets(SheetnameToCopy).Activate
End Sub
Arket BLIVER kopieret, fejlen kommer først når jeg skal lukke masterarket. Synes det har virket tidligere. Hvad er fejlen mon?
