Variable1 = V1 & v2 & v3 geht nicht, warum?
14.09.2005 08:48:52
Gülich
habe bei folgendem Makro 2 Probleme:
1. Zusammenbau der variablen ZuÖffnendeDatei
Sobald ich nach dem Rechnername die Dateiendung anhängen will funktioniert es nicht. Wenn ich aber der Variablen Rechnername irgend einen beliebigen Text zuweise, dann funktioniert es. Woran liegt das? Bzw. wie kann man das richtig stellen?
2. Ganz am Ende bei der Application.Close Anweisung wird zwar die Arbeitsmappe geschlossen, aber EXCEL selbst bleibt geöffnet. Bei erneutem Start kommt dann wieder ein neues Fenster und bleibt dann stehen. So vermehren sich meine leeren EXCEL Fenster.
Gibt es eine Möglichkeit EXCEL auch zu schliessen, wenn es nicht bereit s geöffnet ist? Was passiert mit anderen Excel-Dateien, die ggf. geöffnet sind?
Sprich: wenn nichts offen, dann alles schliessen,
wenn noch weitere Datei geöffnet, nur Arbeitsmappe schliessen
Freue mich auf Eure Hilfestellung. Danke.
-------------------------------------------------------------------------------
DieseArbeitsmappe
Option Explicit
-------------------------
Private Sub Workbook_Open()
'Deklaration im Modul1 da in DieseArbeitsmappe Deklaration nicht funktioniert
'Computername auslesen
Dim Rechnername As String * 64
Call GetComputerName(Rechnername, 64)
'Variablen deklarieren
Dim variable1 As Boolean
Dim ZuÖffnendeDatei As String
Dim Pfad As String
Dim Endung As String
Dim fs
'Werte zuweisen
Pfad = "T:\"
Endung = ".txt"
'Zusammenbauen der zu öffnenden Datei
'SOLL: T:\Rechnername.txt wobei Rechnername durch den Namen der Workstation im Netz ersetzt wird
ZuÖffnendeDatei = Pfad & Rechnername & Endung
MsgBox (ZuÖffnendeDatei) 'zum testen, ob alles funktioniert hat.
'Prüfung ob Ddatei vorhanden
Set fs = CreateObject("Scripting.FileSystemObject")
variable1 = fs.FileExists(ZuÖffnendeDatei)
'Abbrechen-Abfrage, wenn Datei NICHT vorhanden
If variable1 = "Falsch" Then
Dim Mldg, Stil, Titel, Antwort ' Variablen definieren
Mldg = "Datei aus Caché konnte nicht gefunden werden! Luftfrachtrechner wieder schliessen?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton1 + vbApplicationModal + vbMsgBoxSetForeground ' Schaltflächen definieren.
Titel = " Datei fehlt - beenden?" ' Titel definieren.
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = 6 Then
GoTo weiter
Else: GoTo abbrechen
End If
End If
'Datei aus KEA ins EXEL einesen, bearbeiten und Antwortdatei zurückschreiben
Application.Run ("LFR_4_KEA.XLS!Daten_KEA_2_XLS")
Application.Run ("LFR_4_KEA.XLS!Daten_XLS_2_KEA")
weiter:
'EXCEL schliessen
ActiveWindow.Close SaveChanges:=False ' ACHTUNG!!! Nach aktivieren schliesst EXCEL selbständig!
abbrechen:
End Sub
-------------------------------------------------------------------------------