Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
*T*SAP Tabelle hat mehr Zeilen als EXCEL
Gehe zu Seite 1, 2  Weiter
zurück: Übertrag von Kommazahlen aus einer TextBox nach Excel weiter: Zirkelbezug Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. März 2011, 15:05
Rufname:

*T*SAP Tabelle hat mehr Zeilen als EXCEL - *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

*Verschoben aus Forum: Excel Tipps & Tricks
**********************************************************************
Hallo zusammen,

folgendes Problem tritt bei mir auf. Ich habe eine SAP Abfrage, die mehr Zeilen als Excel hat. ICh möchte diese Abfrage aber jedoch in Access weiter verarbeiten. Wie bekomme ich das hin?

Ich habe schon versucht dies in ein Spreadsheet einzufügen, doch ich finde keine möglichkeit die Daten dort rein zu importieren.

Vielen Dank für Eure Hilfe.
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. März 2011, 17:33
Rufname:


AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Ich habe jetzt eine schöne Txt Datei. Doch der Import bricht ab bei Zeile 65000 irgendwas. Kann da nicht eine neues Sheet angefangen werden, oder kann ich dieses Einfügen auch in einem Speadsheet machen?

Bitte helft mir ! Vielen Dank vorab.
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
16. März 2011, 17:55
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Hallo,

schau dir mal bitte diesen Thread an:

http://www.office-loesung.de/fpost60244.php#60244

und beachte besonders den VBA-Code von Thomas.

_________________
Gruß
Peter
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. März 2011, 23:57
Rufname:

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Vielen Dank, doch ich bekomme den Fehler, es wären kein Daten zur Analyse makiert. ??????
Thomas Ramel
Microsoft Excel-MVP


Verfasst am:
17. März 2011, 00:29
Rufname: Thom
Wohnort: Glashütten - CH


AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Grüezi Martinheinz

Sind denn die eingelesenen Daten in Spalte A enthalten oder ist selbige leer?

_________________
Mit freundlichen Grüssen

Thomas Ramel
[Vista Ultimate SP-1 / xl2007 SP-2]
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. März 2011, 00:41
Rufname:

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Hallo thomas,

alles leer.Die Sheets sind erstellt,doch der Debugger geht an nach der MsgBox. Und alles ist leer.
Thomas Ramel
Microsoft Excel-MVP


Verfasst am:
17. März 2011, 00:59
Rufname: Thom
Wohnort: Glashütten - CH

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Grüezi Martinheinz

Dann dürfte mit der der .txt-Datei etwas faul sein.

Kannst Du bitte einen Ausschnitt daraus hier hochladen?

Anleitung zum Anhaengen von Dateien

_________________
Mit freundlichen Grüssen

Thomas Ramel
[Vista Ultimate SP-1 / xl2007 SP-2]
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. März 2011, 01:05
Rufname:

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Hey hey, schön das du noch da bist.Das läßt mir nämlich keine ruhe.

Ich zeigt dir hier einen Auschnitt:



2011_02_d 2011_v1.0 Watt 0230_d Italy_d High efficiency (10) Total SAP_d 23011123 0

So sieht eine Zeile aus. Alle Infos durch Tabs getrennt.
Thomas Ramel
Microsoft Excel-MVP


Verfasst am:
17. März 2011, 07:31
Rufname: Thom
Wohnort: Glashütten - CH

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Grüezi Martinheinz

OK, dann teste doch bitte mal die folgenden Zeilen mit deinen Daten.
Hier ist noch nicht berücksichtigt, dass es mehr Datensätze als Zeilen im Tabellenblatt sein können; das würden wir anschliessend noch hinzubauen:


