Einzelnen Beitrag anzeigen

ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#1

Marko Problem, Hinweisfenster automatisieren

  Alt 14. Aug 2008, 11:01
Hallo,

ich schreibe gerade in Excel ein Makro das folgendes macht:

Öffnet eine bestimmte Excel Datei (B)
Kopiert dort bestimmte Spalten in die Zwischenablage
Fügt diese Spalten in Excel Datei (A) ein
Schließt Excel Datei (B) wieder.


So jetzt mein Problem:
Wenn ich die Excel Datei B schließen will, kommen zwei Fenster:
1) Wollen sie das Excel Speichern --> Ich will das automatisch Nein gewählt wird, bzw. das Fenster gar nicht kommt
2) In der Zwischenablage gibts viel drin, soll es nach dem schließen noch verfügbar sein --> deto wie 1


kann mir wer helfen wie ich das realisiere?


Mein VBA Script bis jetzt:


Code:
Option Explicit


Sub Button_Formatieren()
    '

'  Alles löschen
    Cells.Select
    Selection.ClearContents
       
' Öffne das zu formatierend File und kopiere Inhalt herüber
    Workbooks.Open Filename:="N:\afile.xls"
    Sheets(2).Select
    Range("A5:K20000").Select
    Selection.Copy
    Windows("Transform_DB_Budget.xls").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Windows("afile.xls").Activate
    ActiveWindow.Close

' ### --> Bei der Close Anweisung kommen die Fenster ###
   
End Sub
  Mit Zitat antworten Zitat