Wie nur Dateien auswählen die als Zahl vorliegen?

Computer: Software & Programmierung Office Software
1

Hallo,
ich habe in Excel eine Liste von Artikelnummern von denen ich die Bilder brauche. Die Bilder haben den gleichen Namen wie die Artikelnummer.
Also das Bild von Artikelnummer 123 heißt 123.jpg
Gibt es irgendeine Möglich nur diese Bilder aus einem Ordner herauszubekommen zu denen auch eine Artikelnummer existiert?
Da sehr viele Bilder dabei sind von Artikeln die bereits verkauft wurden und die ich nicht mehr benötige.
Vielen dank für eure Hilfe im voraus.

2

Hi

ich habe in Excel eine Liste von Artikelnummern von denen ich
die Bilder brauche. Die Bilder haben den gleichen Namen wie
die Artikelnummer.
Also das Bild von Artikelnummer 123 heißt 123.jpg
Gibt es irgendeine Möglich nur diese Bilder aus einem Ordner
herauszubekommen zu denen auch eine Artikelnummer existiert?
Da sehr viele Bilder dabei sind von Artikeln die bereits
verkauft wurden und die ich nicht mehr benötige.

ähnliches wurde schon hier beschrieben
/t/festplatten-ordner-vergleichen-mit-excelliste/526…
aber ich überlasse VBA lieber den Experten :wink:

Gruss
ExNicki

3

ich habe in Excel eine Liste von Artikelnummern von denen ich
die Bilder brauche. Die Bilder haben den gleichen Namen wie
die Artikelnummer.
Also das Bild von Artikelnummer 123 heißt 123.jpg
Gibt es irgendeine Möglich nur diese Bilder aus einem Ordner
herauszubekommen zu denen auch eine Artikelnummer existiert?
Da sehr viele Bilder dabei sind von Artikeln die bereits
verkauft wurden und die ich nicht mehr benötige.

hallo kultiger Ossi, :smile:

was soll dann mit den .jpg-Dateien geschehen?

Gruß
Reinhard

4

Eigentlich nur die Bilder die in der Excel Liste stehen auf einen FTP Server hochladen mehr nicht.

5

Eigentlich nur die Bilder die in der Excel Liste stehen auf
einen FTP Server hochladen mehr nicht.

Hallo Ossi,

Alt+F11, Einfügen–Modul, Code reinkopieren, abändern, Editor schließen.
In Excel dann via Alt+F8 die Prozedur Vorhanden() ausführen.
Die Prozedur geht von der Liste in Spalte A aus.
Abändern mußt du im Code:
ServerName
UserName
Password
hostFile

Das ganze ist ungetestet, Code zu UploadFTP fand ich im Internet, habs nur leicht angepasst.

Sub vorhanden()
Dim Zei As Long, PfadDatei As String
Const Pfad As String = "C:\Test\"
With Worksheets("Tabelle1")
 For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
 PfadDatei = Pfad & .Cells(Zei, 1).Value & ".jpg"
 If Dir(PfadDatei) "" Then Call UploadFTP(PfadDatei)
 Next Zei
End With
End Sub
'
Sub UploadFTP(ByVal PfadDatei As String)
'When uploading a file, make sure you have permisson to create a file on the server.
'The size limit for a uploading a file is 4GB.
Dim hostFile As String, INet As Long, INetConn As Long, hostFile As String, Password As String
Dim RetVal As Long, ServerName As String, Success As Long, UserName As String
Const ASCII\_TRANSFER = 1
Const BINARY\_TRANSFER = 2
ServerName = "ftp.subnet.at"
UserName = "xyz"
Password = "xyz"
localFile = PfadDatei ' Quelle
hostFile = "\\whatever.xls" ' Ziel
RetVal = False
INet = InternetOpen("MyFTP Control", 1&, vbNullString, vbNullString, 0&amp:wink:
If INet \> 0 Then
 INetConn = InternetConnect(INet, ServerName, 0&, UserName, Password, 1&, 0&, 0&amp:wink:
 If INetConn \> 0 Then
 Success = FtpPutFile(INetConn, localFile, hostFile, BINARY\_TRANSFER, 0&amp:wink:
 RetVal = InternetCloseHandle(INetConn)
 End If
 RetVal = InternetCloseHandle(INet)
End If
'If Success 0 Then
' MsgBox ("Upload process completed")
'Else
' MsgBox "FTP File Error!"
'End If
End Sub

Gruß
Reinhard

6

Problem wurde gelöst.
Vielen dank an alle die mir geholfen haben. Bei einer anderen Frage Antworten Seite habe ich eine sehr gute und einfache Möglichkeit bekommen. Für alle die das selbe Problem haben hier die Lösung:
http://de.answers.yahoo.com/question/index?qid=20091…