cablit

Hi Phoenix, das ist schon ein bisschen allgemein, ohne Code ist es recht schwierig das zu beantworten ... aber im Prinzip läuft es so: Du initialisierst dir ein Word.Application-Objekt und ein zugehöriges Word.Document-Objekt und überträgst die Daten vom DataGrid in eine (neue) Tabelle im Word.Document (je nach dem, ob die Datei neu erzeugt wird oder bereits besteht bzw. evtl. die Tabelle schon vorhanden ist, oder dynamisch erstellt werden muss). Grüße

Hi Raw, wird dein WLAN-Adapter zufällig deaktiviert, um Energie zu sparen? (Eigenschaften des Adapters --> Energieverwaltung --> Haken bei "Computer kann Gerät ausschalten, um Energie zu sparen") Grüße

Hi Hannes, %systemroot%\System32\oobe\msoobe.exe --> die macht das Grüße

Hi Flamehead, evtl so (funktioniert aber nur auf WinXP oder W2K3): Set objPwd = CreateObject("ScriptPW.Password") WScript.StdOut.Write "Bitte Passwort eingeben:" strPWd = objPwd .GetPassword() Wscript.Echo Wscript.Echo "Das Passwort lautet:" & strPwd

Also das stelle ich mir dann so vor: Loginname: testuser12345 (wobei 12345 für das Passwort steht) Und wenn ich die Ursprungsfrage richtig verstanden habe, dann wollte Rolando wohl diesen Eintrag löschen und nicht seinen eigentlichen Login-Eintrag ...

Hi edu, kommuniziert die Telefonanlage irgendwie mit irgendeinem Rechner oder ist sie so gekapselt, dass es überhaupt keinen PC-Zugriff auf sie gibt? Haben die ISDN-Telefone eine Schnittstelle (USB, Seriell, o.ä.)? Grüße

Hai Rolando, das einfachste, diesen Eintrag herauszubekommen ist: IE öffnen, auf die Seite von GMX gehen, in dem Login-Bereich die Taste "Pfeil nach unten" drücken, zu deinem Eintrag (also dem Namen mit dem Kennwort hintendran) gehen und dann die DEL- oder ENTF-Taste drücken. Schon ist er gelöscht. Grüße

Hi Flamehead, du kannst mit objShell.RegWrite("HKLM\" &"Software\" & Now() & "", 1, "REG_BINARY") einen neuen Schlüssel (Reg-Key) anlegen. Grüße

Die fehlende DLL war nicht zufällig MSJAVA.DLL und die mit der fehlenden Funktion die MPR.DLL? Die Meldungen wären nämlich normal und hätten wenig Aussagekraft ... hast du die MathCad.Exe mal mit dem Dependency Walker geöffnet?

Hi Halabad, ich habe mit dem RunAs-Kommando auch verschiedene Probleme gehabt, bis ich auf RunAsSPC umgestiegen bin. Grüße

Da ich mal davon ausgehe, dass du beide Rechner mit ein und derselben CD installiert hast, denke ich, ist der Ansatz vom Hersteller wohl eher Ratlosigkeit ... hast du auf dem Rechner mit den Rechenfehlern MatheCAD mal deinstalliert und neu installiert? Hast du BS-seitig auf einem der beiden Rechner andere Updates installiert? Lass dir mal die DLL-Liste vom Hersteller geben, vielleicht findest du da Unterschiede.

Also wenn es Rechenfehler produziert, würde ich mal den Hersteller kontaktieren ... normalerweise sollte der wissen, wie sowas zustande kommt ... nebenbei: sind es identische Installationen / bzw. sind die benutzten DLL's von der selben Version (du kannst mit dem Dependency Walker herausfinden, welche EXE welche DLL/OCX/TLB/OLB-Datei(en) verwendet) auf den beiden Rechnern? Die Rechenfehler kommen IMO nicht aus der Registry.

Hi Kevin, wenn ich zwei Dateien miteinander vergleichen will, benutze ich am liebsten Compare It!. Damit kannst du natürlich auch reg-Dateien vergleichen. Grüße

Hi Kobald, hast du mal Reg Export HKEY_CURRENT_USER\PRINTERS\CONNECTIONS C:\TEST.REG ausprobiert? Grüße

PM ist inzwischen angekommen :) ... habe dir die Änderung geschickt ... dürfte jetzt kein Problem mehr sein, es sei denn, du kommst in den Bereich von BA, BB, BC etc. :) Grüße

Hi, bei Download Windows Symbol Packages findest du zu deinem BS und deinem Prozessor passende Symbol-Pakete. Dieses Paket bei dir installiert, erzeugt ein Symbols-Verzeichnis mit PDB- und DBG-Dateien. "If you have symbol information, you’d be able to see function names and their arguments in your call stack. If the binaries and PDBs are from your application, you’d additionally have information about private functions, local variables and type information." (aus Windows Debuggers: Part 1: A WinDbg Tutorial Grüße

Hi Viper, freut mich, dass es passt. Die PM ist leider nicht angekommen?! Grüße

Fortsetzung If InStr(1, strLineInput, "360 Capable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("360 Capable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "Legendary") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("Legendary = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "ObstructingSection") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("ObstructingSection = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "SpeedIncreasesBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("SpeedIncreasesBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "BaseSpeedBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("BaseSpeedBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "AccelerationBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("AccelerationBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "TurnRateBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("TurnRateBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "TorsoTwistRadiusBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("TorsoTwistRadiusBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "TorsoTwistSpeedBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("TorsoTwistSpeedBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "BaseTonnageBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("BaseTonnageBonus = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "InternalHeatSinksBonus") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("InternalHeatSinksBonus = ") + 1, Len(strLineInput)) End If lngPosCol = lngPosCol lngPosRow = lngPosRow Loop 'Datei schließen Close intFN 'Erfolgsmeldung MsgBox "Import abgeschlossen", vbInformation + vbOKOnly 'Fehlerbehandlung Exit_fctFillTableFromINI: Exit Function Error_fctFillTableFromINI: MsgBox "Es ist folgender Fehler (Nr: " & Err.Number & ") aufgetreten." & vbCrLf & vbCrLf & Err.Description Err.Clear Resume Exit_fctFillTableFromINI End Function

Private Function fctFillTableFromINI() Dim dlgFileOpen As FileDialog Dim strFileName As String Dim strLineInput As String Dim lngPosRow As Long Dim lngPosCol As Long Dim intFN As Integer On Error GoTo Error_fctFillTableFromINI lngPosRow = 2 lngPosCol = 97 'Dialog zum Datei öffnen anzeigen Set dlgFileOpen = Application.FileDialog(msoFileDialogOpen) With dlgFileOpen .AllowMultiSelect = False .ButtonName = "INI-Datei auswählen" .Filters.Add "INI-Dateien", "*.ini" If .Show = -1 Then If .SelectedItems.Count <= 0 Then MsgBox "Es wurde keine Datei ausgewählt!", vbInformation + vbOKOnly, "Keine Datei ausgewählt" Exit Function Else strFileName = .SelectedItems End If End If End With 'Dateieinlesen vorbereiten intFN = FreeFile Open strFileName For Input As intFN 'Datei zeilenweise einlesen und in das Sheet einfügen Do While Not EOF(intFN) Line Input #intFN, strLineInput If Left(strLineInput, 1) = "[" Then Range(CStr(Chr(lngPosCol) & lngPosRow)).Select ActiveCell.FormulaR1C1 = Mid(strLineInput, 2, Len(strLineInput) - 2) ElseIf strLineInput <> "" Then Range(CStr(Chr(lngPosCol) & lngPosRow)).Select If InStr(1, strLineInput, "Weight") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("Weight = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "Tech") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("Tech = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "Internal") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("Internal = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "BaseEngineRating") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("BaseEngineRating = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "LegType") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("LegType = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "TorsoType") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("TorsoType = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "StockEngineRating") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("StockEngineRating = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "JJCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("JJCapable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "LAMSCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("LAMSCapable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "ECMCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("ECMCapable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "BAPCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("BAPCapable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "IFFCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("IFFCapable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "EOCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("EOCapable = ") + 1, Len(strLineInput)) If InStr(1, strLineInput, "AGCapable") > 0 Then ActiveCell.FormulaR1C1 = Mid(strLineInput, Len("AGCapable = ") + 1, Len(strLineInput))

Hi Viper, hab mal was geschrieben, das passt bei mir soweit. Den Header also was in Zeile 1 alles steht, füllst du am besten schon vorher aus (NAME___________|Weight|Tech|Internal__|...). Den Code, den ich geschrieben habe, kannst du von einem Makro aus aufrufen, da ist jetzt kein API-Call mehr drin. Den Code selbst fügst du einfach in dein Worksheet ein. (Code im zweiten Posting, da zu lang) Solltest du noch Fragen haben, kannst du sie gern stellen :D Grüße

Hi Viper, ich würde dir ne Funktion schreiben, die die Datei ausliest. Kann ich aber erst heut abend machen. Hoffe, das reicht dir noch. Grüße

Hi hwimmer, Mach mal ein Windows-Explorer-Fenster auf, geh dort auf "Extras" --> "Ordneroptionen" --> "Dateitypen". In der Liste mit den "Registrierten Dateitypen" wählst du z.B. Doc aus. Jetzt kannst du sehen, mit welchem Programm standardmäßig Doc-Dateien geöffnet werden. Steht hier nichts oder etwas anderes wie "Microsoft Word" klicke auf "Ändern", dann kannst du das Programm aus der Liste auswählen, mit dem die Datei geöffnet werden soll. Grüße

Na das freut mich zu hören. Hoch die Tassen :p

Wenn du die Regel(n) erstellt hast, kannst du einfach "Anwenden" auswählen ... die Regel wird dann übernommen ist bis zum Deaktiviern entsprechend aktiv.

Doch, mit API-Calls ist es einfacher, aber im reinen Code eben ... Makros sind bei API-Calls einfach anfällig (unerklärliche Abstürze oder unerwartetes Verhalten / Ergebnisse). Für einen kompletten Code zum Auslesen der INI und befüllen deines Excel-Sheets bräuchte ich ein paar mehr Angaben und ein bisschen mehr Zeit ;) ... am besten dann über PM. Grüße