1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. ru642

Beiträge von ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 15. Januar 2013 um 13:32

    Hab da ein kleines Probelm:

    >C:\program files\autoit3\autoit3.exe "C:\Users\dacohelpdesk\Desktop\test\Exel converter - Kopie.au3"
    Der Befehl "C:\program" ist entweder falsch geschrieben oder
    konnte nicht gefunden werden.
    >Exit code: 1 Time: 0.381

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 15. Januar 2013 um 13:08

    Mit deinem neuen Script wird gar nichts mehr erstellt geschweige denn verschoben. Es gibt keinen Fehler.
    Wärs villeicht möglich auf der Basis in der mein Script steht kleine Veränderungen zu machen die Grosses bewirken?

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 15. Januar 2013 um 11:36

    Ich nutze jetzt doch Exel. Da ich es mit Open Office nicht hinkriege.

    Naja ne Exel Lizenz ist ja im Grunde keine herausgeworfenes Geld da man es ja trotzdem immer mal brauchen kann =D

    Kannst du dir den Script vielleicht mal anschauen. Könnte daran liegen das beim Check von $Filelist ein Problem auftritt. Hier der Script:

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>
    Local $folder = "C:\Users\dacohelpdesk\Desktop\test\Input"
    Local $FileList = _FileListToArray($folder, '*.xls', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    If StringRight($FileList[$i],3) = "xls" Then
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 4), "txt")
    If FileExists("C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & $FileList[$i]) = 1 Then FileMove ($folder & '\' & "*.xls", "C:\Users\dacohelpdesk\Desktop\test\Archiv") ; Stimmt das so? Bei $Filelist wird ja auch ein Pfad mitgegeben.
    Else
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 5), "txt") ;, 0, 1, "ReadOnly") ; für xlsx
    If FileExists("C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & $FileList[$i]) = 1 Then FileMove ($folder & '\' & "*.xlsx", "C:\Users\dacohelpdesk\Desktop\test\Archiv")
    EndIf
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit]
  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 15. Januar 2013 um 10:29

    Nein der Script funktioniert noch nicht wie er sollte. Die Exel Daten werden nach dem erstellen der txt Datei nich verschoben. Ablauf wäre wie folgt:

    Exel Daten werden zu Datendateien verarbeitet.--> Kontrolle an Exel und Datendatei wenn gleicher Name vorhanden dann Exel ins Archiv verschieben.

    LG Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 14. Januar 2013 um 11:43

    Es werden mit deinem Script keine Daten verschoben ins Archiv. Könnte daran liegen das $FileList auch schon ein Pfad hat.

    LG Ru642

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>
    Local $folder = "C:\Users\dacohelpdesk\Desktop\test\Input"
    Local $FileList = _FileListToArray($folder, '*.xls', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    If StringRight($FileList[$i],3) = "xls" Then
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 4), "txt")
    If FileExists("C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & $FileList[$i]) == 1 Then FileMove ($folder & '\' & "*.xls", "C:\Users\dacohelpdesk\Desktop\test\Archiv") ; Stimmt das so? Bei $Filelist wird ja auch ein Pfad mitgegeben.
    Else
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 5), "txt") ;, 0, 1, "ReadOnly") ; für xlsx
    If FileExists("C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & $FileList[$i]) == 1 Then FileMove ($folder & '\' & "*.xlsx", "C:\Users\dacohelpdesk\Desktop\test\Archiv")
    EndIf
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit]
  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 13:58

    Habs mir auch nur zum testen gezogen. Es wäre wirklich genial wenn du es dir zu testzwecken ziehen würdes fänd ich extrem cool. Wenn du das vielleicht auch schnell testen kannst.
    Dann hätt ich wenigstens jemand der sich n bissl auskennt :thumbup:
    Lg Ru642

    Edit: Du musst natürlich nicht :D . Nun möchte ich aber noch schnell das mit dem Filemove anschauen. Wenn ich das so einfüge geht das schon aber nicht so wie ich möchte. Es sollte eine Abfrage geben ob die Excel Datei zum txt file geändert und abgespeichert wurde und erst dann soll es das ganze verschieben in Archiv.

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>
    Local $folder = "C:\Users\dacohelpdesk\Desktop\test\Input"
    Local $FileList = _FileListToArray($folder, '*.xls', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    If StringRight($FileList[$i],3) = "xls" Then
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 4), "txt")
    FileMove ($folder & '\' & "*.xls", "C:\Users\dacohelpdesk\Desktop\test\Archiv")
    Else
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 5), "txt") ;, 0, 1, "ReadOnly") ; für xlsx
    FileMove ($folder & '\' & "*.xlsx", "C:\Users\dacohelpdesk\Desktop\test\Archiv")
    EndIf
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit] [autoit][/autoit] [autoit][/autoit]
  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 13:52

    Das OO an sich ist doch egal man kann ja die Variable nennen wie man will oder ?

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 13:30

    Zuerst ne Blöde Frage von mir. Ist es Richtig wenn ich daraus eine au3 Datei erstelle und diese dann in den Include Ordner kopiere. Den Teil mit den Beispielen habe ich rausgelöscht. Die datei habe ich OpenOffice genannt und so als include genommen. Hier mein jetziger Script:

    Spoiler anzeigen
    [autoit]

    #include <OpenOffice.au3>
    #include <File.au3>
    #include <Array.au3>
    Local $folder = "C:\Users\dacohelpdesk\Desktop\test\Input"
    Local $FileList = _FileListToArray($folder, '*.xls', 1)
    For $i = 1 To UBound($FileList) - 1
    $oOO = _OOOpenBook($folder & '\' & $FileList[$i], 0)
    If StringRight($FileList[$i],3) = "xls" Then
    _OOStoreBook($oOO, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 4), "txt") , 0, 1, "ReadOnly") ; für xls

    [/autoit] [autoit][/autoit] [autoit]

    Else
    _OOStoreBook($oOO, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 5), "txt") , 0, 1, "ReadOnly") ; für xlsx

    [/autoit] [autoit][/autoit] [autoit]

    EndIf
    _OOBookClose($oOO, 1, 0)
    Next

    [/autoit]

    Lg Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 11:45

    Also der Viewer funktioniert nicht hab ich schon ausprobiert. Das mit Openoffice ist ne gute idee aber da müsste jemand ein Include dazu schreiben weil ich kann das ned =D

    Lg Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 11:35

    Also mal Geschichte von vorn. Habe von meinem Chef den Auftrag bekommen einen Excel --> Txt Converter zu suchen der automatisch funktioniert. Hab über ne Stunde gesucht und nichts gutes gefunden. Dann hab ich die Sache selber in die Hand genommen und hier nachgefragt. Mit der Super Hilfe von euch habe ich das ganze eigentlich ganz gut hinbekommen. Nun nach dem Gespräch mit meinem Chef als ich ihm das Programm gezeigt habe. War sein Eindruck gut aber mit der Frage ob Exel benötigt wird war dann blöd ned. Es wird ja im Exel geöffnet und die Daten werden rauskopiert. Was dann halt auf jedem Server auf dem dieser Script laufen würde eine Lizensierte Version von Excel benötigt was dann wiederum teuer ist. Lange Rede kurzer Sinn.

    @Xenobiologist Jede xls oder xlsx wird zu einem Txt file. Alle Daten die in dem Exel File drinn sind sollen in die Txt Datei übertragen werden. Wenn das geschen ist kontrolle ob text File da wenn ja dann die Exel ins Archiv verschieben.

    LG Ru642 (Und Sorry für den Roman da oben ;) )

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 10:41

    Danke werd mir das mal anschauen. Danke an alle die mir bis jetzt geholfen haben. Vielleicht darf ich das Programm gar ned verwenden. ;(

    Weil es halt das ziemlich teure Exel braucht. Weil man dann halt ne Lizenz dafür holen muss.

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 11. Januar 2013 um 09:49

    Meld mich mal wieder zurück. Habe das ganze mit dem Chef angeschaut, an sich is es ok nur etwas muss noch gemacht werden. Wenn das txt File exportiert wird dann sollte das Exel File ins Archiv verschoben werden.

    Input Odner mit Xls + xlsx Files

    Output Ordner mit Datendateien Datenendung ist nicht mehr wichtig

    Archiv Ordner nach getaner Arbeit kontrollieren ob es eine Datendatei mit gleichem Namen erstellt hat wenn ja hierhin die Exel Daten verschieben.


    Lg Ru642

    Edit: Achja Script im Moment:

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>
    Local $folder = "C:\Users\dacohelpdesk\Desktop\test\Input"
    Local $FileList = _FileListToArray($folder, '*.xls', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    If StringRight($FileList[$i],3) = "xls" Then
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 4), "txt") ;, 0, 1, "ReadOnly") ; für xls

    [/autoit] [autoit][/autoit] [autoit]

    Else
    _ExcelBookSaveAs($oExcel, "C:\Users\dacohelpdesk\Desktop\test\Output" & '\' & StringTrimRight($FileList[$i], 5), "txt") ;, 0, 1, "ReadOnly") ; für xlsx

    [/autoit] [autoit][/autoit] [autoit]

    EndIf
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit]
  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 10. Januar 2013 um 15:36

    So hab deinen Script mal ausgeführt es kommt zu keinem Fehler. Problem besteht immer noch. Dateiendung fehlt. Ich schau mir mal _PathSplit an. Hoffe krieg das noch irgendwie hin :wacko:

    Lg Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 10. Januar 2013 um 14:14

    Also bei diesem Script krieg ich jetzt bei jedem Exel eine Datendatei ohne Endung raus.

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>
    Local $folder = @ScriptDir ;test pfad passe ich dann noch an
    Local $FileList = _FileListToArray($folder, '*.xls', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    _ExcelBookSaveAs($oExcel, @ScriptDir & '\' & StringTrimRight($FileList[$i], 4), "txt", 0, 1, "ReadOnly") ; bei 4 nimmt er beide xls und xlsx / bei 5 nur xlsx
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit]

    Lg ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 10. Januar 2013 um 12:27

    Bei mir scheint es irgendwie nicht zu funktionieren =(
    Habs mit 5 genommen

    Lg Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 10. Januar 2013 um 12:11

    Soo da bin ich wieder. Also der Script den ich im Moment benutze sieht wie folgt aus:

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Local $folder = @ScriptDir ;test pfad passe ich dann noch an
    Local $FileList = _FileListToArray($folder, '*.xlsx', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    _ExcelBookSaveAs($oExcel, @ScriptDir & '\' & StringTrimRight($FileList[$i],4), "txt", 0, 1, "ReadOnly") ; gleiches mit dem Pfad
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit]

    Was sollte es machen? Es soll aus der Exel-Datei (.xlsx) <-- Also die Neue eine txt erstellen. Das funktioniert eigentlich auch nur das es zu einer Datendatei wird d.h. es hat keine Endung also es kommt mit Namen ohne einem .txt raus. An sich sieht das File gut aus.

    Lg Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 9. Januar 2013 um 17:54

    Wenn ich wieder im Geschäft bin kann ich dir das ganze Posten. Hab Zuhause nix zur Hand.

    Lg Ru642

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 9. Januar 2013 um 16:22

    Es liegt daran das wenn ich zu oft das File ausgebe dann kommt diese Fehlermeldung und das Exel File ist zerstört 8| Lässt sich auch nicht wiederbeleben.

    Edit: Das mit der Dateiendung funktioniert auch noch nicht ganz.

  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 9. Januar 2013 um 15:28

    Komisch seit ich den neusten Script von Xenobiologist ausgeführt habe bekomme ich immer eine Fehlermeldung. Bei jedem Script den ich ausführe der Exel.au3 includet.

    [autoit]


    Line 191 (File "C\:Program Files (x86)\AutoIt3\Include\Exel.au3"):

    [/autoit][autoit][/autoit][autoit]

    If $sPassword= "" And $sWritePassword 0 "" then

    [/autoit][autoit][/autoit][autoit]

    .Workbooks.Open ($sFilePath,Default, $fReadOnly)^ERROR

    [/autoit][autoit][/autoit][autoit]

    Error: The requestet action with this object has failed.

    [/autoit]
  • Exel Daten (.xls / .xlsx) in .txt Daten umwandeln

    • ru642
    • 9. Januar 2013 um 14:41

    Also hab das ganze so abgespeckt wie ich es brauche:

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <File.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Local $folder = @ScriptDir ;test pfad passe ich dann noch an
    Local $FileList = _FileListToArray($folder, '*.xlsx', 1)
    For $i = 1 To UBound($FileList) - 1
    $oExcel = _ExcelBookOpen($folder & '\' & $FileList[$i], 0)
    _ExcelBookSaveAs($oExcel, @ScriptDir & '\' & StringTrimRight($FileList[$i], 4), "txt", 0, 1, "ReadOnly") ; gleiches mit dem Pfad
    _ExcelBookClose($oExcel, 1, 0)
    Next

    [/autoit]

    Problem: Datei wird nicht zu einer .txt sondern nur zu Datei ohne Endung könnte an veraltetem Include von Exel liegen

    LG Ru642

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™