Code:
Sub FileImport()
Dim wsSheet              As Worksheet
Dim Filename             As String
Dim FileNum              As Integer
Dim ResultStr            As String
Dim strImport()          As String
Dim varDummy             As Variant
Dim strValues()          As String
Dim lngRows              As Long
Dim lngRow               As Long
Dim intI                 As Integer

    ChDrive Left(ThisWorkbook.Path, 1)
    ChDir ThisWorkbook.Path

    Filename = Application.GetOpenFilename("Textdateien " & _
                                           "(*.txt; *.csv;*.asc),*.txt; *.csv; *.asc")

    If Filename = "" Or Filename = "Falsch" Then Exit Sub
    FileNum = FreeFile()

    On Error GoTo ErrorHandler
    Open Filename For Input As #FileNum
    ResultStr = Input(LOF(FileNum), #FileNum)
    Close #FileNum

    strImport() = Split(ResultStr, vbCrLf)

    Application.ScreenUpdating = False

    ReDim strValues(UBound(Split(strImport(lngRows), vbTab)), UBound(strImport()))

    For lngRows = 0 To UBound(strImport())
        varDummy = Split(strImport(lngRows), vbTab)
        For intI = 0 To UBound(varDummy)
            strValues(intI, lngRow) = varDummy(intI)
        Next intI

        lngRow = lngRow + 1
    Next lngRows
    Set wsSheet = Worksheets.Add(Type:=xlWorksheet)
    With wsSheet
        .Range(.Cells(1, 1), Cells(lngRow, UBound(Split(strImport(0), vbTab)) + 1)) = Application.Transpose(strValues())
    End With
End Sub

_________________
Mit freundlichen Grüssen

Thomas Ramel
[Vista Ultimate SP-1 / xl2007 SP-2]
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. März 2011, 10:28
Rufname:

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Guten Morgen Thomas,

das klappt wunderbar. Danke schön. Da kann ich einiges über Arrays lernen.

Hilfst du mir dann noch bei der Zeilengrenze?
Thomas Ramel
Microsoft Excel-MVP


Verfasst am:
17. März 2011, 11:17
Rufname: Thom
Wohnort: Glashütten - CH

Re: AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - Re: AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Grüezi Martinheinz

martinheinz hat folgendes geschrieben:
das klappt wunderbar.


Fein, das freut mich, damit ist dann schon mal der Weg klar.

martinheinz hat folgendes geschrieben:
Hilfst du mir dann noch bei der Zeilengrenze?


Klar - ist halt ein wenig ein Zeitproblem, da hier auf der Arbeit noch ein paar andere Tasks warten....


Ich sehe hier noch 2 Klippen, die es zu umschiffen gilt:
  1. .Transpose kann nur eine bestimmte Array-Grösse transponieren - daher muss diese Paketgrösse ermittelt werden und das Ganze dann so unterteilt, dass es auf diese Grösse passt.
  2. Die Anzahl Zeilen eines Tabellenblattes muss dynamisch ermittelt werden (xl2003 und xl2007) und dann muss die Grösse des Gesamt-Paketes pro Tabellenblatt daran angepasst werden.

_________________
Mit freundlichen Grüssen

Thomas Ramel
[Vista Ultimate SP-1 / xl2007 SP-2]
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. März 2011, 11:58
Rufname:

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Hey Thomas,
das versteh ich natürlich. Ganz klar.

Hab da jetzt auch ne Lösung, denke ich.

Sub FileImport()
Dim wsSheet As Worksheet
Dim Filename As String
Dim FileNum As Integer
Dim ResultStr As String
Dim strImport() As String
Dim varDummy As Variant
Dim strValues() As String
Dim lngRows As Long
Dim lngRow As Long
Dim intI As Integer
Dim intJ As Integer
Dim intPackCount As Integer
Dim lngPackRows As Long

ChDrive Left(ThisWorkbook.Path, 1)
ChDir ThisWorkbook.Path

Filename = Application.GetOpenFilename("Textdateien " & _
"(*.txt; *.csv;*.asc),*.txt; *.csv; *.asc")

If Filename = "" Or Filename = "Falsch" Then Exit Sub
FileNum = FreeFile()


Open Filename For Input As #FileNum
ResultStr = Input(LOF(FileNum), #FileNum)
Close #FileNum

strImport() = Split(ResultStr, vbCrLf)

Application.ScreenUpdating = False

ReDim strValues(UBound(Split(strImport(lngRows), vbTab)), UBound(strImport()))

intPackCount = UBound(strImport()) / 65536
intPackCount = intPackCount + 1

For intJ = 0 To intPackCount

If ((intJ + 1) * 65536) > UBound(strImport()) Then
lngPackRows = UBound(strImport())
Else
lngPackRows = ((intJ + 1) * 65536)
End If

For lngRows = (intJ * 65537) To lngPackRows
varDummy = Split(strImport(lngRows), vbTab)
For intI = 0 To UBound(varDummy)
strValues(intI, lngRow) = varDummy(intI)
Next intI

lngRow = lngRow + 1


Next lngRows

Set wsSheet = Worksheets.Add(Type:=xlWorksheet)
With wsSheet
.Range(.Cells(1, 1), Cells(lngRow, UBound(Split(strImport(0), vbTab)) + 1)) = Application.Transpose(strValues())
End With

Next intJ
End Sub

Allerdings bekomme ich an der Transpose Stelle eine Fehler Meldung. Anwendungs - und Objektdefinierter Fehler. Sind die Packete noch zu Groß ?

VG Martin
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. März 2011, 12:05
Rufname:

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Ergänzung, Fehlermeldung Typen unverträglich. (der andere Fehler: lngRow war größer 65536)

Und Typen unverträglich? Hab doch nix geändert?
Thomas Ramel
Microsoft Excel-MVP


Verfasst am:
17. März 2011, 12:26
Rufname: Thom
Wohnort: Glashütten - CH

AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Grüezi Martinheinz

Bitte verwende für die Darstellung im Forum doch den CODE-Tag, das erleichtert die Lesbarkeit des Codes durch die Erhaltung der Einzüge doch ganz erheblich.


In welcher Zeile tritt denn der Fehler auf?

_________________
Mit freundlichen Grüssen

Thomas Ramel
[Vista Ultimate SP-1 / xl2007 SP-2]
martinheinz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. März 2011, 12:31
Rufname:


AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL - AW: *T*SAP Tabelle hat mehr Zeilen als EXCEL

Nach oben
       Version: Office 2003

Japp, wird gemacht.

Code:

Sub FileImport()
Dim wsSheet              As Worksheet
Dim Filename             As String
Dim FileNum              As Integer
Dim ResultStr            As String
Dim strImport()          As String
Dim varDummy             As Variant
Dim strValues()          As String
Dim lngRows              As Long
Dim lngRow               As Long
Dim intI                 As Integer
Dim intJ                 As Integer
Dim intPackCount         As Integer
Dim lngPackRows          As Long

    ChDrive Left(ThisWorkbook.Path, 1)
    ChDir ThisWorkbook.Path

    Filename = Application.GetOpenFilename("Textdateien " & _
                                           "(*.txt; *.csv;*.asc),*.txt; *.csv; *.asc")

    If Filename = "" Or Filename = "Falsch" Then Exit Sub
    FileNum = FreeFile()

   
    Open Filename For Input As #FileNum
    ResultStr = Input(LOF(FileNum), #FileNum)
    Close #FileNum

    strImport() = Split(ResultStr, vbCrLf)

    Application.ScreenUpdating = False

    ReDim strValues(UBound(Split(strImport(lngRows), vbTab)), UBound(strImport()))
   
    intPackCount = UBound(strImport()) / 65536
    intPackCount = intPackCount + 1
   
    For intJ = 0 To intPackCount
       
        If ((intJ + 1) * Rows.Count) > UBound(strImport()) Then
            lngPackRows = UBound(strImport())
        Else
            lngPackRows = ((intJ + 1) * 65536)
        End If
       
        For lngRows = ((intJ * 65536) + 1) To lngPackRows
            varDummy = Split(strImport(lngRows), vbTab)
            For intI = 0 To UBound(varDummy)
                strValues(intI, lngRow) = varDummy(intI)
            Next intI

            lngRow = lngRow + 1
       
                   
        Next lngRows
   
        Set wsSheet = Worksheets.Add(Type:=xlWorksheet)
        With wsSheet
     
.Range(.Cells(1, 1), .Cells((lngRow), UBound(Split(strImport(0), vbTab)) + 1)) = Application.Transpose(strValues())
Code:

        End With
       
    Next intJ
End Sub


In der roten Zeile.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie? 4 excessor 1698 24. Jan 2005, 22:52
A.Knecht Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie?
Keine neuen Beiträge Excel Formeln: Verknüpfung Access Tabelle 1 DB_User 1788 17. Jan 2005, 11:54
ZeroCool Verknüpfung Access Tabelle
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: Text in andere Tabelle übertragen 2 freddy-krueger 3737 02. Dez 2004, 11:16
freddy-krueger Text in andere Tabelle übertragen
Keine neuen Beiträge Excel Formeln: Anzahl bei 2 Bedingungen aus Tabelle berechnen 6 Satanico 1723 21. Okt 2004, 14:48
Satanico Anzahl bei 2 Bedingungen aus Tabelle berechnen
Keine neuen Beiträge Excel Formeln: Formel für Spalten und Zeilen 17 Gast 2737 15. Sep 2004, 14:11
steve1da Formel für Spalten und Zeilen
Keine neuen Beiträge Excel Formeln: Kann ich Zeilen "einfrieren"? 1 Chrisi 1115 08. Sep 2004, 13:01
fl618 Kann ich Zeilen "einfrieren"?
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: Gleiche Einträge in Tabelle nummerich aufzählen 1 sauer 483 02. Sep 2004, 09:11
ae Gleiche Einträge in Tabelle nummerich aufzählen
Keine neuen Beiträge Excel Formeln: aus Tabelle auslesen und vergleichen 1 wiedenmann 2805 12. Aug 2004, 13:42
Arnim aus Tabelle auslesen und vergleichen
Keine neuen Beiträge Excel Formeln: Datenübernahme aus Tabelle 7 lut155 21997 05. Aug 2004, 15:12
Gast Datenübernahme aus Tabelle
Keine neuen Beiträge Excel Formeln: Zeilen mit speziellem Inhalt in neuem Arbeitblatt filtern 3 Bendra 1215 05. Jul 2004, 19:19
fl618 Zeilen mit speziellem Inhalt in neuem Arbeitblatt filtern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript