mdb テーブルが一括削除できない (ID:102752)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さん、こんばんわ 教えて頂いた通り配列で全て削除出来ました♪ AA = 0 For Each objTable In objCat.Tables If objTable.Type = "TABLE" Then If (objTable.Name Like "*インポート エラー*") Then AA = AA + 1 ReDim Preserve strA(AA) As String strA(AA) = objTable.Name End If End If Next objTable If AA > 0 Then For AA = 1 To UBound(strA) Step 1 objCat.Tables.Delete strA(AA) Next End If ありがとうございました♪ 再度不明な点がございましたら、ご教授の程宜しくお願い致します。