Problem bei Dateicheck
07.01.2006 11:34:47
Peter
ich habe Probleme bei der Überprüfung der Datei (offen/zu) wenn
ich die zu überprüfende Datei mit Variablen benenne.
Wer kann helfen?
Danke für die Mühe im voraus
Peter
'Option Explicit
'In DieseArbeitsmappe:
'
Private Sub Workbook_Open()
'Call DateiCheck
'End Sub
'--Quelldatei--
'F:\Abtlng1\Material
'Dateiname:Abtlng1.xls
'Blattname:Verbrauch
Sub DateiCheck()
Dim offen As Boolean
Dim sfile, QName As String
Application.ScreenUpdating = False
QName = "Abtlng1"
sfile = QName & ".xls"
offen = DateiOffen(QName & ".xls")
If offen = True Then
Call Kopieren
Else
'ChDir "F:\" & QName & "\Material"
'Fehler>>> 'Workbooks.Open (sfile)
Workbooks.Open Filename:="F:\Abtlng1\Material\Abtlng1.xls"
Call Kopieren
Workbooks(sfile).Close False
End If
End Sub
Function DateiOffen(sfile As String) As Boolean
'Check ob Datei geöffnet ist
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sfile)
If Not wkb Is Nothing Then
DateiOffen = True
Else
DateiOffen = False
End If
End Function
Sub Kopieren()
Dim LRow As Long
Dim QSh, ZSh As Object
Set QSh = Workbooks("Abtlng1.xls").Worksheets("Verbrauch")
Set ZSh = ThisWorkbook.Worksheets("GesVerbrauch")
LRow = QSh.Cells(Rows.Count, 2).End(xlUp).Row
ZSh.Cells.ClearContents
ZSh.Range(ZSh.Cells(2, 1), ZSh.Cells(LRow, 15)).Value = _
QSh.Range(QSh.Cells(2, 1), QSh.Cells(LRow, 15)).Value
ZSh.Columns.AutoFit
End Sub