Ungültige Verwendung von Null VBA Excel

Question

Die folgende Tabelle und den Code finden Sie. Ich bin vor Ungültige Verwendung von Null Fehler

Tabelle 1

Tabelle 2

VBA-Code: -

Sub sql() 

sql_string = "Select [Sheet1$].[Sr], [Sheet2$].[Name], [Sheet2$].[Value] From [Sheet1$]" & _ 
" Inner Join [Sheet2$] On CInt([Sheet1$].[Sr]) = CInt(Mid([Sheet2$].[Name],InStr(1,[Sheet2$].[Name],""#"")+1))" 

sq = SQL_query(sql_string) 

end sub 


Function SQL_query(ByRef sql_string As Variant) 

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 = sql_string 

rs.Open strSQL, cn 

Sheet5.Range("A21").CopyFromRecordset rs ''HERE I AM FACING ERROR 

End Function 

Bitte führen Sie mich .. auf meinem unteren Fehler.

In table2 Spalt Sr nach # dort einige Nummern sind, die zu tabelle1 Spalt Sr ähnlich ist number's.I Innen tun wollen beitreten gemäß dieser bestimmten Zahl.

erforderliche Ausgabe.

Answer 1

Starten von Option Explicit auf der Oberseite des Moduls zu schreiben.

Function sql_string() as string 

    sql_string = "Select [Sheet1$].[Sr], [Sheet2$].[Name], [Sheet2$].[Value] From [Sheet1$]" & _ 
    " Inner Join [Sheet2$] On CInt([Sheet1$].[Sr]) = CInt(Mid([Sheet2$].[Name],InStr(1,[Sheet2$].[Name],""#"")+1))" 

end sub 

• , schreiben ?sql_string In unmittelbarer Fenster und sehen, was Sie bekommen: Why does my code run without 'Option Explicit' but fail with it?

  dann die Sub sql() zu so etwas wie dies ändern.

• Finden Sie einen Weg, um zu testen, was Sie erhalten