VBA: Blatt kopieren, dann abspeichern
11.01.2007 15:31:11
Boris
ich würde gerne folgendes lösen: Sheet1 zieht sich je nach in Zelle A1 eingegebener ID Informationen aus Sheet2. Nun möchte ich Sheet1 für jede ID in einer eigener Datei abspeichern. Also: Speichere Sheet1 nur mit Werten (ohne Verknüpfungen) in eine eigene Datei, benannt nach Zelle A1.
Eine Lösung wäre:
1) Kopiere Sheet1
2) lösche alle Verknüpfungen (break links)
3) Speichere die erzeugte Datei
4) Schliesse die erzeugte Datei
Dabei habe ich nun folgendes Problem: mit ActiveSheet.copy kopiere ich Sheet1 in eine neue Datei. Wie spreche ich diese Datei nun an (um die verknüpfungen zu löschen und sie abzuspeichern)? Sie hat ja noch keinen Namen...? Mein Code sieht erstmal so aus, wobei die ? zu ersetzen wären:
Sub CopyToSingleFile()
Dim vlink As Variant
ActiveSheet.Copy
vlink = ?workbook.LinkSources(xlExcelLinks)
If Not IsEmpty(vlink) Then
For j = 1 To UBound(vlink)
?Workbook.BreakLink vlink(j), Type:=xlLinkTypeExcelLinks
Next j
End If
?Workbook.SaveAs Filename:=ActiveWorkbook.Sheets(1).Range("A1").Value
End Sub
Oder gibt es eine elegantere Lösung?
Gruß,
Boris