Zeile löschen und nächste Zeile als Überschriften

  • Sonstige

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von dkaj.

    Zeile löschen und nächste Zeile als Überschriften

    HI Leute,

    hab da ein Problem . Ich hab ein Excel-file. Dieses File importiere ich, aber jetzt kommt das Problem. Die Überschriften sind im Excelfile nicht ganz oben also z.b A1. Sie fangen schon bei B1 an. Nach dem Import in Access ist die 1. Zeile leer und in der 2. Zeile fangen die Überschriften.

    Wie kann ich es machen, dass ich die erste Zeile lösche und dann die Überschriften in der 2. Zeile oben übernehme(Da wo die Überschriften auftauchen sollten, in den grauen Feldern)

    Über Hilfe würde ich mich freuen

    MFG
    Toni

    Ahh dieses problem hat sich zum Teil gelöst.

    Ich würde gern die 1ste und 2te Zeile in Excel löschen ist es möglich?

    Dannach würde ich gern in Access importieren

    Nachdem Import soll die Excel-Datei wieder geschlossen werden "ohne" zu speichern?

    MFG Toni

    Klar ist das möglich.

    Zeilen als Range definieren, Objektverweis setzen, löschen - fertig.

    Quellcode

    1. Dim objWB As Workbook
    2. Dim objWS As Worksheet
    3. Dim objRange As Range
    5. Set objWB = Excel.Application.ActiveWorkbook
    6. Set objWS = objWB.ActiveSheet
    7. Set objRange = objWS.Range("A1:IV2")
    9. objRange.Delete xlShiftUp

    Hi,

    danke für deine schnelle Antwort. Bei mir taucht immer eine Fehlermeldung auf "with blockvariable nicht gefunden". Das ist mein Code

    Visual Basic-Quellcode

    1. Sub Mail(Verzeichnis)
    3. Dim Pfad As String
    4. Dim objWB As Workbook
    5. Dim objWS As Worksheet
    6. Dim objRange As Range
    8. Pfad = "F:\test.xls"
    9. Shell "excel.exe """ & Pfad & """", vbMaximizedFocus
    11. Set objWB = excel.Application.ActiveWorkbook
    12. Set objWS = objWB.ActiveSheet
    13. Set objRange = objWS.Range("A1:IV2")
    14. objRange.Delete xlShiftUp
    16. 'import der Datei Mail.xls, Tabelle: Mail
    17. DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "Mail", Verzeichnis, True, "Mail!"
    19. End Sub


    Ich öffne aus Access diese Datei und jetzt möchte ich das Datenblatt "Mail" um 2 Zeilen verkleinern. Es sind die Zeilen ganz oben (1,2)

    Danke im Vorraus
    MFG Toni

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „dkaj“ ()

    Hallo dkaj,

    warum arbeitest du so kompliziert? Importiere doch einfach den gewünschten Bereich deiner Exceldatei, z.B. so:

    Visual Basic-Quellcode

    1. DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    2. "tbTest", "C:\kannweg.xls", True, "A2:B5"


    warum arbeitest du mit Shell? Wenn du Excel über einen Objektverweis erzeugst, kannst du es auch problemlos starten und beenden, aber ich denke mal, das ist überflüssig, da du direkt aus Access importieren kannst.

    Gruß Markus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „alchimist“ ()

    HI alchimist,

    danke für deine Antwort ! Es klappt auch. Problem ist jetzt nur. Diesen Monat sind es vielleicht 20 Einträge,
    nächsten Monat vielleicht 200, da kann ich leider nicht einen kleinen Bereich auswählen.

    Aber was bleibt ist, dass die Überschriften erst ab Zeile 2 Anfangen.

    Ist es überhaupt realisierbar? Wenn ja wie?

    Danke im Vorraus


    MFG
    Toni

    Hallo dkaj,

    wenn du mit einem dir unbekannten Befehl konfrontiert wirst, dann studiere doch erst einmal seine Syntax in der Hilfe von Access....

    Dann wird dir klar, dass mein Bsp ab der zweiten Zeile mit Verwendung dieser als Überschrift importiert. Sollte die Anzahl der Zeilen variabel sein, so kann ich dir nicht die optimale Lösung nennen, da ich kaum in deiner Materie stecke. Evtl ermittelst du zuerst die Anzahl der Zeilen und importierst dann oder oder oder... ;)

    Gruß Markus

    Hi,

    hab es hingekriegt :) ... eigentlich dachte ich, ich hätte den code hier schon eingefügt ?!? komisch.

    Egal dann mach ich es jetzt: Die Funktion muss an sich nicht verändert werden, nur noch die Sub. Die Funktion sucht einfach die letzte Zeile in Excel die einen Wert hat und dann wird diese Zahlennr. bei Range eingetragen. Da sich die Spaltenanzahl bei mir nicht verändert ist es eben der Range von A3:K....! Es können nur viele beliebige Datensätze sein, deswegen suche ich mit dieser Funktion die letzte Zeile als Nr. diese wird dann eben bei K eingetragen.


    Quellcode

    1. 'Funktion die den letzten Datensatz in Excel ermittelt und die Nummer weitergibt
    2. Function ExcelLetzteZeile(DatName As String, Optional AktBlatt As String) As Long
    3. Const xlUp = -4162
    4. Dim xlApp As Object ' Excel.Application
    5. Dim i As Integer
    7. On Error Resume Next
    8. Set xlApp = GetObject(, "Excel.Application")
    9. If xlApp Is Nothing Then
    10. Set xlApp = CreateObject("Excel.Application")
    11. End If
    12. On Error GoTo 0
    13. With xlApp
    14. .Visible = True
    15. .Workbooks.Open DateiName, , True
    16. If Len(Tabellenname) > 0 Then
    17. ExcelLetzteZeile = .Range("A65536").End(xlUp).Row
    18. Else
    19. ExcelLetzteZeile = .Range("A65536").End(xlUp).Row
    20. End If
    21. .ActiveWorkbook.Saved = True
    22. .Quit
    23. End With
    24. Set xlApp = Nothing
    25. End Function
    29. Sub Mail()
    31. On Error Resume Next
    32. DoCmd.DeleteObject acTable, "Mail"
    33. On Error GoTo 0
    35. Dim LetzteZeile As Long
    36. Const DateiName = "F:\deineDatei.xls"
    37. Const Tabellenname = "Mail"
    38. LetzteZeile = ExcelLetzteZeile(DateiName, Tabellenname)
    39. DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    40. "Mail", DateiName, True, _
    41. Tabellenname & "!A3:K" & LetzteZeile '<-- Variable die den letzten Datensatz ermittelt hat
    42. End Sub


    Die Sub heißt "Mail", weil meine Tabelle so heißt.
    MFG
    Toni

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „dkaj“ ()