Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

neueste Datei aus einem Ordner einfügen

neueste Datei aus einem Ordner einfügen
15.01.2016 08:04:59
otto
Guten Morgen,
ich möchte in ein Blatt mittels einer Schaltfläche die vom Datum her neueste Datei(tif-Grafik) aus einem bestimmten Ordner in Zelle B293 einfügen.
Ordner: F:\Scanner
Dateiname wird vom Scanner erstellt, kann also nicht angegeben werden.
Wie kann ich das lösen?
Geht das einfügen auch mit einer pdf? Soweit ich weiß ist da die Qualität miserabel?
Gruß otto

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: neueste Datei aus einem Ordner einfügen
15.01.2016 09:37:53
JoWE
Hallo Otto,
vllt. so? 

Sub Select_File()
Dim MyPath As String
Dim Fname As Variant
MyPath = Application.DefaultFilePath
ChDir MyPath
Fname = Application.GetOpenFilename(FileFilter:="Pictures,*.tif", _
Title:="Select a Picture", MultiSelect:=False)
'Fname = Application.GetOpenFilename(FileFilter:="Pictures,*.jpg", _
Title:="Select a Picture", MultiSelect:=False)
If Fname  False Then
ActiveSheet.Pictures.Insert(sPath & "\" & Fname).Select
End If
End Sub
Das aktuellste Bild kannst Du mit der Sortierfunktion im Öffnen-Dialog einstellen (1 Click!).
Gruß
Jochen

Anzeige
und hier vollautomatisch...
15.01.2016 09:50:55
Oberschlumpf
...wenns denn funktioniert :-)
Hi otto
hier, versuch mal...
https://www.herber.de/bbs/user/102796.xlsm
1. Mein Code fügt in der Datei zuerst eine neue Tabelle hinzu, da diese zum Sortieren benötigt wird
2. Dann wird dein Verzeichnis "F:\Scanner\" nach allen tif-Dateien durchsucht
diese werden in einem 2-dimensionalen Array gespeichert, ungefähr so:
Array(Dateiname, Erstelldatum)
3. Alle Einträge aus dem Array werden dann in die unter 1. neue Tabelle in die Spalten A + B eingefügt
4. Die Spalten werden nun nach Spalte B (Erstelldatum) aufsteigend sortiert
Daraus ergibt sich, dass in der letzten, benutzten Zeile in Spalte A der Name der aktuellsten tif-Datei steht
5. Jetzt wird in "deineTabelle" genau die zuvor ermittelte tif-Datei eingefügt
Du musst im Code noch diese Zeile anpassen:
Sheets("deineTabelle").Activate
Du schreibst nur "ich möchte in ein Blatt..."
Aber WELCHES Blatt oder Tabelle?
Deshalb musst du anstelle von "deineTabelle" eben den richtigen Tabellennamen eintragen, da du ihn hier nicht verraten hast.

Hilfts denn?
Ciao
Thorsten

Anzeige
AW: und hier vollautomatisch...
15.01.2016 10:16:32
otto
Hi,
Ergebnis von:
s_Dateiname = Dir(s_Path & "*.tif")
ist leider ""
Somit wird nichts gesucht und auch nichts eingetragen.
Hat jemand noch eine Idee?
Blattname ist übrigens Sheets("EMPB")
otto

AW: und hier vollautomatisch...
15.01.2016 10:36:48
Oberschlumpf
Hi
steht denn in dieser Zeile
s_Path = "F:\Scanner\"
als letztes Zeichen auch das \ ?
Bei mir funktioniert der Code 100%.
Bin auf deine Antwort zu meiner Frage neugierig.
Ciao
Thorsten

noch eine Idee
15.01.2016 10:38:35
Oberschlumpf
Hi
Welche Endung haben deine tif-Dateien?
Es gibt die Endung .tif und auch .tiff
In meinem Code werden nach .tif-Dateien gesucht.
Hilft dieser Ansatz?
Ciao
Thorsten

Anzeige
funzt super, Danke
15.01.2016 11:13:22
otto
Hi,
funzt, hatte falschen Laufwerksbuchstaben, sorry.
otto

309 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17