Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleichzeitiger Zugriff auf Datei | Herbers Excel-Forum

gleichzeitiger Zugriff auf Datei
28.01.2010 21:51:58
Armin

Hallo,
ich habe ein Excel-Programm entwickelt, welches u.a. Daten in ein Textfile schreibt, siehe folgenden Code:
Open iniDatei For Output As 1
Zaehler = 123
Print #1, Zaehler
Close #1

Dieser Code bewirkt, dass der Zähler bei jeder Ausführung um den Wert 1 erhöht wird.
Nun sollen mehrere User mit dem Programm arbeiten. Es besteht sicherlich die theoretische Möglichkeit, dass zur gleichen Zeit die Daten geschrieben werden, also zur gleichen Zeit der Zähler erhöht wird. Jede theoretische Möglichkeit kann aber natürlich auch in der Praxis eintreten. Trifft Excel, bzw. VBA selbst Vorkehrungen, dass dies nicht eintritt oder muss ich irgendetwas programmtechnisch unternehmen.
Kann mir mit hier jemand weiterhelfen?
Vielen DAnk für euere Tipps
Schöne Grüße
Armin

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:01:58
JDommi
Es kann immer nur einen Vollzugriff auf eine Excel-Datei geben.
Bei jedem weiteren Versuch die Datei zu öffnen kommt die Meldung, daß die datei bereits geöffnet ist.
Es erfolgt dann nur noch die Auswahl zwischen "Schreibgeschützt öffnen", "Meldung, wenn Datei frei" bzw. "Abbruch"
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:11:16
Armin
Hallo,
nein, mit Print kann sogar in eine geöffnete Datei geschrieben werden. Wenn ich die txt-Datei mit dem Editor öffne, dann per VBA (bei geöffneter Datei) die Zählernummer erhöhe, dann ist die neue Zählernummer vorhanden.
Die Frage ist nun, was bei absolut gleichzeitigem Zugriff per VBA passiert.
Viele Grüße
Armin
Anzeige
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:16:43
JDommi
Klar, dann liest du die Datei mit dem Editor aber auch nur ein: Öffne Datei - Lese Datei - Schließe Datei. Der Dateizugriff besteht nicht mehr!
Zweimal die gleiche Exceldatei mit Excel öffnen geht definitiv nicht.
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:11:53
JDommi
By the way: Mit "On Error Goto Fehlerroutine" kannst du auch eine Meldung ausgeben und/oder die Mappe/Excel schliessen.
Sub DeineRoutine
On Error Goto Fehlerroutine
Open iniDatei For Output As 1
Zaehler = 123
Print #1, Zaehler
Close #1
Exit Sub
Fehlerroutine:
If Workbooks.Count > 1 Then
ThisWorkbook.Close savechanges:=False
Else
Application.Quit
End If
End Sub

Anzeige
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:21:25
MichaV
Hei Armin,
da kümmert sich das Betriebssystem drum. Du musst beim öffnen der Datei einen evtl. Fehler "kein Zugriff auf Datei" abfangen und es ggf. nach einem DoEvents nochmal versuchen.
Gruss- Micha
PS:JDommi, hier gehts um Textdateien.
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:33:08
Armin
Hallo Micha,
vielen Dank. Hättest Du dafür ein paar Code-Zeilen parat?
Viele Grüße und vielen Dank
Armin
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:51:59
MichaV
Hier mal was ohne Netzwerk. Kann sein das der Errorcode bei "Zugriff verweigert" ein anderer ist, musst Du mal ausprobieren. Hier wird versucht eine bereits offene Datei nochmal zu öffnen, und zwar 10 mal.
Option Explicit
Sub test()
Dim k As Integer
Open "versuch.txt" For Input As #1
On Error GoTo fehler_beim_oeffnen
versuchs_nochmal:
Open "versuch.txt" For Random As #2
Close
Exit Sub
fehler_beim_oeffnen:
If Err.Number = 55 And Not k = 10 Then
k = k + 1
Resume versuchs_nochmal
Else
MsgBox Err.Number & ":" & Err.Description
End If
End Sub
Es ist halt nur ne grundlegende Überlegung. Entweder Du öffnest die Datei als SHARED, dann können mehrere Benutzer darin schreiben, aber halt nur hintereinander (wenn zwei auf die ms gleichzeitig wollen dann muss einer warten bis der andere fertig ist). Da Du nur einen Wert speichern willst macht das denke ich keinen Sinn, also musst Du die Datei so öffnen das nur einer schreiben kann. Und gleich danach wieder zumachen. Wenn nun ein anderer die für wenige ms geöffnete Datei ebenfalls öffnen will dann gibts ne Fehlermeldung. Also muss der andere ne Weile warten und es nochmal probieren.
Gruss- Micha
Anzeige
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:56:48
Josef Ehrensberger
Hallo Armin,
wenn du den Modus Shared verwendets, sollte es keine Probleme geben.
Sub txt()
  Dim strFile As String
  Dim ff As Integer
  Dim zaehler As String
  
  strFile = "E:\Temp\zugriff.txt"
  ff = FreeFile
  
  Open strFile For Input Shared As #ff
  Input #ff, zaehler
  Close #ff
  
  zaehler = CStr(Cint(zaehler + 1))
  
  ff = FreeFile
  
  Open strFile For Output Shared As #ff
  Print #ff, zaehler
  Close #ff
  
