mikrocontroller.net

Forum: PC-Programmierung Visual Basic Laufzeitfehler 1004


Autor: GS1905 (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo an alle,

hab folgenden Code und beim Ausführen kommt der Fehler Laufzeitfehler 
1004
kann mir bitte jemand weiterhelfen???

danke



Sub Klima()
        currentBook = ActiveWorkbook.Name
        Dim myDialog As FileDialog
        Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
        myDialog.Filters.Add "co2_", "*.txt", 1

        cnt = 0
        Offset = 5
        If myDialog.Show = -1 Then
            For Each myitem In myDialog.SelectedItems
            openDatei (myitem)
            aktDatei = ActiveWorkbook.Name


            Range("A15:E2030").Select
            Application.CutCopyMode = False
            Selection.Copy

            Workbooks(currentBook).Activate
            reihe = cnt * 2016 + Offset
            Cells(reihe, 1).Select
            Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, 
SkipBlanks:=False, Transpose:=True
            Workbooks(aktDatei).Close
            cnt = cnt + 1

            Next
            Cells(1, 1).Select
        End If

   End Sub


    Sub openDatei(datei)

    pos = InStr(1, datei, "co2_", 1)
    If pos > 0 Then

            Workbooks.OpenText Filename:=datei, Origin _
            :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, 
TextQualifier:= _
            xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, 
Semicolon:=False, _
            Comma:=False, Space:=False, Other:=False, 
FieldInfo:=Array(Array(1, 1), _
            Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 
1), Array(7, 1), Array(8, 1), _
            Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), 
Array(13, 1), Array(14, 1), Array(15 _
            , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 
1), Array(20, 1), Array(21, 1), _
            Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), 
Array(26, 1), Array(27, 1), Array( _
            28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 
1), Array(33, 1), Array(34, 1), _
            Array(35, 1), Array(36, 1)), DecimalSeparator:=".", 
ThousandsSeparator:=",", _
            TrailingMinusNumbers:=True


    End If
    End Sub

Autor: Rufus Τ. Firefly (rufus) (Moderator) Benutzerseite
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Das ist VBA für Excel. Wenn da ein Laufzeitfehler kommt, dann kannst Du 
im Debugger des VBA-Editors nachsehen, an welcher Stelle im Code der 
auftritt - und das solltest Du auch jetzt tun.

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.