रिकॉर्डसेट से रेंज तक कॉपी लिखना

एक्सेल शीट को सम्मिलित तालिका के रूप में शामिल करना सबसे आसान हो सकता है। उदाहरण के लिए:

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

''Not the best way to get the name
strFile = ActiveWorkbook.FullName

''2007 / 2010 connection
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0 xml;HDR=Yes;"";"

cn.Open strCon

''ODBC Connection for sql server
scn = "[ODBC;DRIVER=SQL Server;SERVER\Instance;" _ 
    & "Trusted_Connection=Yes;DATABASE=Test]"

sSQL = "SELECT a.Stuff, b.ID, b.AText FROM [Sheet5$] a " _
& "INNER JOIN " & scn & ".table_1 b " _             
& "ON a.Stuff = b.AText"
rs.Open sSQL, cn

ActiveWorkbook.Sheets("Sheet7").Cells(1, 1).CopyFromRecordset rs

SQL सर्वर के किसी भी लिंक के साथ, आपको पूर्ण रूप से आश्वस्त होने की आवश्यकता है कि आप स्वच्छ डेटा के साथ काम कर रहे हैं।

ध्यान दें कि मैंने सेल को संदर्भित किया है। यदि आपको शीट को जोड़ने का विचार पसंद नहीं है, तो आप सेल और चरण का भी उल्लेख कर सकते हैं, उदाहरण के लिए For i=1 To MaxRows के लिए