Access インポート エラー テーブルを消したい

====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流ＰＧ 番外編 今日の一品 No.020 ] 　 2000/04/01 土曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流ＰＧ 番外編 今日の一品 は 隠し味として、
軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------
Access インポート エラー テーブルを消したい

今回は、実作業で（私の仕事で）、
ＦＤに入力されたExcelデータを取りこむ処理で、
なぜか、Ａｃｃｅｓｓ側に下記のようなインポートエラーテーブルが
できてしまいます。

DoCmd.TransferSpreadsheet acImport, 6, "ＦＤ変換データ", "A:\DATA.xls", True, ""
を実行すると、
DATA$_インポート エラー
DATA$_インポート エラー1
DATA$_インポート エラー2
なんて、エラー情報テーブルが、できてしまう。

エラー	フィールド	行
データ型の変換エラー	NO	14

内容１４行目を見てみると、、空の行だった、、
（データは１３行で、客先入力者が１４行目にゴミを入れていた？）

など、データの入力のしかたによっては、
インポート エラーXXX のテーブルが毎日増えていきます。

コレを防止するため、
下記のような、Ａｃｃｅｓｓのテーブルを消す関数作りました。
'------------------------------------
Sub テーブルの削除(W_NAME As String)
    
    Dim DBS As Database, tdf As TableDef
    Dim strSQL As String

    ' カレント データベースへの参照を取得します。
    Set DBS = CurrentDb
    
    ' TableDefs コレクションを更新します。
    DBS.TableDefs.Refresh
    
    ' テーブルが存在する場合は、それを削除します。
    For Each tdf In DBS.TableDefs
        If tdf.Name = W_NAME Then
            DBS.TableDefs.Delete tdf.Name
        End If
    Next tdf

    DBS.Close
    Set DBS = Nothing

End Sub
'------------------------------------

テーブル名を渡すと、消してくれる関数です。
call テーブルの削除("XXXXXXX") で使用します。

余談ですが、
IF文でＬＩＫＥ演算子が使用可能なこと知ってました？
（自分へ一言、、演算子なんだからねぇ、、、）

If tdf.Name LIKE W_NAME Then
として、
call テーブルの削除("*エラー*")
を渡すと、エラーと名の付くテーブルを削除してくれます。

わかりやすいテストだと、
Sub test()
    If "ABCDEFG" Like "*C*" Then
        MsgBox "OK"
    Else
        MsgBox "NG"
    End If
End Sub
いろいろデータ変えて試してみて下さい。

長く書いたけど、また（Ｅｘｃｅｌの名前一覧みたいに）、
DoCmd.TransferSpreadsheet
のパラメーターか何かで、エラーテーブル作成しない方法あったりして

やっぱ、三流だなぁ、、
と声が聞こえてきたところで、このへんで、、
今日も逃げ出す、、、演算子の意味が？だった Ｋｅｎ３ でした。

PS. Like 使えるなら、instr関数使わなくていいジャン、、
　　　なんて言いたいけど、処理速度が違うか？
　　　　＊あまりlikeで楽すると、パターンマッチングだから、
　　　　　　処理時間のかかるプログラムになりそう、、
　　　　　　　みなさん、ほどほどに、、、

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を