Automatisch Bilder mit Pfad in Tabellle einlesen

[pwistuba]

Hallo,
danke erst einmal für die anderen Hilfestellungen die ich hier bekommen habe!
Diesmal möchte ich Bilder aus einen Ordner(die auf meiner Festplatte sind) in einer Tabelle zu einer Lagernummer einlesen.

Momentan habe ich das mit Hyperlink getan, da es sich aber um tausende von Bildern handelt sehr mühsam, darum würde ich das gern automatisieren?
Kann man eine Zählschleife verwenden und die Bilder passend zur Lagernummer in dem Bilderordner suchen und einzufügen?
Außerdem sind die Bilder Namen nicht 100% identisch zu der Lagernummer, meistens ist noch ein Anhang an dem Bilder Namen.

Danke

[Karolus]

Hallo
Es gibt die Funktion

Code: Alles auswählen

=HYPERLINK("file:///../blah/Mapco/Fotos/" & A2 & ".jpg")

Das Dumme dabei - deine 'Bildernamen' entsprechen nicht exakt den Lagernummern.

Ändere die Lagernummern oder die Bildbezeichnungen....

Karolus

[pwistuba]

Hallo
danke werde das ausprobieren.
Für das Namen Problem habe ich mir überlegt mit dem Befehl "Teil" nur den Teil rauziehen der der Lagernummer entspricht.
Aber als erstes muss ich den ganzen Salat einlesen.
Danke melde mich morgen

[pwistuba]

Hallo,
jetzt habe ich es verstanden, Problem ist das die Bilder erst umbenannt werden müssen.
Mit Platzhaltern kann man in dem Fall nicht arbeiten oder?

Danke

[F3K Total]

Hi,
mit diesem Makro wird geprüft ob das Foto vorhanden ist:

Code: Alles auswählen

Sub Main
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    adata = osheet.data
    nrow = ubound(adata)
    sFolderUrl = "F:\02_Bestellung\Mapco\Fotos\"'Pfad
    sExtension = ".jpg" 'Dateityp
    for i = 1 to nrow
        ocell = osheet.getcellbyposition(0,i)'Spalte A
        sFilename = ocell.string & sExtension
        sfileUrl = sFolderUrl & sFilename
        otargetcell = osheet.getcellbyposition(7,i)'Spalte H
        if fileexists(sfileUrl) then
            sformula = "=Hyperlink(""" & sFolderUrl & """&A" & (i+1) & "&""" & sExtension & """)"
            otargetcell.formula = sformula
        else
            otargetcell.formula="Bild "+sFilename+" nicht vorhanden"
            otargetcell.cellbackcolor = RGB(255,0,0)
        endif
    next i
End Sub

Viel Spaß
Gruß R

[pwistuba]

Danke für die Antwort.
Ich habe den letzten Vorschlag noch nicht probiert.
Habe aber festgestellt das es zum Teil mehrere Bilder mit der selben Lagernummer gibt (Bilder mit verschiedenen Ansichten) nur einen anderem Zusatz a, b, c. Also ich denke ich muss sowie so noch einmal die Bilder im einzelnen betrachten und entscheiden welche ich verwenden werde.

Hast Du noch einen Vorschlag, z.B. mit welchem Befehl könnte ich erst einmal alle Bilder als Link einlesen!
Dann könnte ich wie im Beispiel den Namen mit der Funktion "Teil" kürzen und so der Tabelle zuordnen?
Dann müssten doch auch, wenn von einer Lagernummer 3 oder mehrere Bilder vorhanden sind, diese hintereinander in der eingelesenen Tabelle stehen?

Geht das?

Nur zur Übersicht! Noch eine Frage zu meinen vorherigen, noch offenen Fragen, kann ich diese beenden oder beenden sich diese selbst?