excel vbaでリストを追加/更新する

Question

これはあなたにとっては簡単かもしれませんが、私はVBAで新しくなりました。

私は、それらのうちの1つがキー値である「id」である多くの列を持つExcelファイルを持っています。私はファイルの選択を開くためのコードを書いた。

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 

このリストには、他のファイル（同じ列名が異なる値と不確定な行数を持つ）を追加する必要があります。そして、 "id"カラムが追加されたファイルで同じ値を持つ場合、古いものは完全に削除されるべきです。

提案はありますか？

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 

これは、複数のファイルを開くことができますし、また、それら（それらへのポインタ）を格納します。私はこのような何かを示唆してあなたの最初の問題を解決するために

Answer 1

。あなたはこのように、後でそれらにアクセスすることができ
：

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 

これはIDが含まれている場合、各ワークブックの最初のシートの列Aをチェックし、そうであれば、行を削除するでしょう。あなたはすべてを完了したら

、あなたは/閉じるを経由して、すべてのWBのを保存することができます：

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

唯一の欠点である、VBAを停止する必要がある場合は、そのコレクションは、（再び空になることをお

---

これはあなたがあなた自身のコードあなたがそれを必要とする方法を構築するために必要なすべてが含まれている必要があります。それらを手動で閉じて、サブ介して、それらを再度開く必要があります。しかし、あなたはまだ質問があれば、ちょうど頼みます:)