|
Excel : Excel von vbs aus starten
Axel.Strasser am 09.04.2009 um 09:08 Uhr (0)
Um Datenauswertungen zu machen habe ich verschiedene vbs Scripts in denen mir eine Exceldatei erzeigt werden. Diese laufen teilweise lange und jetzt habe ich das Problem dass ich während der Laufzeit Excel nicht interaktiv starten kann. Er scheint dann immer auf die gleiche Excel Instanz zuzugreifen.Ich starte Excel im vbs mit:Code:Set objXL = WScript.CreateObject("Excel.Application")..ExcelFile = OutDir & "Auswertung.xlsx" Excel Datei..Set objWB = objXL.WorkbooksobjXL.Visible = FalseobjWB.Add (xlWBAT ...
|
| In das Form Excel wechseln |
|
Excel : Excel von vbs aus starten
Axel.Strasser am 09.04.2009 um 11:23 Uhr (0)
Ich habe jetzt den Code noch umgeändert und die ganzen "activ" Sachen eliminiert:Code:ExcelFile = OutDir & "Auswertung.xlsx"Set objXL = WScript.CreateObject("Excel.Application")objXL.Visible = FalseSet objWB = objXL.Workbooks.AddobjWB.SaveAs ExcelFileobjWB.Closeset objWB = objXL.WorkBooks.Open(Excelfile).. set objWS = objWB.WorkSheets(1)With objWS...Damit sollte IMHO die Zuordnung zur Datei und zum Blatt eindeutig sein. Das läuft soweit gut, sobald ich aber während der Laufzeit wieder eine andere Excel Dat ...
|
| In das Form Excel wechseln |
|
Excel : Excel von vbs aus starten
Axel.Strasser am 16.04.2009 um 09:38 Uhr (0)
Also nur für die, die es mal brauchen, ich konnte es über einen Trick lösen:Code:set objXL_1 = WScript.CreateObject("Excel.Application")Set objXL_2 = WScript.CreateObject("Excel.Application")objXL_1.UserControl = FalseobjXL_1.Interactive = TrueobjXL_1.ScreenUpdating = FalseobjXL_1.Visible = FalseSet objWB = objXL_1.Workbooks.AddSet objWS = objWB.Worksheets.Add...objWB.SaveAs ExcelFileobjWB.CloseobjXL_1.quitset objXL_1 = Nothing objXL_2.UserControl = TrueobjXL_2.Interactive = TrueobjXL_2.ScreenUpdating = Tr ...
|
| In das Form Excel wechseln |
|
Excel : Schreibschutz
Axel.Strasser am 30.04.2009 um 14:33 Uhr (0)
Dann nimm noch das Häkchen raus beim Blatt schützen "geschützte Zellen auswählen"Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Berechnungsformeln auslesen?
Axel.Strasser am 18.08.2009 um 14:50 Uhr (0)
Nun ich würde das als Aufruf zu einer illegalen Handlung bezeichnen. Der die Datei erstellt hat hat seine Makros (KnowHow) mit einem Passwort vor Einsicht geschützt und Du willst jetzt wissen wie man diesen Schutz umgeht Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Daten aus bestehnder XLS-Datei in zweiter abrufbar
Axel.Strasser am 09.03.2010 um 11:28 Uhr (0)
Importieren kannst Du immer über Kopieren / Einfügen.Du kannst aber auch die Pivot Tabellen Funktionalität benutzen um Daten zusammen auszuwerten.Ansonsten solltest Du noch etwas zu Deiner Excel Version sagen.Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Notepad mit Excel-VBA steuern
Axel.Strasser am 18.05.2010 um 22:22 Uhr (0)
Ohne Deine genauen Anforderungen zu kenne kann ich Dir nur ein generelles Stück Code geben, mit dem Du dann mal selbst weiterschauen musst:Code:set wshshell = CreateObject("WScript.Shell")set fs = CreateObject("Scripting.FileSystemObject")Textstring = "Dies ist ein text"MsgBox Textstring Ergebnis in eine Datei schreiben:dateiname = "C: ext.txt"set datei = fs.CreateTextFile(dateiname, true)datei.Write Textstringdatei.closeAxel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Notepad mit Excel-VBA steuern
Axel.Strasser am 19.05.2010 um 10:50 Uhr (0)
Set Datei = fs.createtextfile(VARIABLE, True)Und noch als Hinweis: vergiss den Pfad in der Zelle nicht Axel ------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Datum konvertieren
Axel.Strasser am 08.06.2010 um 22:16 Uhr (1)
@Mike,ich bekomme die Datei als excelfile und die Datumsspalte ist Text. Ich hatte es zuerst auch so versucht, aber ich muss es zuerst "konvertieren, bevor ich es umformatieren kann. Wenn es mal sauber ein Datumsformat ist, weiss ich schon was machen, dann kommt ja noch die engl./dt. Monatsbezeichnungen dazu.@Bernd,danke, werde Dein Makro morgen mal ausprobieren. Hatte gehofft dass es da einen Trick ohne Makro gibt.Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Symbolleisten ab Excel 2007
Axel.Strasser am 13.07.2010 um 22:14 Uhr (0)
Hallo Nepumuk,danke für Deine Antwort, ich habe mir beide Dsteien nochmal runtergeladen und mit zip umbenannt. In beiden zips ist da CustomUI Verzeichnis drin, die Datei darin heisst nur customUI14.xml. Ich habe es inzwischen noch mal zuhause probiert und da geht es, es ist aber 2010 , ich nehme an die Syntax stimmt nicht für 2007, ich muss es jetzt noch mal morgen auf dem anderen Rechner mit 2007 versuchen. Die Syntax von 2007 scheint auch im 2010 zu laufen umgekehrt anscheinend nicht. Was ich bislang fes ...
|
| In das Form Excel wechseln |
|
Excel : Symbolleisten ab Excel 2007
Axel.Strasser am 14.07.2010 um 08:29 Uhr (0)
So jetzt konnte ich mit 2007 testen. Es geht jetzt auch dort. Ich habe in meinen Dateien die 2010 Syntax drin und die geht nicht mit 2007. Mit der 2007 Syntax gehts auch in 2010. In 2010 heisst das Verzeichnis customUI14 und die Datei customUI14.xml in 2007 customUI bzw. customUI.xmlFazit: Besser 2007 Syntax nehmen.Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de[Diese Nachricht wurde von Axel.Strasser am 14. Jul. 2010 editiert.]
|
| In das Form Excel wechseln |
|
Excel : Letzte Zeile in Tabelle ermitteln und in Tabelle ausgeben
Axel.Strasser am 07.12.2010 um 12:03 Uhr (0)
Ich nehme mala an mit Register meinst Du Blätter.Mal als Ansatz: das folgende Makro fügt ein weiteres Tabellenblatt "Inhalt" hinzu und listet alle enthaltenen Blätter dieser Datei aufCode:Sub inhalt()Sheets(1).SelectSheets.AddSheets(1).Name = "Inhalt"z = 1For Each w In WorksheetsIf w.Index 1 Then Range("a" & z - 1).Value = w.Namez = z + 1Next wEnd SubAxel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Mittelwert aus Datei
Axel.Strasser am 10.08.2012 um 12:00 Uhr (0)
Na sehr viel klarer sind Deine Anforderung nicht geworden . Erwartest Du jetzt dass Du dafür eine fixfertige Lösung hier bekommst ? Versuch doch mal Deine Schritte mit einem Makro aufzunehmen und dann den Code zu verallgemeinern / auszubauen. Da kannst Du dann spezielle Fragen stellen, die wahrscheinlich gerne und konkret beantwortet werden.Axel ------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de[Diese Nachricht wurde von Axel.Strasser am 10. Aug. 2012 editiert.]
|
| In das Form Excel wechseln |
