Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2025 21:20:55
Hyperlink in Spillfunktion
17.06.2025 19:33:47
Multiuserfähig und unterschiedliche Datumsformate ?
17.06.2025 14:19:23
Nur eindeutige Werte übernehmen
17.06.2025 13:40:07
Summe aus Zeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook.Open im WSS

Forumthread: Workbook.Open im WSS

Workbook.Open im WSS
Dan
Hallo,
ich möchte alle Excel-Dateien einer WindowsSharePoint-DocumentList nacheinander öffnen und bearbeiten.
Folgendes Makro habe ich für diese Aktion in einem "normalen" Verzeichnis. 
Sub test()
Application.ScreenUpdating = False
sPfad = "c:/temp"
If Right(sPfad, 1)  "/" Then
sPfad = sPfad & "/"
End If
sDatei = Dir(sPfad & "*.xls")
Do While sDatei  ""
Workbooks.Open sPfad & sDatei
AKTION
Workbooks(Workbooks.Count).Close savechanges:=True
sDatei = Dir()
Loop
Application.ScreenUpdating = True
End Sub
Im Wss kommt die Fehlermeldung 'Dateiname oder -nummer falsch' :-(
Könnt ihr mir weiterhelfen?
LG Dan
Anzeige
AW: Workbook.Open im WSS
17.11.2009 15:52:11
Oberschlumpf
Hi
Wenn nach AKTION die zuletzt geöffnete Datei noch immer aktiv ist, dann mach mal aus
Workbooks(Workbooks.Count).Close savechanges:=True
=
ActiveWorkbook.Close savechanges:=True
Hilfts?
Ciao
Thorsten
AW: Workbook.Open im WSS
17.11.2009 15:53:38
Dan
Hallo Thorsten,
so weit komme ich gar nicht. Ich kann gar keine Datei öffnen.
LG Dan
Anzeige
bin überfragt
17.11.2009 15:57:42
Oberschlumpf
Hi Dan
Das haste leider nich erwähnt. Ich weiß dann auch nix.
Was is denn WWS?
Ciao
Thorsten
AW: Workbook.Open im WSS
17.11.2009 16:29:24
Tino
Hallo,
versuche es mal so.
Erst Dateien sammeln und danach die Aktionen ausführen.
Sub test()
Dim meArDateien() As String
Dim i As Integer
Dim sDatei$, sPfad$
Dim oWB As Workbook
sPfad = "C:\temp"
If Right(sPfad, 1)  "\" Then
sPfad = sPfad & "\"
End If
sDatei = Dir$(sPfad & "*.xls")
Do While sDatei  ""
ReDim Preserve meArDateien(i)
meArDateien(i) = sPfad & sDatei
sDatei = Dir$()
Loop
If i > 0 Then
Application.ScreenUpdating = False
For i = 0 To UBound(meArDateien)
Set oWB = Workbooks.Open(sPfad & sDatei)
AKTION
oWB.Close savechanges:=True
Next i
Application.ScreenUpdating = True
End If
End Sub
Gruß Tino
Anzeige
fehlt noch i=i+1
17.11.2009 17:04:10
Tino
Hallo,
da fehlt noch i=i+1
Sub test()
Dim meArDateien() As String
Dim i As Integer
Dim sDatei$, sPfad$
Dim oWB As Workbook
sPfad = "C:\temp"
If Right(sPfad, 1)  "\" Then
sPfad = sPfad & "\"
End If
sDatei = Dir$(sPfad & "*.xls")
Do While sDatei  ""
ReDim Preserve meArDateien(i)
meArDateien(i) = sPfad & sDatei
i = i + 1
sDatei = Dir$()
Loop
If i > 0 Then
Application.ScreenUpdating = False
For i = 0 To UBound(meArDateien)
Set oWB = Workbooks.Open(sPfad & sDatei)
AKTION
oWB.Close savechanges:=True
Next i
Application.ScreenUpdating = True
End If
End Sub
Gruß Tino
Anzeige
klappt auch nicht
18.11.2009 08:19:13
Dan
Hallo Tino,
leider kommt wieder bei
sDatei = Dir$(sPfad & "*.xls")
die Fehlermeldung: Laufzeitfehler 52: Dateiname oder -nummer falsch
:-(
Lg Dan
Versuche mal diese Version.
18.11.2009 08:56:10
Tino
Hallo,
warum der Fehler bei Dir kommt weis ich auch nicht.
Sub test()
Dim meArDateien() As String
Dim i As Integer
Dim oWB As Workbook
Dim FSO As Object, SourceFolder As Object, FileItem As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder("C:\temp") 'Ordner angeben
For Each FileItem In SourceFolder.Files
If LCase(FileItem) Like "*.xls" Then 'Filter
meArDateien(i) = FileItem
i = i + 1
End If
Next FileItem
If i > 0 Then
Application.ScreenUpdating = False
For i = 0 To UBound(meArDateien)
Set oWB = Workbooks.Open(meArDateien(i))
'          AKTION
oWB.Close savechanges:=True
Next i
Application.ScreenUpdating = True
End If
Set FSO = Nothing: Set SourceFolder = Nothing
End Sub
Gruß Tino
Anzeige
AW: Versuche mal diese Version.
18.11.2009 09:36:02
Dan
Hallo Tino,
funktioniert leider nicht. Es ist ja eben kein Filesystem-Ordner.
Die Dateien liegen in einem Ordner, auf den über die Windows SharePoint Services zugegriffen wird.
LG Dan
sorry weis auch nicht weiter, Frage offen oT.
18.11.2009 09:43:24
Tino
habe eine Lösung gefunden
18.11.2009 13:48:23
Dan
Hallo,
ich habe es jetzt so gelöst, dass ich das Verzeichnis auf Z: verbinde und dort mit Filesearch suche.
Danke für eure Bemühungen.
LG Dan
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige