VBAコード修正

クエリとテーブルを開く機能を追加。