Kopieren in 9.0 Office 2000

Sub mal kopiert:

Sub Maak_Gbm_Data()  'Maakt een nieuwe file Gbm-Data.xls
Dim OpenForms
Application.StatusBar = "Make New Xls-File!"
Application.ScreenUpdating = False
On Error Resume Next
Kill "C:\Coperion-GBM-soft.Xls" ' Verwijderd de bestaande Gbm-Data.xls file indien deze bestaat.
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Coperion-GBM-soft.Xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = False  ' Zorgt dat er geen popup komt die vraagt of selectie mag verwijderd worden.
For counter = Sheets.Count To 1 Step -1   'verwijderd alle bladen behalve 'Blad1'
If Sheets(counter).Name <> ActiveSheet.Name Then
Sheets(counter).Delete
End If
Next
ActiveSheet.Name = "  GBM-Files  " 'Voegt blad toe en geeft deze een naam
Sheets.Add
ActiveSheet.Name = "  Chart1  "   'Voegt blad toe en geeft deze een naam
Sheets.Add
ActiveSheet.Name = "  Chart2  "   'Voegt blad toe en geeft deze een naam
Sheets.Add
ActiveSheet.Name = "  Chart3  "   'Voegt blad toe en geeft deze een naam
Sheets.Add
ActiveSheet.Name = "  Chart4  "   'Voegt blad toe en geeft deze een naam
' Opslaan van de data in GBM-Data.xls
Windows("GBM.xls").Activate
Sheets("Data").Select
Columns("A:X").Select
Selection.Copy
Windows("Coperion-GBM-soft.Xls").Activate
Sheets("  GBM-Files  ").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
' Opslaan van de grafieken in GBM-Data.xls
Windows("GBM.xls").Activate
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
Windows("Coperion-GBM-soft.Xls").Activate
Sheets("  Chart1  ").Select
ActiveSheet.Paste
Windows("GBM.xls").Activate
ActiveSheet.ChartObjects("Grafiek 2").Activate
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
Windows("Coperion-GBM-soft.Xls").Activate
Sheets("  Chart2  ").Select
ActiveSheet.Paste
Windows("GBM.xls").Activate
ActiveSheet.ChartObjects("Grafiek 3").Activate
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
Windows("Coperion-GBM-soft.Xls").Activate
Sheets("  Chart3  ").Select
ActiveSheet.Paste
Windows("GBM.xls").Activate
ActiveSheet.ChartObjects("Grafiek 4").Activate
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
Windows("Coperion-GBM-soft.Xls").Activate
Sheets("  Chart4  ").Select
ActiveSheet.Paste
' Informatiegegevens kopiëren
Windows("GBM.xls").Activate
Sheets("Selectie").Range("A60:J66").Copy
Windows("Coperion-GBM-soft.xls").Activate
Sheets("  Chart1  ").Select
ActiveSheet.Range("B30").Insert
Windows("GBM.xls").Activate
Sheets("Selectie").Range("A60:J66").Copy
Windows("Coperion-GBM-soft.xls").Activate
Sheets("  Chart2  ").Select
ActiveSheet.Range("B30").Insert
Windows("GBM.xls").Activate
Sheets("Selectie").Range("A60:J66").Copy
Windows("Coperion-GBM-soft.xls").Activate
Sheets("  Chart3  ").Select
ActiveSheet.Range("B30").Insert
Windows("GBM.xls").Activate
Sheets("Selectie").Range("A60:J66").Copy
Windows("Coperion-GBM-soft.xls").Activate
Sheets("  Chart4  ").Select
ActiveSheet.Range("B30").Insert
Windows("GBM.xls").Activate
Sheets("Selectie").Range("A60:J66").Copy
Windows("Coperion-GBM-soft.xls").Activate
Sheets("  GBM-Files  ").Select
ActiveSheet.Range("Z2").Insert
'ActiveWorkbook.BreakLink Name:="C:\GBM\GBM.xls", Type:=xlExcelLinks 'Link naar bronbestand verwijderen
Application.ScreenUpdating = True
OpenForms = DoEvents   ' vermijd witte vlekken tijdens het sluiten.
Application.Dialogs(xlDialogSaveAs).Show ("*.xls")
Application.ScreenUpdating = False
ActiveWorkbook.Close
Kill "C:\Coperion-GBM-soft.Xls" ' Verwijderd de bestaande "Coperion-GBM-soft.xls" file indien deze bestaat.
Application.ScreenUpdating = True
End Sub