End Sub


Gruß Sepp
Anzeige
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 22:59:11
MichaV
Hallo Sepp,
denke ich bei dem Einzeiler auch. Aber theoretisch könnten doch zwei Benutzer zur wirklich gleichen Zeit schreiben wollen. Oder nehmen wir mal an es werden 10.000 Zeilen geschrieben. Gibts dann nicht eine Fehlermeldung?
Gruss- Micha
AW: gleichzeitiger Zugriff auf Datei
28.01.2010 23:26:54
Josef Ehrensberger
Hallo Micha,
lässt sich ja schlecht testen, aber es dürfte keine Fehlermeldung kommen.
Gruß Sepp

304 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Hyperlink auf Sheet in anderer Datei
Christoph

Hallo zusammen, mal wieder ein kleines Problem:
Ich lese aus einer Zelle den Text Karteikartenneu\A.xls#'Nachname Vorname Ort'!A4 ein.
Ziel des unten stehenden Codes ist es, im Unterverzeichnis Karteikartenneu die Datei A.xls zu öffnen und das Sheet Nachname Vorname Ort im Vordergrund z...
21.10.2008 08:04:00
Thread-ID: 1017836
6 Beiträge
Anzeige
Zellbezug auf Datei
Domtsgi

Hallo zusammen.
Ich möchte mehrere Zellbezüge auf eine Datei in einem anderen Pfad machen. Der Pfad ändert sich laufend und so sollte ich diese Pad- Variabel (manuell) bestimmen können.
Zelle F2: "Angabe des Pfades" C:/Dateiablage/Adressen
Die Formeln müssten dann etwa so aussehen:<...
20.11.2008 10:01:17
Thread-ID: 1026325
2 Beiträge
Kopf- & Fußzeile auf andere Dateien übertragen?
Jessi

Hallo zusammen,
habe mal wieder eine Frage:
Habe 175 Dateien, die ich mit gleicher Kopf- & Fußzeile versehe muss. Die Dateien sind alle gleich nummeriert:
001.xlsm
002.xlsm
(...)
175.xlsm
Gibt es ggf. eine geschickte Möglichkeit z.B. das erste Tabellenblatt richt...
06.12.2008 18:56:00
Thread-ID: 1030728
9 Beiträge
Zugriff auf andere Programm/Daten in/exportieren
abu

Hallo Zusammen,
ich wuerde gerne wissen ob Excel in der Lage ist aus einem anderen Programm (Prologs) Daten zu exportiern und darzustellen und umgekehrt. Desweiteren wuerde ich gerne eine Routine in Excel programmieren (besser versuchen hinzubekommen) welche ueber den InternetExplorer auf e...
09.12.2008 10:50:51
Thread-ID: 1031278
11 Beiträge
Schneller Zugriff auf andere Dateien
Marco

Hallo zusammen,
ich möchte in einer Prozedur auf Daten in einem anderen Workbook zugreifen, welches zu diesem Zeitpunkt nicht geöffnet ist. Wie kann ich dies tun ohne das Programm zu langsam zu machen.
Gruß Marco
10.12.2008 10:13:00
Thread-ID: 1031590
5 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
2
5
2
1
8
10
4
3
2
1
5
1
14
2
3
4
8
8
3
5
4
4
3