Office: (Office 2010) hyperlink von Excel nach MS Access per VBA kopieren

Hallo Forum,
ich stehe einfach auf dem Schlauch und benötige mal wieder von Euch Hilfe:
Ich öffne eine Excel Datei und arbeite dann in einer Schleife verschiedene Zellen ab, die dann in eine bzw. mehrere Web-Tabelle in Access kopiert werden. In dieser Schleife möchte ich nun auch Zellen kopieren, die in Excel Hyperlinks enthalten.
hier mal der Code:

Set xlb = Excel.Application.Workbooks.Open("text.xlsx")
Set xls = xlb.Sheets("Systems")
Set rsS = CurrentDb.OpenRecordset("Table")
(...)
Do While (...)
rsS.AddNew
rsS!SpalteB= xls.Cells(Zeile, "B") 'Zelle ohne Hyperlink funktioniert alles ok
rsS!SpalteA= xls.Cells(Zeile, "A").Hyperlinks.Item(1).Address 'funktioniert nicht, vermutlich verwende ich den Befehl falsch

rsS.Update
Zeile = Zeile + 1
Loop
(...)

An der Stelle mit dem Hyperlink steigt er mir aus. Ich finde aber im Netz auch kein Funktionsfähiges Beispiel, das einfach mal ein Zelle in Excel nimmt und nach Access kopiert (Access Zelle = SpalteB ist vom Typ Hyperlink)

Ist bestimmt keine große Sache, aber ich stehe gerade vorm Wald *rolleyes.gif*

Vielen Dank für Eure Hilfe
Jan

:)

 

Schaue Dir mal den Thread an.

 

Moin,
ich denke, es müsste so heißen:
Code:

(ohne item).
Aber vielleicht ist das auch eher eine Frage für's Excel-Forum?
maike

 

Danke Edgar und Maikek,
leider war das noch nicht erfolgreich. Den Thread von Edgar kann ich nicht öffnen und bei dem Vorschlag von Maikek bekomme ich Fehler 438: Objekt unterstützt die Methode nicht.

 

Hier den Link nochmal als Text ....
Office-Loesung.de - Forum zu Microsoft Excel, Outlook, Word, PowerPoint, Access
ftopic22060_0_0_asc.php

 

Hallo Edgar, vielen Dank für denk Link, leider bekomme ich dort keine Info da die Seite offline sei. Könntest Du bitte den Titel dazu packen oder die relevanten Keywords.... Ich habe echt kein Problem mich da weiter einzulesen, wenn ich die Quelle selber nicht schon betrachtet habe.

Natürlich würde es mir am meisten helfen, falls mir jemand die eine Zeile Code ersetzen könnte die bei mir offensichtlich falsch ist. Ich hoffe ja immer noch das ich nur eine Kleinigkeit falsch habe.

Vielen Dank
Jan

 

Wenn du den kompletten Link incl. ftopic22060_0_0_asc.php eingibst, solltest du fündig werden.

Falls nicht, hier mal das Wichtigste als Zitat:

maike

 

Das ist im wesentlichen der Hauptfehler, den unerfahrene Programmierer machen. Damit verhindern sie dann erfolgreich Ihre eigene Weiterentwicklung.

Zugriff auf Hyperlink über das Range Objekt.
dim oRange as Range

Set oRange = Worksheet.Cells(Zeile, Spalte)
rsS!SpalteA= oRange.Hyperlinks.Item(1).Address

oder

Worksheet.Range("B3").Hyperlinks(1).Address

Alternativ Worksheet/Sheets auf Hyperlink Auflistung zugreifen.
Über Hyperlinks(index).Range kannst du mittels Row und Column die Koordinaten des Hyperlinks feststellen.

Wie findet man das raus.
Einfach auf die Application Auflistung einen Zeiger legen.
Dim obj as Application
Set obj = Application

Dann sieht man die gesamte Hierarchie.
Die Methoden findet man in der Hilfe.

Und in kürze beherrscht du Excel VBA sehr gut, und dein Code wird besser sein, als so mancher "Mustercode", der in der Regel ein Produkt von Code-Kopierern statt Code-Verstehern ist *mrcool .
Ich arbeite übrigens nie in Excel VBA.
LG Markus

 

Hallo Forum,
erst mal vielen Dank für die Hilfe. Warum der Link bei mir nicht funktioniert hat, weiß ich bis heute nicht.
Die Lösung lag dann doch mal wieder wo anders. In der Excel Datei wird der Hyperlink mittels einer Formel erstell und nicht über die Zell-Eigenschaften. Darauf gekommen bin ich weil der count immer 0 ergab.
Damit sieht meine Lösung nun wie folgt aus:

Set oRange = xls.Cells(Zeile, "B")
link = Mid(oRange.Formula, 13, InStr(oRange.Formula, ",") - 14)
rsS!SpalteB = "link#" & link & "#"

Damit ziehe ich mir die Formel und extrahiere mit einer Zeichenkettenzerlegung die URL. In der letzten Zeile baue ich dann den Link mit Text link wieder zusammen.

Jetzt läuft's *wink.gif*
LG Jan