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

... Scheinbar funktionierte die TAB Taste nicht und ich gab aus versehen mein Passwort direkt hinter dem Benutzernamen ein...

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