Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

QueryTables.Add ohne Spaltenverschiebung

Forumthread: QueryTables.Add ohne Spaltenverschiebung

QueryTables.Add ohne Spaltenverschiebung
13.03.2017 13:25:34
Alex
Servus Zusammen,
über ein Makro lasse ich mir die aktuellen Börsekurse von Yahoo geben.
Mein Problem ist, dass jedes mal 3 neue Spalten eingefügt werden...
Wie kann ich die Funktion ändern/ergänzen, dass nicht jedes mal die Spalten eingefügt werden?
Bin über Refresh gestolpert, aber bekomme es nicht hingebastelt
Code: 
Sub Aktienkurse()
'Worksheets("Aktualisierung").Range("A9:C100").ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;http://finance.yahoo.com/d/quotes.csv?s=NOVO-B.CO+fntn.de+utdi.de=X&f=snl1" _
, Destination:=Range("$A$9"))
.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(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;http://finance.yahoo.com/d/quotes.csv?s=DKKEUR=X+USDEUR=X&f=snl1" _
, Destination:=Range("$A$2"))
.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(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Danke für Hilfe :)
Gruß,
Alex
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: QueryTables.Add ohne Spaltenverschiebung
13.03.2017 16:33:42
Luschi
Hallo Alex,
so wie Du das machst, erstellst Du lauter Abfrage-Leichen, die zwar erstellt, aber nie wieder benutzt werden. Mit dem nachfolgenden Makro lösche erst mal alle Abfragen im Tabellenblatt 'Aktualisierung'.
Dabei wirst Du staunen, wieviele Abfragen sich bereits angesammelt habern: 

Sub loeschenAlleQueries()
Dim qry As QueryTable, ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Aktualisierung")
For Each qry In ws.QueryTables
Debug.Print qry.Name
qry.Delete
Next qry
Set qry = Nothing
Set ws = Nothing
End Sub
Anschließend erstellst Du die Abfragen nach diesem Muster: 


Sub Aktienkurse()

Dim qry As QueryTable, ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Aktualisierung")

ws.Range("A2:I100").ClearContents

On Error Resume Next

Set qry = ws.QueryTables("Yahoo_1")

On Error GoTo 0

If qry Is Nothing Then

'Abfrage existiert noch nicht

Set qry = ws.QueryTables.Add(Connection:= _

"TEXT;http://finance.yahoo.com/d/quotes.csv?s=NOVO-B.CO+fntn.de+utdi.de=X&f=snl1", _

Destination:=Range("$A$9"))

With qry

.Name = "Yahoo_1"

.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(1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

Else

'Abfrage existiert bereits

qry.Refresh BackgroundQuery:=False

End If

Set qry = Nothing

On Error Resume Next

Set qry = ws.QueryTables("Yahoo_2")

On Error GoTo 0

If qry Is Nothing Then

'Abfrage existiert noch nicht

Set qry = ws.QueryTables.Add(Connection:= _

"TEXT;http://finance.yahoo.com/d/quotes.csv?s=DKKEUR=X+USDEUR=X&f=snl1", _

Destination:=Range("$A$2"))

With qry

.Name = "Yahoo_2"

.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(1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

Else

qry.Refresh BackgroundQuery:=False

End If

Set qry = Nothing

Set ws = Nothing

End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: QueryTables.Add ohne Spaltenverschiebung
14.03.2017 15:49:36
Alex
Hallo Luschi,
danke Dir :)
Habe ich so übernommen und erstmal die Anfragen gelösch (mehr als 100).
Ich bin auch noch auf die Lösung: .RefreshStyle = xlOverwriteCells
gekommen, aber deine ist eleganter und das Problem mit der Anzahl der Anfragen ist nicht gelöst.
Danke und Gruß,
Alex
Anzeige
;

Forumthreads zu verwandten Themen

QueryTables.Add // DSN-Name dynamisch
pastinake

Guten Morgen,
ich lese in meiner Excel Datei via QueryTables.Add Daten aus einer Access Datenbank aus.
Hier muss der Connection String (ODBC) angegeben werden,- unter anderem auch der DSN Name.
Und hier liegt meine Problem. Die Auswertung läuft auf unterschiedlichen Rechnern mit unt...
19.06.2012 11:11:42
Thread-ID: 1267897
2 Beiträge
Anzeige
Problem nach QueryTables.Add
Björn

Hallo Leute,
ich habe folgende Funktion erstellt, um diverse Textdateien nach Excel zu importieren. Den Pfad zum Importieren habe ich dann immer manuell erfasst. Bei dem letzten Import habe ich versehentlich eine Datei/Pfad angegeben, der nicht existierte. Nun habe ich im Anschluss ständig...
16.07.2015 13:35:40
Thread-ID: 1436769
3 Beiträge
QueryTables.Add verschiebt Daten nach rechts
Paul
Guten Tag ich habe ein kleines Problem mit dem einfügen von QuerryTables wobei ich die Daten meist mittels des ODBC-Treibers aus einer Datenbank abfrage. Hier einmal ein Auszug aus dem wesentlichen part:
'SQL-Abfrage starten varConn = _ "ODBC;Driver={Microsoft ODBC for Oracle};" _ & "DSN=" + s...
13.03.2017 10:35:27
Thread-ID: 1546994
4 Beiträge
ActiveSheet.QueryTables.Add
Markus

Hallo zusammen!
Stelle mit ActiveSheet.QueryTables.Add per ODBC die Verbindung zu einer DB her.
Nach dem einfügen der Daten möchte ich die Abfragedefinition per Makro entfernen!
Wie geht das?
Gruß, Markus
11.08.2004 11:57:16
Thread-ID: 467904
3 Beiträge
ActiveSheet.QueryTables.Add
Russi

Hallo Leute!
Ich möchte eine Textdatei per Datenbankabfrage einlesen. Leider erwartet die Abfrage Spaltenüberschriften, die in der Textdatei nicht vorhanden sind. Dies hat zur Folge, dass in meiner Excel-Tabelle immer die erste Zeile / der erste Datensatz fehlt.
Kann man Excel irgendwie...
19.11.2004 12:14:42
Thread-ID: 520182
3 Beiträge
Rückmeldung QueryTables.Add
Kev

Hallo zusammen,
ich importiere per QueryTables.Add mehrere Tabellen einer Webseite in Excel.
Diese Tabellen möchte ich dann weiter verarbeiten, sobald der Import fertig ist.
Gibt es eine Möglichkeit eine Rückmeldung der Operation zu erhalten, wenn diese fertig ist bzw. wie kann ich...
26.11.2020 19:52:46
Thread-ID: 1795812
2 Beiträge
QueryTables.Add - immer gleiche Datei
Norman
Hallo zusammen,
ich habe vor einigen Tagen schon einmal etwas über ein Sharepoint-Problem geschrieben - ich denke, dass auch dieses Problem jetzt damit zusammenhängt.
Ich arbeite in einem Warenverteilzentrum und jeden Abend wird ein Lagerspiegel generiert, wovon ich dann die letzten Beiden e...
05.08.2021 22:03:25
Thread-ID: 1842323
4 Beiträge
Dateiimport aus TXT per QueryTables.Add
Daniel
Hallo zusammen,
ich habe dieses Forum immer wieder schon für Hilfen und Tipps verwendet und möchte mich dazu auch bedanken. Nun habe ich aber ein Problem mit einem Makro und leider ist der Ersteller dieses Makros nicht mehr greifbar. Deswegen wende ich mich an die Leute hier im Forum :-)
Das...
29.11.2022 08:39:21
Thread-ID: 1909028
8 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige