Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Probleme mit Syntax beim CSV-Import
zurück: automatisch drucken weiter: MsgBox zeigt nur Zahl ohne Prozentformatierung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
09. Jun 2008, 22:14
Rufname: Daniel
Wohnort: Kehl am Rhein

Probleme mit Syntax beim CSV-Import - Probleme mit Syntax beim CSV-Import

Nach oben
       Version: Office 2003

N'Abend Miteinander!

ich möchte einen Link auf eine CSV aus dem internet importieren... aber ich bekomme den Laufzeitfehler 5: " ungültiger Prozeduraufruf oder ungültiges Argument".

mein Code:
Code:

Private Sub CB_Import_Click()
Dim fd As FileDialog
Dim DatStr As String
Dim DateiName As Variant
Dim WS As Worksheet
Dim CH As Chart
Dim MinWert As Double
Dim MaxWert As Double
Dim FirstDate As Date
Dim LastDate As Date
Dim Row As Long
Dim WorkStr As String
Dim WorkLong As Long
Dim Pot As Integer
Dim SortRange As Range
Dim LinkStr As String
Dim FromM As Integer
Dim FromD As Integer
Dim FromY As Integer

FromD = 1
FromM = 1
FromY = 2004
LinkStr = "http://ichart.yahoo.com/table.csv?s=%5EGDAXI&a=" & Format(FromM, "00") & "b=" & Format(FromD, "00") & "&c=" & Format(FromY, "0000") & "&d=" & Format(Now, "mm") & "&e=" & Format(Now, "dd") & "&f=" & Format(Now, "yyyy") & "&g=d&ignore=.csv"


    Application.ScreenUpdating = False
'_________________________________ Datei in neues Worksheet importieren und nach Datum sortieren______________________________
    For Each WS In Worksheets
        If WS.Name = "Kursdaten" Or WS.Name = "Chart" Then
            Application.DisplayAlerts = False
            WS.Delete
            Application.DisplayAlerts = True
        End If
    Next
    Set WS = Worksheets.Add
    With WS
        .Name = "Kursdaten"
        .Move After:=Start
    End With
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & LinkStr, Destination:=Range("A1"))
        .Name = LinkStr
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(4, 9, 9, 9, 1, 9, 9)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
' geht noch weiter...
end sub


Der Fehler kommt bei :
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & LinkStr, Destination:=Range("A1"))


Ich wäre für nen schlag auf den Hinterkopf dankbar...

Danke für's Anschauen und antworten...

Gruß
Daniel

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
bst
Programmierer


Verfasst am:
10. Jun 2008, 09:08
Rufname: Bernd
Wohnort: Ilsfeld

AW: Probleme mit Syntax beim CSV-Import - AW: Probleme mit Syntax beim CSV-Import

Nach oben
       Version: Office 2003

Morgen Daniel,

suche mal woanders, hier funktioniert das.

Allerdings habe ich zuvor diese Zeile auskommentiert, da es Start nicht gibt:

.Move After:=Start

cu, Bernd
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
10. Jun 2008, 14:27
Rufname: Daniel
Wohnort: Kehl am Rhein


AW: Probleme mit Syntax beim CSV-Import - AW: Probleme mit Syntax beim CSV-Import

Nach oben
       Version: Office 2003

Danke für's Reinschauen, Bernd

Gruß
Daniel

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
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: Wenn Syntax 5 Mirno! 94 03. Mai 2013, 11:37
Jensolator Wenn Syntax
Keine neuen Beiträge Excel Formeln: Formel bzw. Syntax gesucht 5 eltr88 204 17. Jun 2012, 14:01
eltr88 Formel bzw. Syntax gesucht
Keine neuen Beiträge Excel VBA (Makros): nach einem bestimmten Syntax suchen und kopieren 1 IT-Turtle 188 13. Jan 2011, 18:37
IT-Turtle nach einem bestimmten Syntax suchen und kopieren
Keine neuen Beiträge Excel VBA (Makros): Syntax falsch? 0 Robert S 181 06. Sep 2010, 15:19
Robert S Syntax falsch?
Keine neuen Beiträge Excel VBA (Makros): Range/Columns Syntax problem 2 korbee 1099 27. Apr 2010, 14:30
korbee Range/Columns Syntax problem
Keine neuen Beiträge Excel VBA (Makros): Syntax bei Copy & Paste Special 3 edditoni 1940 13. März 2010, 23:29
edditoni Syntax bei Copy & Paste Special
Keine neuen Beiträge Excel Formeln: Shortcut Strg-Umschalt-A für Syntax einer Formel einlesen? 5 Snoopy69 2331 13. Jul 2009, 12:06
MaxSal Shortcut Strg-Umschalt-A für Syntax einer Formel einlesen?
Keine neuen Beiträge Excel VBA (Makros): Syntax If Then mit mehreren Folgen 4 bcnius 493 22. Apr 2009, 18:56
Monty Burns Syntax If Then mit mehreren Folgen
Keine neuen Beiträge Excel VBA (Makros): Syntax Fehler in VBA Formel 1 Lernfreudiger 825 05. März 2009, 13:54
Lernfreudiger Syntax Fehler in VBA Formel
Keine neuen Beiträge Excel Formeln: zählennwenns syntax 2 H_ugo 496 16. Jan 2009, 21:47
Gast zählennwenns syntax
Keine neuen Beiträge Excel VBA (Makros): hilfe bei syntax und foreach 9 hurz 1215 14. Aug 2008, 08:47
hurz hilfe bei syntax und foreach
Keine neuen Beiträge Excel Formate: Problem: CSV-Import - US-formatiertes Datum (dd-MMM-yyyy) 0 MatB 2327 31. Jul 2008, 13:56
MatB Problem: CSV-Import - US-formatiertes Datum (dd-MMM-yyyy)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen