Excal VBA: Skifte mellem åbne workbooks
Jeg skal via VBA åbne en workbook (c:\Master.xls), kopiere nogle sheets til den aktuelle workbook, og så lukke master.xls igenDet fungerer fint, så længe den aktuelle workbook er gemt og har et navn, for så kan jeg bruge nedenstående kode. Men hvis man bare starter Excel, og køre min kode som det første, har den aktuelle workbook jo ikke noget navn osv.
Kode, der virker hvis workbooken ER gemt - men det er ikke godt nok... Det skal også virke hvis den IKKE er gemt - hvordan?
If Len(ActiveWorkbook.Path) < 1 Then
MsgBox "Du skal gemme din fil først"
Exit Sub
End If
If ActiveWorkbook Is Nothing Then
MsgBox "Du skal have et regneark åbent"
Exit Sub
End If
WBName = ActiveWorkbook.Name
Workbooks.Open Filename:=MasterFilenameAndPath, ReadOnly:=True
Sheets(SheetnameToCopy).Select
Sheets(SheetnameToCopy).Copy BeFore:=Workbooks(WBName).Sheets(1)
Windows(MasterFileName).Activate
ActiveWindow.Close False
Windows(WBName).Activate
