AW: Schließen von xls-Dateien
15.09.2004 11:04:36
xls-Dateien
Hallo OttoH,
danke für die Info. Das funktioniert sicher so. Ich möchte die Dateinamen aber nicht in einem Tabellenblatt hinterlegen, sondern im Code. Bezogen auf das Beispiel habe ich es so gelöst:
Sub Aufruf()
Dim sFile As String
sFile = "Dateiname1"
If WkbExists(sFile) Then
MsgBox "Mappe " & sFile & " ist offen!"
Else
MsgBox "Mappe " & sFile & " ist geschlossen!"
End If
sFile = "Dateiname2"
If WkbExists(sFile) Then
MsgBox "Mappe " & sFile & " ist offen!"
Else
MsgBox "Mappe " & sFile & " ist geschlossen!"
End If
sFile = "Dateiname3"
If WkbExists(sFile) Then
MsgBox "Mappe " & sFile & " ist offen!"
Else
MsgBox "Mappe " & sFile & " ist geschlossen!"
End If
End Sub
So geht es auch. Aber das scheint mir nicht professioniell genug zu sein. Ich würde es lieber mit einer Schleife machen. Meinetwegen so:
Sub Aufruf()
Dim sFile As String
Dim i As Integer
sfile(1)=Dateiname1
sfile(2)=Dateiname2
sfile(n)=Dateinamen
For i = 1 To n
If WkbExists(sFile(i)) Then
MsgBox "Mappe " & sFile(i) & " ist offen!"
Else
MsgBox "Mappe " & sFile(i) & " ist geschlossen!"
End If
Next i
End Sub
Aber das geht so nicht. Bringt immer einen Fehler. Wie kann ich das machen?
Gruß, Carsten