Dateien öffnen
21.09.2004 10:11:53
Katja
Bin totaler vb-anfänger!
habe einen ordner durchsuchen lassen nach bestimmten dateien, diese werden mir dann angegeben unter .FoundFiles(i), ich will diese Dateien dann, falls erwünscht, öffnen, und den Inhalt in mein aktives Exceldokument kopieren. Ich weiß jedoch nicht wie ich so eine Datei(können auch Bilder oder Worddokumente sein) öffnen kann.
Bin bis jetzt so weit:
Sub nach_Anlagen_suchen()
Dim v1 As String
Dim v2 As String
Sheets("Tabelle2").Select
v1 = Range("AO7")
Set fs = Application.FileSearch
With fs
.LookIn = "G:\TEAM\Katja"
.Filename = v1
If .Execute > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & " Anlage(n) gefunden."
For i = 1 To .FoundFiles.Count
v2 = MsgBox(.FoundFiles(i) & Chr(13) & Chr(13) & "Wollen Sie die Anlage hinzufügen?", 36)
If v2 = 6 Then
End If
Next i
Else
MsgBox "Es wurden keine Anlagen gefunden."
End If
End With
End Sub
Kann mir irgenjemand helfen?
Danke im voraus
gruß katja