एक्सेल से डेटा प्राप्त करें और पहुंच में आयात करें

मैं vba का उपयोग कर एक रिकॉर्डसेट में कुछ एक्सेल पंक्तियों को आयात करने की कोशिश कर रहा हूं। मैं निम्नलिखित कनेक्शन स्ट्रिंग का उपयोग करता हूं

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\vmware-host\Shared Folders\Luca\Desktop\barcode ean.xlsx;" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES;"""

एक ADODB.Command के साथ और मैंने डेटा प्राप्त करने के लिए इस क्वेरी का उपयोग किया है

Select * from [Foglio1$]

अब मुझे अपने रिकॉर्डसेट में 1500 पंक्तियां देखना चाहिए लेकिन इसमें केवल 88 पंक्तियां हैं

मैं सभी रिकॉर्ड कैसे प्राप्त कर सकता हूं ??

1

1 उत्तर

ADODB.Command के बजाय, ADODB.Connection का उपयोग करने के बजाय इसका परीक्षण करने के लिए:

Sub sofMain20141472Access()

  Dim cnn, rst

  On Error GoTo ErrHandler

  Set cnn = CreateObject("ADODB.Connection")
  cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0" _
    & ";Data Source=\\vmware-host\Shared Folders\Luca\Desktop\barcode ean.xlsx" _
    & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"""
  cnn.Open

'
  Set rst = cnn.Execute("SELECT * FROM [Foglio1$];")

'
' do stuffs on Recordset rst...
'
' ...
'
' close ADO objects:
'
  rst.Close
  Set rst = Nothing

  cnn.Close
  Set cnn = Nothing

  Exit Sub
ErrHandler:
  MsgBox Err.Description
  Set cnn = Nothing

End Sub
0
जोड़ा