Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Laufzeitfehler Paste
#1
Hallo Forum,

mit folgendem Code importiere und splite ich eine Textdatei in Tabelle1
und kopiere das Ergebnis in die aktuelle Tabelle. Leider bekomme ich hier folgenden Fehler,

Laufzeitfehler 1004 Die Methode 'Paste' für das Objekt'_Worksheet' ist fehlgeschlagen

Hierbei wird im untenstehendem Code 'wks.Paste .Cells(1)' gelb markiert
nach mehrmaligem wiederholen des Vorganges funktioniert es dann?

Könntet Ihr euch mal den Code anschauen ob da ein Fehler verborgen ist.

Besten Dank im Voraus

omron2003

Code:
Sub InputFilesFromPath()
'---------------------------------------
'Import und Split der Textdatei
'---------------------------------------
'Daten importieren
Dim strPfad     As String
Dim strDatei    As String
Dim intFF       As Integer
Dim strText     As String
Dim wks         As Worksheet

Set wks = Tabelle1                                         
strPfad = "C:\Import\"                
strDatei = Dir(strPfad & "*.txt")                          
Sheets("Tabelle1").Cells.Clear

Do While strDatei <> ""

    intFF = FreeFile()
    Open strPfad & strDatei For Input As #intFF
        strText = CreateObject("scripting.filesystemobject").opentextfile(strPfad & strDatei).readall
    Close #intFF
  
    WriteToClp strText
  
    With wks
        With .Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .Value = 1
            .TextToColumns .Cells(1), Space:=True
            wks.Paste .Cells(1)
        End With
    End With
  
    strDatei = Dir()
Loop
Calculate
End Sub
Antworten Top
#2
Hallo

ungetestet..

wks.Cells(1).Paste 


LG UweD
Antworten Top
#3
Hallo UweD,

nun bekomme ich den Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht

LG omron2003
Antworten Top
#4
Hallo

ok. Hab es mir nochmal angesehen.
Dein Code scheint richtig zu sein, aber beim Einfügen ist die Zwischenablage leer.

Diese sollte durch "WriteToClp strText" gefüllt werden.

Dazu finde ich nichts. Nutzt du ein Unterprogramm dafür?


LG
Antworten Top
#5
Du mischt 'freefile' und 'scripting.filesystemobject'.

Offensichtlich weiss du nicht was der Code bedeutet.

Code:
Sub M_snb()
  c00 = "C:\Import\"
  c01 = Dir(strPfad & "*.txt")
  Tabelle1.Cells.Clear

  With CreateObject("scripting.filesystemobject")
    Do While c01 <> ""
      c02 = c02 & vblfcr & .opentextfile(c00 & c01).readall
      c01 = Dir
    Loop
  End With
 
  sn = Split(Mid(c02, 3), vbCrLf)
  Tabelle1.Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#6
Hallo,

@UweD
unter WriteToClp habe ich folgenden Code stehen.

Code:
Public Sub WriteToClp(txt As String)
Dim IE As Object
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", txt & ""
Set IE = Nothing
End Sub

@snb

der VBA Code stammt nicht von mir, die gesamte Arbeitsmappe wurde einmal von einem anderen Kollegen (im Ruhestand) erstellt.
Ja so ganz verstehe ich den VBA Code der hier angewendet wird nicht, es gibt bestimmt andere Wege die Daten aus einer txt Datei
einzulesen, zu spliten und in Tabelle1 zu schreiben.


Gruß
omron2003
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste