Seite 1 von 1
Automatisch Bilder mit Pfad in Tabellle einlesen
Verfasst: Mi, 06.02.2013 14:29
von 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
Re: Automatisch Bilder mit Pfad in Tabellle einlesen
Verfasst: Mi, 06.02.2013 16:24
von 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
Re: Automatisch Bilder mit Pfad in Tabellle einlesen
Verfasst: Mi, 06.02.2013 18:43
von 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
Re: Automatisch Bilder mit Pfad in Tabellle einlesen
Verfasst: Mi, 06.02.2013 19:06
von 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
Re: Automatisch Bilder mit Pfad in Tabellle einlesen
Verfasst: Do, 07.02.2013 06:31
von 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
Re: Automatisch Bilder mit Pfad in Tabellle einlesen
Verfasst: Do, 07.02.2013 07:17
von 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?