एक्सेल में वेबसाइट डेटा प्राप्त करें - एक्सेल, वीबीए, एक्सेल-वीबीए

सबसे हालिया जवाब एक्सेल में वेबसाइट डेटा प्राप्त करें था:

   Sub FetchData()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.zillow.com/homes/comps/67083361_zpid", Destination:=Range( _
"$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

यह मेरी परियोजना के लिए अच्छी तरह से काम करता है साथ ही मेरी रुचि के यूआरएल को छोड़कर यह है:

URL;http://reservations.example.com/cp/reports/daily_usage.php?type=date_reservations&date=06%2F03%2F2015&date_end=&vessel=&club=6&location=135", Destination:=Range( _
"$A$1"))

मैंने गोपनीयता कारणों से उपरोक्त एक फर्जी यूआरएल का उपयोग किया है, लेकिन जैसा कि आप देख सकते हैं, यूआरएल में डेट कोड है। इस मामले में यह 3 जून, 2015 को नामित है 06%2F03%2F2015

वीबीए का उपयोग करके, मैं एक वर्क शीट के भीतर परिभाषित यूआरएल के भीतर दिनांक कैसे बना सकता हूं?

उत्तर:

जवाब के लिए 2 № 1

उसके साथ Format() सबसे अधिक काम करता है। एक जंगली अनुमान होगा

Format(Range("$A$1").Value2, "mm""%2F""dd""%2F""yyyy")

आप इसका उपयोग करके स्वयं को पुनर्निर्माण भी कर सकते हैं Day(), द Month() और यह Year() कार्यों और कुछ के साथ खेल रहा है IIf(Len(x)=2,x,0&x)
मेरे नमूने के लिए "06% 2F03% 2F2014" दिया 2014-06-03


संबंधित सवाल
सबसे लोकप्रिय