Ich habe ein bischen etwas zuzammen geschrieben, functioniert wunderbar bei mir (Version 10.0 Office XP)
Bei mein Deutsche Kollegen (mit 9.0 Office 2000) klappt es nicht.
Der Datei C:\Coperion-GBM-soft.Xls wird angelegt mit die bestimmte Formatierungen. Etwas ein Kopieren macht er leider nicht!
Wer kan mich Helfen?
Danke im Vorhaus
Ich habe den
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