掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
mdb テーブルが一括削除できない (ID:102753)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> ReDim Preserve strA(AA) As String 今回のように要素数が事前にわからないデータの時は、 配列では無くコレクションを使った方が便利ですよ。 'コレクションを用意 Dim errTables As VBA.Collection Set errTables = New VBA.Collection For Each objTable In objCat.Tables If objTable.Type = "TABLE" Then If objTable.Name Like "*インポート エラー*" Then errTables.Add objTable.Name 'コレクションに加える End If End If Next Dim tblName As Variant For Each tblName In errTables objCat.Tables.Delete tblName Next > 再度不明な点がございましたら、ご教授の程宜しくお願い致します。 http://www.tt.rim.or.jp/~rudyard/torii009.html http://dora0.blog115.fc2.com/blog-entry-85.html
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.