मैं एक विशिष्ट कार्यपुस्तिका और एक विशिष्ट शीट कैसे सक्रिय करूं?

Question

मैं वर्तमान कार्यपुस्तिका से अपनी अन्य कार्यपुस्तिका को कैसे सक्रिय करूं? मेरे पास dumb.xls और अन्य कार्यपुस्तिका नाम Tire.xls के साथ एक वर्तमान कार्यपुस्तिका है। मैंने worksbooks.open filename:= "name of the file" का उपयोग करके dumb.xls से Tire.xls खोला है। यह खुला हो रहा है लेकिन समस्या यह है कि मैं इसे काम करने में असमर्थ हूं।

यदि मैं कहता हूं कि cells(2,24).value=24 इन मानों को dumb.xls के सेल में रखता है लेकिन मैं इसे एक टायर.एक्सएल करना चाहता हूं।

activesheet.cells(2,24).value=24 इन्हें टायर.एक्सएल पर रखता है। लेकिन मैं वर्कबुक को नाम से कैसे सक्रिय करूं? मुझे 3 से 4 एक्सेल कार्यपुस्तिकाओं को खोलने और ऑपरेशन करने की आवश्यकता है? मैं कैसे विशिष्ट कार्यपुस्तिका

सक्रिय करूँ मैं गूगल

पर इस कोड

 activeworkbook.worksheet("sheetname").activate ' but not working 
    windows("sheetname").activate ' people on google suggested not to use 

इसका सक्रिय हो रही नहीं मिली है। मैं नहीं जानता कि इसे कैसे काम करना है। क्या कोई मुझे बता सकता है कि मैं एक विशिष्ट कार्यपुस्तिका और अन्य कार्यपुस्तिका की एक विशिष्ट शीट कैसे सक्रिय करूं?

उदाहरण: मेरे पास niko.xls और niko_2.xls dumb.xls कार्यपुस्तिका से कार्यपुस्तिका के रूप में खोले गए हैं, इसलिए पूरी तरह से 3 कार्यपुस्तिकाएं हैं और मुझे niko_2.xls कार्यपुस्तिका की दूसरी शीट को सक्रिय करना है। मैं इसे कैसे बना सकता हूं? क्या कोई मुझे इन उदाहरणों के साथ वाक्यविन्यास समझा सकता है? अग्रिम धन्यवाद

Answer 1

आप पत्रक को सक्रिय करने की जरूरत नहीं है (यदि आप एक विशाल प्रदर्शन हिट ले लेंगे ऐसा करने के लिए, वास्तव में)। चूंकि आप शीट के लिए ऑब्जेक्ट घोषित कर रहे हैं, जब आप "wb" से शुरू होने वाली विधि को कॉल करते हैं। आप उस वस्तु का चयन कर रहे हैं। उदाहरण के लिए, आप यहाँ ऐसा कुछ सक्रिय किए बिना कार्यपुस्तिका के बीच में कूद कर सकते हैं:

Sub Test() 

Dim wb1 As Excel.Workbook 
Set wb1 = Workbooks.Open("C:\Documents and Settings\xxxx\Desktop\test1.xls") 
Dim wb2 As Excel.Workbook 
Set wb2 = Workbooks.Open("C:\Documents and Settings\xxxx\Desktop\test2.xls") 

wb1.Sheets("Sheet1").Cells(1, 1).Value = 24 
wb2.Sheets("Sheet1").Cells(1, 1).Value = 24 
wb1.Sheets("Sheet1").Cells(2, 1).Value = 54 

End Sub 

Answer 2

Dim Wb As Excel.Workbook 
Set Wb = Workbooks.Open(file_path) 
Wb.Sheets("Sheet1").Cells(2,24).Value = 24 
Wb.Close 

Wb.Sheets("sheetname") में उल्लेख करने के लिए आप निम्न का उपयोग कर सकते पत्रक नाम पता करने के लिए:

Dim sht as Worksheet  
For Each sht In tempWB.Sheets 
    Debug.Print sht.Name 
Next sht 

Answer 3

आप कार्यपुस्तिका आप खोल रहे हैं के लिए एक संदर्भ सेट करना होगा। फिर आप उस वर्कबुक के साथ अपने संदर्भ का उपयोग कर कुछ भी कर सकते हैं।

Dim wkb As Workbook 
Dim sht As Worksheet 

Set wkb = Workbooks.Open("Tire.xls") 
Set sht = wkb.Sheets("Sheet2") 

sht.Activate 
sht.Cells(2, 1) = 123 

दूसरों ने बताया है .Activate अपने मामले में ज़रूरत से ज़्यादा हो सकता है कि:

Dim wkb As Workbook 
Set wkb = Workbooks.Open("Tire.xls") ' open workbook and set reference! 

wkb.Sheets("Sheet1").Activate 
wkb.Sheets("Sheet1").Cells(2, 1).Value = 123 

भी जो जीवन बाद में आसान हो जाएगा चादर के लिए एक संदर्भ, सेट किया जा सका। इसकी कोशिकाओं को संपादित करने से पहले आपको चादर को सक्रिय करने की सख्ती से आवश्यकता नहीं है। लेकिन, यदि आप यही करना चाहते हैं, तो इसे सक्रिय करने के लिए कोई नुकसान नहीं होता है - प्रदर्शन के लिए एक छोटी हिट को छोड़कर, जो तब तक ध्यान देने योग्य नहीं होना चाहिए जब तक आप इसे केवल एक बार या कुछ बार नहीं करते। हालांकि, अगर आप कई बार सक्रिय करते हैं उदा। एक लूप में, यह चीजों को काफी धीमा कर देगा, इसलिए सक्रिय से बचा जाना चाहिए।

Answer 4

कोड है कि मेरे लिए काम किया है:

ThisWorkbook.Sheets("sheetName").Activate 

Answer 5

कोशिश इस

Windows("name.xls").Activate 

Answer 6

आप इस कोशिश कर सकते हैं।

Workbooks("Tire.xls").Activate 

ThisWorkbook.Sheets("Sheet1").Select 
Cells(2,24).value=24