Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus Ferndatei via VBA

Daten aus Ferndatei via VBA
gerwas
Hallo Weite Welt - mal wieder
Wenn ich in eine Zelle folgende Formel schreibe, bekomme ich meine Daten geliefert.
=http://www.irgendeinInternetspeicherort/[login_namen.xls]Tabelle1'!A1
Wie geht diese Abfrage per VBA?
Also etwa so
daten=http://www.polbb.de/sixcms/media.php/1065/[login_namen.xls]Tabelle1'!A1
Hilfe erbeten
Gerwas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
vielleicht mit ExecuteExcel4Macro
04.11.2009 15:31:38
Tino
Hallo,
versuche es mal so.
Beispiel:
Dim sFormel As String
Dim varErgebnis As Variant
sFormel = "'http://www.irgendeinInternetspeicherort/[login_namen.xls]Tabelle1'!R1C1"
varErgebnis = ExecuteExcel4Macro(sFormel)
Gruß Tino
AW: vielleicht mit ExecuteExcel4Macro
05.11.2009 13:12:15
gerwas
Danke Tino - funktioniert einwandfrei
fällt Dir eventuell noch etwas ein, wie ich einen Sverweis per VBA aus einer Ferndatei holen kann?
So nach dieser Variante daten=VLookUp("abc",'http//www/speicherort/dat.xls'!quelle,3,False)
Der name quelle bezeichnet meine Matrix "A1:Z999" mit den Daten.
Gruß Gerwas
Anzeige
AW: vielleicht mit ExecuteExcel4Macro
05.11.2009 17:40:23
Tino
Hallo,
versuche es mal so.
Dim sFormel As String
Dim varErgebnis As Variant
Dim sQuelleBereich As String
sQuelleBereich = Range("A1:Z999").Address(ReferenceStyle:=xlR1C1)
sFormel = "VLOOKUP(""abc"",'http//www/speicherort/dat.xls'!" & sQuelleBereich & ",3,FALSE)"
varErgebnis = ExecuteExcel4Macro(sFormel)
Gruß Tino
AW: vielleicht mit ExecuteExcel4Macro
06.11.2009 10:00:00
gerwas
Hallo Tino
bei mir steht dann in varErgebnis "Fehler 2042" !?
Gruß Gerd
es fehlt noch der Tabellenname...
06.11.2009 14:13:26
Tino
Hallo,
, achte auch immer auf die eckigen Klammern und auf die Hochkommas.
Dim sFormel As String
Dim varErgebnis As Variant
Dim sQuelleBereich As String
sQuelleBereich = "Tabelle1'!" & Range("A1:Z999").Address(ReferenceStyle:=xlR1C1)
sFormel = "VLOOKUP(""abc"",'http//www/speicherort/[dat.xls]" & sQuelleBereich & ",3,FALSE)"
varErgebnis = ExecuteExcel4Macro(sFormel)
Gruß Tino
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige