Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vbs script funktioniert nicht mehr

vbs script funktioniert nicht mehr
13.12.2012 08:30:54
Snewi
Moin,
ich habe auf meinem Rechner Excel 2003 und Excel 2007 installiert!
Nun habe ein vbs Script was die ganze Zeit funktioniert hat und meine .xlsm Datei geöffnet hat! Seit neuestem wird aber Excel 2003 geöffnet und nicht mehr das 2007!
Muss ich am Script was ändern?

Dim objExcel
Dim objWorkbook
Set objExcel = CreateObject("excel.application")
Set objWorkbook = objExcel.Workbooks.Open("U:\Berichte\Zeit_Ber.xlsm")
objExcel.Visible = True
objExcel.DisplayAlerts = False
objWorkbook.Close
Danke und Gruß

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ins blaue geraten:
13.12.2012 08:40:44
Klaus
Hi Snewi,
womit öffnet sich denn ein Excelsheet, wenn du einfach im Windows-Explorer doppelclickst? Auch mit 2003? Wenn ja, dann setze hier einfach über "öffnen mit" das Standardprogramm auf "2007".
Keine Ahnung ob vbs sich von den Windows-Dateieinstellungen beeindrucken lässt, aber einen Versuch ist es Wert (sind ja nur ein paar clicks).
Grüße,
Klaus M.vdT.

AW: ins blaue geraten:
13.12.2012 09:31:56
Snewi
Nein dann mit 2007, mit 2003 nur wenn ich das manuell vorher öffne!
Hab den Dateityp mal umgestellt, trotzdem gehts nicht :-(
Gruß

AW: ins blaue geraten:
13.12.2012 14:27:19
Ralf_P
Hallo Snewi,
bei 2 Excelversionen muss man ggf. genau referenzieren, welche starten soll.
Es gibt den Schlüssel
"\HKEY_LOCAL_MASCHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ App Paths\Excel.exe" - "Path"
Vielleicht hilft das weiter.
Sub Test()
Dim xlAnw As Object
Set xlAnw = CreateObject("excel.application")
MsgBox xlAnw.version & " " & xlAnw.Path
Set xlAnw = Nothing
End Sub

Gruß Ralf

Anzeige
AW: ins blaue geraten:
14.12.2012 08:33:58
Snewi
Guten Morgen,
@Ralf du hattest recht, bei mir wird Excel 2003 angezeigt! Warum auch immer aufeinmal :-(
Hab den Path mal auf Excel 12.0 zeigen lassen es wird aber irgendwie nicht übernommen!
Dein Code zeigt immer noch Excel 2003 an :-(
Userbild
Was muss ich hier tun?
Gruß

Anzeige
AW: ins blaue geraten:
14.12.2012 10:12:38
Ralf_P
Hallo Snewi,
speicher doch mal folgenden Code als ChkOffice.vbs und starte das script:
Dim WSHShell, objFSO, textout
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")
Dim part(4,1)
part(0,0) = "Word" : part(1,1) = "WINWORD.EXE"
part(1,0) = "Excel" : part(2,1) = "EXCEL.EXE"
part(2,0) = "Outlook" : part(4,1) = "OUTLOOK.EXE"
part(3,0) = "PowerPoint" : part(0,1) = "POWERPNT.EXE"
part(4,0) = "Access" : part(3,1) = "MSACCESS.EXE"
textout = "Installierte Office-Anwendungen:" & vbCRLF & vbCRLF
Call ChkOffice("11.0","2003")
Call ChkOffice("10.0","XP")
Call ChkOffice("9.0", "2000")
Call ChkOffice("8.0", "97")
MsgBox textout,64,"CheckOffice.vbs"
Function ChkOffice(ver, verfull)
Dim pfad, res, helptext
On Error Resume Next
pfad = "HKLM\Software\Microsoft\Office\" & ver & "\Common\InstallRoot\Path"
res = WSHShell.RegRead(pfad)
If res  "" Then
For i = 0 to 4
If objFSO.FileExists(res&part(i,1)) Then
helptext = part(i,0) & Space(1) & verfull & "  (" & objFSO.GetFileVersion(res&part(i,1))&")" _
textout = textout & helptext & vbCRLF
End If
Next
textout = textout & vbCRLF
End If
End Function

Hier wurde das Thema auch behandelt:
http://www.office-loesung.de/ftopic468455_0_0_asc.php
VG, Ralf

Anzeige
AW: ins blaue geraten:
14.12.2012 10:51:58
Snewi
Es kommt der Fehler Typen unverträglich: "CHKOffice"
Mach bestimmt was falsch, was mache ich mit der Function?
Gruß

AW: ins blaue geraten:
14.12.2012 13:21:54
Ralf_P
wird nur falsch dargestellt,
den gesamten Text
von
Dim WSHShell, objFSO, textout
bis
End Function
in den Editor kopieren und als ChkOffice.vbs speichern und ausführen.
Hier kanns Du auch nachlesen:
http://www.office2010-hilfe.de/knowledge/kb_show.php?id=55
VG, Ralf

falscher Code, 2007 vergessen
14.12.2012 10:16:59
Ralf_P
Hallo Snewi,
habe 2007 nachgetragen:
Dim WSHShell, objFSO, textout
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")
Dim part(4,1)
part(0,0) = "Word" : part(1,1) = "WINWORD.EXE"
part(1,0) = "Excel" : part(2,1) = "EXCEL.EXE"
part(2,0) = "Outlook" : part(4,1) = "OUTLOOK.EXE"
part(3,0) = "PowerPoint" : part(0,1) = "POWERPNT.EXE"
part(4,0) = "Access" : part(3,1) = "MSACCESS.EXE"
textout = "Installierte Office-Anwendungen:" & vbCRLF & vbCRLF
Call ChkOffice("12.0","2007")
Call ChkOffice("11.0","2003")
Call ChkOffice("10.0","XP")
Call ChkOffice("9.0", "2000")
Call ChkOffice("8.0", "97")
MsgBox textout,64,"CheckOffice.vbs"
Function ChkOffice(ver, verfull)
Dim pfad, res, helptext
On Error Resume Next
pfad = "HKLM\Software\Microsoft\Office\" & ver & "\Common\InstallRoot\Path"
res = WSHShell.RegRead(pfad)
If res  "" Then
For i = 0 to 4
If objFSO.FileExists(res&part(i,1)) Then
helptext = part(i,0) & Space(1) & verfull & "  (" & objFSO.GetFileVersion(res&part(i,1))&")" _
textout = textout & helptext & vbCRLF
End If
Next
textout = textout & vbCRLF
End If
End Function

Anzeige
AW: falscher Code, 2007 vergessen
14.12.2012 12:52:22
Snewi
Hab jetzt einfach mal Excel 2003 deinstalliert! Aber nun wird keine Datei mehr von 2007 erkannt!
Ich kann auch in den Ordneroptionen die Dateiendung nicht zuweisen!
Oh mann was kann ich noch tun?
Gruß

AW: falscher Code, 2007 vergessen
14.12.2012 14:12:56
Snewi
So habs mit ner Office Reperatur versucht jetzt gehts wieder :-) Danke und geschlossen

309 Forumthreads zu ähnlichen Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Anzeige
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Tabelle in einer Zelle
Urs

Hallo Excel - Kenner
Eine bescheidene, vielleicht auch dumme Frage:
Kann man eine Tabelle in einer Zelle haben..
So dass ich eigentlich z.B. immer die Zelle A1 offen hätte aber darin meine Tabelle hätte..
Vielen Dank und bis denn
23.10.2008 22:06:04
Thread-ID: 1018815
4 Beiträge
Pivottabelle wird nicht mehr geupdated / Makro
Brigitte

Hallo,
wir führen eine Call Statistik, die wöchentlich aktualisiert wird.
Es gibt eine Sheet "Rohdaten", wo wöchentlich die neuen Calls hinzukommen.
Mit einem Makro wird eine Pivot Tabelle geupdatet; es gibt dazu dann noch Charts.
Letzten Montag haben wir 72 neue Rows hinzugefü...
24.10.2008 15:17:20
Thread-ID: 1019036
4 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
7
2
3
3
1
4
3
3
2
1
11
1
7
2
5
6
3
6
2
2
5
18
3
10