---

Hallo,

ich hoffe mir kann jemand helfen. Ich möchte aus einem Macro heraus im Hintergrund eine von mir erstelle Excel-Vorlage öffnen, dort Werte abspeichern, ein Screenshot aus Catia einfügen und die Excel Datei dann unter einem vom Benutzer auswählbaren Dateinamen + Pfad abspeichern.
Kann mir jemand sagen, wie ich das machen kann? 
Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
erstmal ist hier der erste Baustein zum öffnen/schreiben/lesen/speichern/schließen der Excel Mappe.
Du solltest aber nicht vergessen einen Verweis auf "Microsoft Excel  XXX Object Library" zu setzen unter Tools/References.

mfG
Mario

Function MyFirstXLS()

    Dim sPath      As String
    Dim xlApp      As Excel.Application
    Dim xlBook      As Excel.Workbook
    Dim xlSheet    As Excel.Worksheet
    Dim sOutput    As String

   
     
    sPath = "C:\Test.xls"
   

    'Excel laden
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(sPath)
    Set xlSheet = xlBook.ActiveSheet      'Benutzt die Aktive Seite optional über Sheets eine andere Seite auswählen
   

    'Zelle schreiben
    xlSheet.Cells(1, 1)="Wert"

    'Zelle auslesen
    sOutput = xlSheet.Cells(1, 1)

   
    'xlBook.Save oder .SaveAs
    xlBook.Close
    xlApp.Quit
   
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
   

End Function

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Forum,

mit diesem Skript versuche ich, eine Excel-Datei per Makro zu öffnen. Es startet auch ein Prozeß namens Excel, die Excel-Oberfläche erscheint jedoch nicht und Excel wird auch nicht als ausgeführtes Programm im Taskmanager angezeigt.
Wenn ich den Prozeß manuell abbreche, erscheint manchmal die Fehlermeldung "Die Systemrichtlinien verhindern das laden des Manifests. Wenden Sie sich an den Administrator."
Hängen beide Sachen zusammen oder habe ich im Programm was übersehen? Gibt es eine Möglichkeit, Excel trotzdem per Makro zu öffnen?

    Dim sNummernvergabe    As String
    Dim xlApp      As Excel.Application
    Dim xlBook    As Excel.Workbook
    Dim xlSheet    As Excel.Worksheet
    Dim sOutput    As String

    sNummernvergabe = "U:\Identnummer\Nummernliste.xls"
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(sNummernvergabe)
    Set xlSheet = xlBook.ActiveSheet

Vielen Dank.

Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Versuch mal mit:
xlApp.Visible = True
sichtbar zu schalten.
Was passiert wenn Excel schon läuft (siehe auch Beispiel hier)?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

vielen Dank für den Tip, jetzt funktioniert es!

Grüße und schönes Wochenende
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP