এই ব্যায়ামটি দেখায় কিভাবে একটি ওয়েবসাইট থেকে ডেটা পড়তে হয়, এক্ষেত্রে Yahoo.com থেকে আপ-টু-মিনিটের মুদ্রা বিনিময় হার।
ধারণা করা হয় পাঠকের বিকাশকারী ফিতাটি প্রদর্শিত হয়েছে এবং এটি ভিবিএ সম্পাদকের সাথে পরিচিত। যদি তা না হয় তবে দয়া করে গুগল "এক্সেল বিকাশকারী ট্যাব" বা "এক্সেল কোড উইন্ডো"।
পূর্বশর্তগুলির মধ্যে রয়েছে কম্বো-বাক্সগুলি পপুলেট করা এবং নাম নির্ধারণ করা.
ওয়ার্কবুক দুটি শীট নিয়ে গঠিত:
ইউজার ইন্টারফেস:
কিনুন এবং বিক্রয় কম্বো বাক্সগুলি নীচে স্থানীয় ডেটা শীট উল্লেখ করে।
D11 এ টেবিলটি ওয়েবসাইট থেকে স্বয়ংক্রিয়ভাবে আটকানো হবে, ব্যবহারকারীর বিন্যাস বজায় রেখে।
এই ব্যায়ামের xlsm ডাউনলোড করা যাবে এখানে.
আবেদন নিজেই তৈরি করা।
দুটি কম্বো বক্স সহ একটি শীট তৈরি করুন। কম্বো বাক্সগুলি দ্বিতীয় শীটে কোষগুলি উল্লেখ করবে।
কম্বো-বাক্সগুলি ওয়েবসাইটটি পড়ার জন্য কোড ব্যবহার করবে, ব্যবহার করে পরিবর্তন ইভেন্ট।
মুদ্রার নামগুলি নীচের তালিকা থেকে দ্বিতীয় শীটে ("মুদ্রা") পেস্ট করা যেতে পারে, সাজানোর ক্রমটি ব্যক্তিগত পছন্দের বিষয়:
| ZAR |
| আমেরিকান ডলার |
| ইউরো |
| জিবিপি |
| সিএইচএফ |
| অস্ট্রেলিয়ান |
| NZD |
| জাপানি ইয়েন |
| ক্যাড |
| এসইকে |
| DKK |
| NOK |
| Mur |
| HKD |
| SGD |
| ILS |
| খরচ |
| আইএনআর |
| CNY |
কলাম B এবং E তে ডেটা আটকান।
নামগুলি সংজ্ঞায়িত করুন এবং চিত্র অনুসারে সূচক ফাংশন ব্যবহার করুন:
যেহেতু স্থানীয় ডেটা শীট "মুদ্রা" তে নামগুলি সংজ্ঞায়িত করা হয়েছে, তাই শীট "মেইন" কেবলমাত্র মান পেতে সংজ্ঞায়িত নামগুলি উল্লেখ করে, যথা যথাক্রমে "প্রধান" কোষ E10 এবং G10 এর জন্য = SELL এবং = BUY।
আমরা ওয়েব পড়ার জন্য এক্সেল প্রোগ্রামিং করব। যাইহোক, ডেটা রিবনে এটির নিজস্ব অন্তর্নির্মিত প্রক্রিয়া রয়েছে, যার উদাহরণ আপনি বিভিন্ন পরিস্থিতিতে নির্মাণের ক্ষেত্রে ম্যাক্রো হিসাবে রেকর্ড করতে পছন্দ করতে পারেন। মনে রাখবেন যে কম্পিউটার বা ব্রাউজার কনফিগারেশনগুলি ওয়েব-পৃষ্ঠা স্ক্রিপ্টগুলিকে বিরূপভাবে প্রভাবিত করতে পারে।
কোড
একটি মডিউল sertোকান, এবং নিম্নলিখিত লিখুন:
Option Explicit
Sub Ticker()
Dim currBuy As String
Dim currSell As String
Range("D11:F14").ClearContents 'prepare the ground for the web data
currBuy = Range("BUY") 'get variable values from Defined Names previously set up
currSell = Range("SELL")
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q?s=" & currBuy & currSell & "=X", Destination:=Range("$D$11"))
.Name = "q?s=" & currSell & currBuy & "=X"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """table1"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End sub
Sub DropDown2_Change() 'This event will call the routine above. Object name might differ.
Call Ticker
End Sub
Sub DropDown1_Change()
Call Ticker
End Sub
Xlsm টাইপ হিসেবে ওয়ার্কবুক সেভ করুন.
কম্বো বাক্সের মান পরিবর্তন করে কোডটি পরীক্ষা করুন, তারপরে আটকানো টেবিলের বিন্যাসগুলি স্মার্ট করুন (চার দশমিক স্থান, গ্রিডলাইন, ছায়া?)।
এক্সেল ফাইলের দুর্নীতি
এক্সেল মাঝে মাঝে সেভ করার সময় ফাইলগুলিকে দূষিত করার জন্য পরিচিত, তারপরে নিজের স্ব-পুনরুদ্ধারের রুটিন চেষ্টা করে যা প্রায়শই, আমার অভিজ্ঞতায়, কেবল কাজ করে না। এটি ব্যবহারকারীর জন্য বিপর্যয়কর হতে পারে, কারণ এটি উৎস ফাইল (সম্ভবত আপনার একমাত্র অনুলিপি) যা ধ্বংস হয়ে যায়। ক্ষতিগ্রস্থ এক্সেল ফাইল তবে তৃতীয় পক্ষের সরঞ্জামগুলি ব্যবহার করে মেরামত করা যেতে পারে, যা যথেষ্ট সময় এবং প্রচেষ্টা সাশ্রয় করে।
লেখকের ভূমিকা:
ফেলিক্স হুকার একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত rar সংরক্ষণাগার এবং স্কয়ার পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com