Excel 2016のVBA構文のアップデート

Question

これは32ビットと64ビットの問題ですが、新しいバージョンのExcelでは実行できないが、Excel 2003ではこのコードのデバッグに役立つ必要があります。このコードがコンパイルされない原因となっているバージョン間でVBAに構文更新がありましたか？

デバッガは行で停止します。コンパイルしないように、このコードを引き起こしてこれらのバージョン間のVBAの構文更新が

With Selection.QueryTable 

Answer 1

ありましたか？コードは罰金コンパイル

号、Selectionあなたが遅延バインディングを決意し、実行時になるだろうと、それを照会どんなメンバー、そこにただのObjectについてです。

ありが 2003年から2007年の間にExcelのオブジェクトモデルに加えた：ListObjectが導入されましたが、QueryTableが削除されていなかった、それはまだRangeクラスのメンバーです。しかし、それは今もListObjectクラスのメンバです：

は、上記スクラッチ、@GSerg's commentを参照してください。

ListObjectは、Excel 2003に存在し、それがすでにクエリテーブルのプロパティがあります。 2003年には、クエリテーブルの周りにリストオブジェクトを作成できないため、そこでは機能しません。可能なだけでなく、クエリテーブルを作成するときのデフォルトであるExcel 2007から始まり、Excel 2016で始まるクエリオブジェクトテーブルを持たないクエリテーブルは、クエリが行を返さないとすぐに式を完全に破棄します。

あなたのコードはひどいアイデアである、Selectionをオフに動作します - それはどのようなマクロレコーダーの記録だが、それはそれは全く何もする最善の方法だというわけではありません。あなたの「照会表」は、このようなものに見える場合

：

そして、あなたはそれにいるときにリボンが「表ツール」タブを持っているが、...それはListObjectです。

With Selection.ListObject.QueryTable 

しかし、理由はあなたのことは、まだひどいアイデアだ：そして、あなたの Selectionがそのテーブル内にある場合は、コメントで示唆されたとして、その後 Selection.QueryTableは、あなたが Selection.ListObject経由でアクセスする必要があり、それをカットするつもりはありませんコードはひどく虚弱です。

代わりにオブジェクトを使用してください。 プロジェクトエクスプローラ toolwindow（Ctrl + R）を見て、ワークシートを探します。それを選択して、のプロパティ toolwindow（F4）を見てください。 名前を付けてください：デフォルトの(Name)プロパティを意味のあるものに置き換えてください。 MySuperImportantSheet。

これで、その識別子を使ってVBAコードでそのシートを参照することができます。そのシートに「クエリテーブル」が1つしかないと仮定すると、このWithブロックははるかに堅牢になります。

If MySuperImportantSheet.ListObjects.Count <> 1 Then 
    'handle unexpected weirdness 
    Exit Sub 
End If 

Dim tbl As ListObject 
Set tbl = MySuperImportantSheet.ListObjects(1) 
With tbl.QueryTable 
    'whatever you wanted to do with it 
End With