System Datei nicht öffnen

Forumthread: System Datei nicht öffnen
7 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: System Datei nicht öffnen

Steve

Hallo Forum,
Habe ein kleines problem.
Ich öffne alle (zwei) excel files in einem ordner, das problem ist das auch die systemdatei "~$..." automatisch von Excel in dem selben ordner generiert wird und diese möchte der code auch öffnen.
Wie kann ich das unterbinden ohne den fehler überspringen zu müssen?
Mein Code:

For Each foglio In cartella.Files
If foglio  Dir(foglio & "\*~$*") Then

Besten Dank
Steve

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: System Datei nicht öffnen

Tino
Eine zusätzliche Frage...

Martin
nicht das ich wüsste oT.

Tino
AW: Eine zusätzliche Frage...

Reinhard
AW: Eine zusätzliche Frage...

Tino
Bleib so wie du bist ist besser *find* :-) owT

Reinhard
Besten Dank

Steve

AW: System Datei nicht öffnen

05.05.2012 02:04:02

Tino

Hallo,
versuch es mal so.

Dim strDir$, strOrdner$
strOrdner = "C:\Ordner\" 'Ordner anpassen
If Right$(strOrdner, 1)  "\" Then strOrdner = strOrdner & "\"
ChDrive Left$(strOrdner, 2)
ChDir strOrdner
strDir = Dir$(strOrdner & "*.xls?", vbNormal)
Do While strDir  ""
Workbooks.Open strOrdner & strDir
strDir = Dir$()
Loop

Eine zusätzliche Frage...

05.05.2012 10:22:07

Martin

Hallo Tino,
gibt es Nachteile statt "ChDrive Left$(strOrdner, 2)" nur "ChDrive strOrdner" zu schreiben?
Viele Grüße
Martin

nicht das ich wüsste oT.

05.05.2012 11:14:56

Tino

AW: Eine zusätzliche Frage...

05.05.2012 15:16:14

Reinhard

Hallo Martin,
Nachteil sehe ich auch nicht.
ChDrive liest sowieso nur das erste Zeichen als Laufwerks-Buchstaben ein.
Also (wenn überhaupt) ChDrive Left$(strOrdner, 1)
ChDrive "C" ist also richtiger als ChDrive "C:".
Aber eine Rolle spielt das alles nicht, sag das nur der Vollständigkeit halber.
Gruß
Reinhard