Hinzufügen/Aktualisieren Liste mit Excel VBA

Question

Dies könnte einfach für Sie sein, aber ich bin neu bei VBA.

Ich habe eine Excel-Datei, die viele Spalten hat, von denen eine "id" ist, was ein Schlüsselwert ist. Ich habe einen Code geschrieben, um eine Auswahl für die Datei zu öffnen.

Sub GetFile() 
Dim fNameAndPath As Variant 
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSM), *.XLSM", Title:="Select File To Be Opened") 
    If fNameAndPath = False Then 
    Exit Sub 
Workbooks.Open Filename:=fNameAndPath 
End Sub 

Ich möchte Makro in dieser Liste haben, die die anderen Dateien hinzufügen soll (die mit unterschiedlichen Werten und unsicher Menge der Zeilen derselben Spalte Namen haben). Und wenn die Spalte "id" in der hinzugefügten Datei denselben Wert hat, sollte die alte Zeile vollständig gelöscht werden.

Hat jemand einen Vorschlag?

Option Explicit 

Dim myWorkbooks As New Collection 

Sub GetFile() 
    Dim fNameAndPath As Variant, i As Long, x As Variant 
    fNameAndPath = Application.GetOpenFilename("All Files (*.*), *.*", , "Select Files To Be Opened", , True) 

    If Not IsArray(fNameAndPath) Then 
    If fNameAndPath = False Then Exit Sub Else fNameAndPath = Array(fNameAndPath) 
    End If 

    For i = LBound(fNameAndPath) To UBound(fNameAndPath) 
    Set x = Workbooks.Open(fNameAndPath(i)) 
    myWorkbooks.Add x 
    Next 
End Sub 

Auf diese Weise können Sie mehrere Dateien öffnen und auch speichert sie (ein Zeiger auf sie):

Answer 1

Um Ihre erste Problem schlage ich so etwas wie dieses zu lösen.
Sie können sie später wie folgt zugreifen:

Sub ChkID(ID As String) 
    Dim x As Variant 
    For Each x In myWorkbooks 

    If IsNumeric(Application.Match(ID, x.Sheets(1).Columns(1), 0)) Then 
     x.Sheets(1).Rows(Application.Match(ID, x.Sheets(1).Columns(1), 0)).Delete xlUp 
     x.Save 

    End If 
    Next 
End Sub 

Dies würde in jeder Arbeitsmappe Spalte A des ersten Blattes prüfen, ob es die ID enthält und wenn ja, die Zeile zu löschen.

Wenn Sie mit allem fertig sind, können Sie schließen/speichern Sie alle WBs über:

Sub ClsFile() 
    While myWorkbooks.Count 
    myWorkbooks(1).Close True 
    myWorkbooks.Remove 1 
    Wend 
End Sub 

Der einzige Nachteil ist, dass, wenn VBA gestoppt werden muss, dann wird die Sammlung wieder leer sein (Sie müssten sie manuell und öffnen sie wieder über die Unter schließen.

---

das alles müssen Sie enthalten sollten Ihren eigenen Code, wie Sie es brauchen bauen. Aber wenn Sie noch Fragen haben, fragen Sie einfach :)