ich habe frage, kann ich mit ein Makro externe Datei im gleihe laufwerk(Laufwerk P:\) aber verschiedener Ordner öfnen, daten rein kopieren und wieder schliesen lassen. Öfnende Datei nicht geschütz usw.
mfg
Tayyar
Sub speichern ()
Dim wb As Workbook
Dim WBquelle As Worksheet
Dim WBziel As Worksheet
Dim TB As Worksheet
Dim dName As Variant
'!!!Datei und Tabellennamen anpassen!!!
Set WBquelle = Worksheets("Formblatt")
Set wb = Workbooks.Open("L:\BL_Einkauf\ISO 9001-2000\Lieferanten-Bewertungen\Lieferantenbewertung 2005\Quartal1\Mappe1.xls")
Set WBziel = wb.Sheets("Tabelle1")
'Datei kopieren in Mappe1, Tabelle1
On Error Resume Next
WBquelle.Copy after:=wb.Sheets(wb.Worksheets.Count)
Worksheets("Formblatt").Name = "Formblatt1"
Application.DisplayAlerts = False
'Worksheets("Formblatt").Delete
wb.Sheets("Tabelle1").Delete
Application.DisplayAlerts = True
'Datei unter der dName abspeichern
Set TB = ActiveWorkbook.Worksheets(1)
dName = "L:\BL_Einkauf\ISO 9001-2000\Lieferanten-Bewertungen\Lieferantenbewertung 2005\Quartal1\" & "Name_Der_Neuen_Datei" & ".xls"
ActiveWindow.Zoom = "80"
'Ausschalten der Meldung "Wollen sie wirklich Speichern?" bzw. aller
'Meldungsfenster
Application.DisplayAlerts = False
TB.SaveAs dName
'wiedereinstellen der Funktion
Application.DisplayAlerts = True
'Mappe1 soll nachdem alle gespeichert sind geschlossen werden
wb.Close True
End Sub