Datendatei (.csv) beim öffnen immer im Hintergrund mögl.?
08.08.2024 00:34:48
Frank Dreier
habe eine Datendatei die neue Daten beinhaltet. Wenn ich diese mit:
Workbooks.OpenText Filename:= Leider funktioniert diese gängige Methode nicht (also das Öffnen vorher zu manipulieren über die Datendatei selber): z.B:
Private Sub Workbook_Open()
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 30
.Left = 10
.Width = 600
.Height = 350
End With
End SubDas geht nicht, da die Datendatei immer wieder neu ausgelesen wird und ich dann erst die .csv Datei bearbeiten müsste um sie dann mit dem Private Sub Workbook_Open() auszustatten.
Gibt es in Excel irgendeine Möglichkeit festzulegen, dass jede Datei die geöffnet wird z.B. nur eine bestimmte Fenster-Größe haben soll beim öffnen oder wird jede (nicht mit z.B. Private Sub Workbook_Open) Datei immer über das ganze Excel und im Vordergrund geöffnet?
Es gäbe noch eine Möglichkeit:
Das auslesen der Daten ohne die Datei zu öffnen. Das ist leider zu aufwendig und dauert zu lange.
Bsp:
Dim fso As Object
Dim txt As Object
Dim c As Range
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile("c:\datendatei.csv", True)
For Each c In Range("A:A")
If c.Value > "" Then
' Spalte A und B getrennt durch Semikolon
txt.WriteLine c.Value & ";" & c.Offset(0, 1).Value & ";" & c.Offset(0, 2).Text & ";" & c.Offset(0, 3).Text & ";" & c.Offset(0, 4).Text & ";" & c.Offset(0, 5).Text
Else
GoTo AfterNEXT
End If
Next
AfterNEXT: Das geht leider nicht, da die Datenmengen zu hoch sind, daher muss die Datei über Excel geöffnet werden. Gibt es irgendeine Einstellungsmöglichkeit unter Excel, dass Daten bei Öffnung NICHT über den ganzen Bildschirm geöffnet werden?
Anzeige