VBAを使用してIsNumeric SQLクエリを使用する

Question

下のデータから数値データのみをフィルタリングしようとしている下のVBAコードを探してください。しかし、私は必要な出力を得ていません。私に提案してください。

Sub SQL() 

Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 

strFile = ThisWorkbook.FullName 
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _ 
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

cn.Open strCon 

strSQL = "SELECT [Sheet5$].[Sr], [Ch] FROM [Sheet5$] WHERE IsNumeric([Sheet5$].[ch]) = 1" 

rs.Open strSQL, cn 

Sheet5.Range("D1").CopyFromRecordset rs 

'Debug.Print rs.GetString 

End Sub 

Answer 1

ドロップ=1：

strSQL = "SELECT [Sheet5$].[Sr], [Ch] FROM [Sheet5$] WHERE IsNumeric([Sheet5$].[ch])"