BreakLink
09.12.2004 11:48:41
daniel
ich möchte aus einer Excel Mappe andere ändern.
Mir geht es darum die Excel Datei unter einen anderen Namen zu speichern und dabei alle Links zu löschen.
Sub DateiSpeichern()
Dim STGFileName As String
ChDrive "V"
ChDir "V:\_Org\Poyc-3\Service Delivery\Contracting\Sicherung"
STGFileName = "ControllingCST-s " + Format(Now, "mmddyy") + ".xls"
ActiveWorkbook.BreakLink Name:="C:\Program Files\Microsoft Office\Office10\Addins\XLODBC.XLA", Type:=xlExcelLinks
ActiveWorkbook.SaveCopyAs STGFileName
End Sub
mit diesem Code geht es jedoch verliere ich so auch in der Original Datei den Link. Wie kann ich das Lösen hat jemand eine Idee.
Gruss
Daniel