～ kiku tips ～ テーブルリンクあれこれDim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs With tdf If (Len(.Connect) > 0) Then ' リンクテーブルだよ Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs With tdf If (.Attributes = DB_ATTACHEDTABLE) Then ' リンクテーブルだよ とか･･･ 判別は良いんだけど、リンクを新規に作る、パスを張り替える･･･ 対Excel へは･･･、対CSVファイルには･･･ 追加として、 SQL内で外部の accdb / Excel / CS
