Öffnen Excel-Datei zum Lesen mit VBA ohne Anzeige

Question

Ich möchte vorhandene Excel-Dateien mit einem Makro durchsuchen, aber ich möchte diese Dateien nicht anzeigen, wenn sie durch den Code geöffnet werden. Gibt es eine Möglichkeit, sie "im Hintergrund" sozusagen "aufzumachen"?

Answer 1

Nicht sicher, ob man sie unsichtbar in der aktuellen Instanz Excel öffnen kann

Sie allerdings eine neue Instanz von Excel öffnen kann, es verstecken und öffnen Sie dann die Arbeitsmappe

Dim app as New Excel.Application 
app.Visible = False 'Visible is False by default, so this isn't necessary 
Dim book As Excel.Workbook 
Set book = app.Workbooks.Add(fileName) 
' 
' Do what you have to do 
' 
book.Close SaveChanges:=False 
app.Quit 
Set app = Nothing 

Wie andere geschrieben haben, Stellen Sie sicher, dass Sie aufräumen, nachdem Sie alle geöffneten Arbeitsmappen beendet haben

Answer 2

In Excel verbergen Sie die Arbeitsmappen und speichern Sie sie als ausgeblendet. Wenn deine App sie lädt, werden sie nicht angezeigt.

Bearbeiten: Nach dem erneuten Lesen wurde klar, dass diese Arbeitsmappen nicht Teil Ihrer Anwendung sind. Eine solche Lösung wäre für Benutzerarbeitsmappen nicht geeignet.

Answer 3

Öffnen Sie sie aus einer neuen Instanz von Excel.

Sub Test() 

    Dim xl As Excel.Application 
    Set xl = CreateObject("Excel.Application") 

    Dim w As Workbook 
    Set w = xl.Workbooks.Add() 

    MsgBox "Not visible yet..." 
    xl.Visible = True 

    w.Close False 
    Set xl = Nothing 

End Sub 

Sie müssen sich daran erinnern, nachdem Sie fertig sind.

Answer 4

Wenn das Ihren Bedürfnissen entspricht, würde ich einfach

Application.ScreenUpdating = False 

verwenden, um mit dem zusätzlichen Vorteil des Codes zu beschleunigen, anstatt es zu verlangsamen, indem eine zweite Instanz von Excel.

Answer 5

Obwohl Sie Ihre Antwort haben, ist es für diejenigen, die diese Frage finden, auch möglich, eine Excel-Tabelle als JET-Datenspeicher zu öffnen. Leihen die Verbindungszeichenfolge aus einem Projekt, das ich es benutzt habe auf, wird es aussehen ein bisschen wie folgt aus:

strExcelConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & objFile.Path & ";Extended Properties=""Excel 8.0;HDR=Yes""" 
strSQL = "SELECT * FROM [RegistrationList$] ORDER BY DateToRegister DESC" 

Beachten Sie, dass „RegistrationList“ ist der Name der Registerkarte in der Arbeitsmappe. Es gibt ein paar Tutorials im Web mit den Details, was Sie tun können und was nicht.

Ich dachte nur, ich würde hinzufügen. :)

Answer 6

Um eine Arbeitsmappe zu öffnen, wie in der vorhandenen Instanz von Excel versteckt, verwenden folgende:

Application.ScreenUpdating = False 
    Workbooks.Open Filename:=FilePath, UpdateLinks:=True, ReadOnly:=True 
    ActiveWindow.Visible = False 
    ThisWorkbook.Activate 
    Application.ScreenUpdating = True 

Answer 7

der Arbeitsmappe öffnen als versteckte und dann, als „gespeichert“, so dass die Benutzer nicht gefragt, wenn sie ausschließen.

Dies ist etwas abgeleitet von der Antwort von Ashok geschrieben.

Indem Sie es auf diese Weise tun, werden Sie nicht dazu aufgefordert, Änderungen in der Excel-Datei zu speichern, von der Sie gelesen haben. Das ist gut, wenn die Excel-Datei, aus der Sie lesen möchten, als Datenquelle für die Validierung gedacht ist. Wenn die Arbeitsmappe beispielsweise Produktnamen und Preisdaten enthält, kann sie ausgeblendet werden und Sie können eine Excel-Datei anzeigen, die eine Rechnung mit Dropdown-Listen für Produkte darstellt, die aus dieser Preisliste validiert werden.

Sie können die Preisliste dann an einem freigegebenen Speicherort in einem Netzwerk speichern und schreibgeschützt machen.

Answer 8

Das Problem mit den Antworten von iDevlop und Ashok ist, dass das grundlegende Problem ein Excel-Designfehler ist (anscheinend), bei dem die Open-Methode die Application.ScreenUpdating-Einstellung von False nicht einhält. Folglich hat das Setzen auf False für dieses Problem keinen Vorteil.

Wenn Patrick McDonalds Lösung aufgrund des Aufwands beim Starten einer zweiten Instanz von Excel zu mühsam ist, dann ist die beste Lösung, die ich gefunden habe, die Zeit zu minimieren, in der die geöffnete Arbeitsmappe durch erneutes Aktivieren des ursprünglichen Fensters sichtbar ist schnell wie möglich:

Dim TempWkBk As Workbook 
Dim CurrentWin As Window 

Set CurrentWin = ActiveWindow 
Set TempWkBk = Workbooks.Open(SomeFilePath) 
CurrentWin.Activate  'Allows only a VERY brief flash of the opened workbook 
TempWkBk.Windows(1).Visible = False 'Only necessary if you also need to prevent 
            'the user from manually accessing the opened 
            'workbook before it is closed. 

'Operate on the new workbook, which is not visible to the user, then close it... 

Answer 9

Ein viel einfacher Ansatz, der nicht aktiven Fenster Manipulation mit sich bringt:

Dim wb As Workbook 
Set wb = Workbooks.Open("workbook.xlsx") 
wb.Windows(1).Visible = False 

Von dem, was ich den Windows-Index für die Arbeitsmappe immer 1 sein sollte sagen. Wenn jemand irgendwelche Rassenbedingungen kennt, die das unwahr machen würden, lass es mich wissen.