हल .CommandType = एक्सेल में 0 त्रुटि

-1

मैं इस मैक्रो को एक्सेल में चलाने की कोशिश कर रहा हूं जो एक वेबसाइट से डेटा को लूप में खींचता है। लगभग 50 वेबपृष्ठों में से प्रत्येक को खींचने के लिए एक तालिका है और फ़ंक्शन को चलाने के लिए लूप है जो प्रत्येक वेबसाइट से डेटा खींचता है

Dim startYear As Integer
Dim endYear As Integer
Dim strStartYear as String

For startYear = 1942 To 2014

    ' Convert the current start year number to a string, then take the last two characters and assign to strStartYear
    ' So 1942 becomes "42".
    strStartYear = Right(CStr(startYear),2)
    ' Convert the string back into an (integer) number, and add 1 to create the End year.
    endYear = CInt(strStartYear)+1

    ' Use these variables in your other commands to specify the start/end year
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.whatifsports.com/nhl-l/profile_team.asp?hfid=11&season=" & startYear & "-" & endYear _
        , Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "profile_team.asp?hfid=11&season=" & startYear & "-" & endYear
        'other stuff omitted  for brevity
    End With
Next startYear

त्रुटि कोड जो मुझे मिल रहा है वह है रन टाइम एरर '5' अमान्य प्रक्रिया या तर्क

यह जिस लाइन को हाइलाइट कर रहा है वह है ".CommandType = 0"

vba microsoft-excel-2013

— user3481670
स्रोत

यह उदाहरण कोड था, जिसमें मैंने आपको अपने दूसरे प्रश्न में यह दिखाने के लिए प्रदान किया कि आप अपने संदर्भ में एक लूप का उपयोग कैसे कर सकते हैं। मैंने तुमसे कहा था कि यह अप्राप्य और अपूर्ण था। आपको दी गई जानकारी / उदाहरण लेने और इसे अपने स्वयं के कोड में रूपांतरित करने के लिए चाहिए था, न कि इसे केवल चलाएं-और काम करने की अपेक्षा करें। :)

— ᴇc --ιᴇ007

इसके अलावा, कृपया अपना हिस्सा करें। आपने जो त्रुटि प्राप्त की है, उस पर आपने क्या शोध किया है? आपने इसे ठीक करने के प्रयासों में पहले से क्या प्रयास किया है?

— Ƭᴇc atιᴇ007

मुझे अपने सभी कोड में .CommandType = 0 के साथ समस्या हो रही है। हर बार जब मैं अपना कोड संपादित करने की कोशिश करता हूं तो यह काम नहीं करता है। मुझे लगता है कि आपके कोड की संभावना में मेरी तुलना में कम त्रुटियां थीं, इसलिए यह देखना आसान होगा कि मुद्दा क्या है

— user3481670

मैंने देखा है कि कुछ लोगों ने 0 को या तो डिफ़ॉल्ट, SQL, या 1 में बदलने के साथ सफलता प्राप्त की है और उनमें से किसी ने भी मेरे लिए काम नहीं किया है

— user3481670

QueryTable.CommandType Property (एक्सेल) के बारे में MSDN प्रविष्टि से :

यदि आप क्वेरी तालिका या PivotTable कैश के लिए QueryType गुण का मान xlOLEDBQuery है, तो आप केवल CommandType गुण सेट कर सकते हैं।

आप OLEDB क्वेरी नहीं बना रहे हैं, इसलिए QueryType कुछ और है। चूंकि यह कुछ और है, तो आप कमांड टाइप सेट नहीं कर सकते, इसलिए इसे हटा दें।

— Ƭᴇcʜιᴇ007
स्रोत

मुझे वही मिल रहा था "रन टाइम एरर 5." Excel उपयोगकर्ता इंटरफ़ेस में क्वेरी बनाते समय एक वेब पेज को क्वेरी करने के लिए कोड को शुरू में मैक्रो रिकॉर्ड करके बनाया गया था। आपको लगता है कि सभी पैरामीटर सही तरीके से भरे जाएंगे! मैंने ".CommandType = 0" और क्वेरी काम करता है।

— KPBidwell
स्रोत