Makro öffnen, Verknüpfung entfernen, speichern

Forumthread: Makro öffnen, Verknüpfung entfernen, speichern

18.03.2018 16:28:25

Stefan

Hallo zusammen
Ich arbeite mit Excel 2010 auf Windows 7 und möchte sämtliche xls-Dateien (Excel 97-2003) im gleichen Ordner
- öffnen,
- den Inhalt aktivieren (da die Dateien alle ein "Auto open" Makro enthalten), dann
- alle Verknüpfungen in jedem File entfernen und diese Verknüpfungen durch Festwerte ersetzen, dann
- alle Files in einem anderen Unterordner speichern und
- die Mappe dann schliessen.
Ich habe nur wenig VBA-Kenntnisse und wäre sehr dankbar, wenn mich hier jemand unterstützen könnte.
Danke zum Voraus und viele Grüsse
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro öffnen, Verknüpfung entfernen, speichern

18.03.2018 18:58:11

Carlos

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

AW: Makro öffnen, Verknüpfung entfernen, speichern

18.03.2018 19:41:01

fcs

Hallo Stefan,
versuche dein Glück mal mit dem folgenden Makro.
Gruß
Franz

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

Forumthread: Makro öffnen, Verknüpfung entfernen, speichern

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro öffnen, Verknüpfung entfernen, speichern

Forumthread: Makro öffnen, Verknüpfung entfernen, speichern

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread