Parameter in Excel External Data Union Query

Ich habe zwei Abfragen, die data von SQL server in Excel ziehen. Beide funktionieren ganz gut Ich habe versucht, sie zusammen zu versammeln und einen Parameter als date zu übergeben, und jetzt nichts funktioniert. Hier ist ein Link zu einem Artikel, der beschreibt, wie man Microsoft Query verwendet und einen Parameter übergibt.

Parameters in Excel external data queries

Alles, was ich tun möchte, ist, diese Arbeit mit einer Union Query zu machen. Ist das möglich? Oder brauche ich eine VBA-Lösung, um dies zu erreichen. Ich bin sicher, es ist machbar, ich weiß einfach nicht genau, wie es geht Ich würde schätzen alle Vorschläge.

Vielen Dank!

Danke allen. Ich habe es in VBA gemacht.

Sub ImportFromDB() ' Create a connection object. Dim cnPubs As ADODB.Connection Set cnPubs = New ADODB.Connection ' Provide the connection string. Dim strConn As String 'Use the SQL server OLE DB Provider. strConn = "PROVIDER=SQLOLEDB;" 'Connect to the Pubs database on the local server. strConn = strConn & "DATA SOURCE=SERVER_NAME;INITIAL CATALOG=Data_Base;" 'Use an integrated login. strConn = strConn & "Trusted_Connection=Yes;" 'Now open the connection. cnPubs.Open strConn ' Create a recordset object. Dim rsPubs As ADODB.Recordset Set rsPubs = New ADODB.Recordset Set sht = Worksheets("Impact Analysis") With sht .Range("N:U").ClearContents .Range("N1").Resize(1, 8).Value = Array("CONTACT_ID", "CATEGORY", "COMPANY_CODE", "CUSTOMER_NO", "SECTOR", "DES", "ASOFDATE", "BALANCE") Set rw = .Rows(2) End With With rsPubs ' Assign the Connection object. .ActiveConnection = cnPubs ' Extract the required records. .Open "SELECT * FROM MY_TABLE" ' Copy the records into cell A1 on Sheet1. Worksheets("Impact Analysis").Range("N2").CopyFromRecordset rsPubs ' Tidy up .Close End With cnPubs.Close Set rsPubs = Nothing Set cnPubs = Nothing End Sub