Makro öffnen, Verknüpfung entfernen, speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
im folgenden meine Lösung zu Teilen deiner Frage.
Vorab ich verstehe nicht ganz was unter Punkt 2 (und 3) gemeint ist, aber kann das wahrscheinlich so und so nicht umsetzen... ^^
Zu Punkt 1, (3), 4 und 5 kann ich dir aber helfen.
Unten ist meine Lösung für die Punkte 1, 4 und 5, die ich aber auch nur mit Hife des Internets erarbeiten/weiterentwickeln konnte.
Bitte beachte, dass es zwar bei mir erfolgreich geklappt hat mit den Tests, aber es kann auch theoretisch möglich sein, dass es bei dir zu Problemen kommen könnte. Daher probiere es zumindest an Testdateien aus, da ich keine Gewähr auf Vollständigkeit bzw. Richtigkeit etc. geben kann und will.
Die Zeile mit dem Pfad musst du auf jeden Fall anpassen, da ich sie für hier leer gemacht habe.
Zu Punkt 3 fällt mir bisher nur folgendes ein (dies funktioniert zumindest bei Internet-/Hyperlinks).
ActiveCell.Hyperlinks.Delete
Hoffentlich konnte ich dir helfen.
Viele Grüße
Carlos

Sub Dateien_oeffnen()
Dim Pfad, Dateiendung, Datei, Dateiname As String
Pfad = "" 'anpassen (Ordnerebene 1 drüber als die zu öffnenden Dateien
Debug.Print "Pfad:" & Pfad
Dateiendung = "xls" 'ggf. anpassen
Datei = Dir(Pfad & "*." & Dateiendung)
Debug.Print "Datei:" & Datei
Do While Datei  ""
Workbooks.Open (Pfad & Datei)
Dateiname = Left(Datei, InStr(Datei, ".") - 1)
Debug.Print "Dateiname:" & Dateiname
'    ActiveWorkbook.ActiveSheet.Range("A1") = "Hallo" 'hier neuer Code
MsgBox "offen" 'hier neuer Code
ActiveWorkbook.SaveAs Pfad & "unterordner\" & Dateiname & " neu." & Dateiendung
Debug.Print "ziel_" & Pfad & "unterordner\" & Dateiname & " neu." & Dateiendung
ActiveWorkbook.Close savechanges:=False
'nächste Datei einlesen
Datei = Dir
Loop
End Sub

Sub EntfernenVerknuepfungen_in_xls_speichern() Dim varOrdner, varZiel Dim strDatei As String, wkb As Workbook Dim varLink, varLinks With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Bitte Ordner mit den xls-Dateien auswählen" If .Show = -1 Then varOrdner = .SelectedItems(1) Else Exit Sub End If .Title = "Bitte Ziel-Ordner für die xls-Dateien ohne Verknüpfung auswählen/anlegen" If .Show = -1 Then varZiel = .SelectedItems(1) Else Exit Sub End If End With strDatei = Dir(varOrdner & "\*.xls") Application.ScreenUpdating = False Do Until strDatei = "" Set wkb = Application.Workbooks.Open( _ Filename:=varOrdner & "\" & strDatei, _ UpdateLinks:=True, _ ReadOnly:=True) Application.DisplayAlerts = False varLinks = wkb.LinkSources(xlLinkTypeExcelLinks) If Not IsEmpty(varLinks) Then For Each varLink In varLinks wkb.BreakLink Name:=varLink, Type:=xlLinkTypeExcelLinks Next End If wkb.SaveAs Filename:=varZiel & "\" & strDatei, FileFormat:=xlExcel8 wkb.Close savechanges:=True Application.DisplayAlerts = True strDatei = Dir Loop Application.ScreenUpdating = False End Sub

Beliebteste Forumthreads (12 Monate)

Makro öffnen, Verknüpfung entfernen, speichern

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro öffnen, Verknüpfung entfernen, speichern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread