Excel VBA Datein öffnen & Speichern

Sub Test() Dim intDat As Integer, DatOP intDat = 0 DatOP = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*", MultiSelect:=True) If IsArray(DatOP) Then For intDat = LBound(DatOP) To UBound(DatOP) Workbooks.Open Filename:=DatOP(intDat), UpdateLinks:=3 ActiveWorkbook.Close SaveChanges:=True Next intDat Else MsgBox "Sie haben keine Mappe ausgewählt." End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Test() Dim intDat As Integer, DatOP intDat = 0 ChDir "C:\" DatOP = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*", MultiSelect:=True) If IsArray(DatOP) Then For intDat = LBound(DatOP) To UBound(DatOP) Workbooks.Open Filename:=DatOP(intDat), UpdateLinks:=3 ActiveWorkbook.Close SaveChanges:=True Next intDat Else MsgBox "Sie haben keine Mappe ausgewählt." End If End Sub

Sub Test() With Application .ScreenUpdating = False End With Const FOLDER_PATH As String = "d:\test\" 'Anpassen Backslash am Ende nicht löschen !!! Dim objWorkbook As Workbook Dim strFilename As String strFilename = Dir$(FOLDER_PATH & "*.xlsx") Do Until strFilename = vbNullString Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, UpdateLinks:=3) Call objWorkbook.Close(SaveChanges:=True) strFilename = Dir$ Loop Set objWorkbook = Nothing With Application .ScreenUpdating = True End With End Sub

Public Sub Test() Const FOLDER_PATH As String = "H:\Ordner\" 'Anpassen Backslash am Ende nicht löschen !!! Dim objWorkbook As Workbook Dim strFilename As String strFilename = Dir$(FOLDER_PATH & "*.xlsx") Do Until strFilename = vbNullString Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, UpdateLinks:=3) Call objWorkbook.Close(SaveChanges:=True) strFilename = Dir$ Loop Set objWorkbook = Nothing End Sub

Hallo und Danke für die Antworten.
ich habe den Code noch mal angepasst wegen dem Updating
Lokal auf dem Rechner funktioniert es z.B. d:\Test\
aber wie bekomme ich das mit einen UNC Pfad für Sharepoint ?.


Sub Test()
With Application
.ScreenUpdating = False
End With
Const FOLDER_PATH As String = "d:\test\" 'Anpassen Backslash am Ende nicht löschen !!!
Dim objWorkbook As Workbook
Dim strFilename As String
strFilename = Dir$(FOLDER_PATH & "*.xlsx")
Do Until strFilename = vbNullString
Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, UpdateLinks:=3)
Call objWorkbook.Close(SaveChanges:=True)
strFilename = Dir$
Loop
Set objWorkbook = Nothing
With Application
.ScreenUpdating = True
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Excel VBA Datein öffnen & Speichern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

354 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel VBA Datein öffnen & Speichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

354 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread