एक्सेल सेल से वीबीए फ़ंक्शन को कैसे कॉल करें?

Question

मैं एक वीबीए नौसिखिया हूं, और मैं एक ऐसा फ़ंक्शन लिखने की कोशिश कर रहा हूं जिसे मैं Excel कक्ष से कॉल कर सकता हूं, जो बंद की गई कार्यपुस्तिका खोल सकता है, सेल मान देख सकता है, और इसे वापस कर सकता है।

अब तक मैं जानता हूँ कि कैसे इस तरह एक मैक्रो लिखने के लिए:

Sub OpenWorkbook() 
    Dim path As String 
    path = "C:\Users\UserName\Desktop\TestSample.xlsx" 

    Dim currentWb As Workbook 
    Set currentWb = ThisWorkbook 


    currentWb.Sheets("Sheet1").Range("A1") = OpenWorkbookToPullData(path, "B2") 
End Sub 


Function OpenWorkbookToPullData(path, cell) 

    Dim openWb As Workbook 
    Set openWb = Workbooks.Open(path, , True) 

    Dim openWs As Worksheet 
    Set openWs = openWb.Sheets("Sheet1") 

    OpenWorkbookToPullData = openWs.Range(cell) 

    openWb.Close (False) 

End Function 

मैक्रो OpenWorkbook() बिल्कुल ठीक चलाता है, लेकिन जब मैं एक एक्सेल सेल से सीधे OpenWorkbookToPullData (...) कॉल करने के लिए कोशिश कर रहा हूँ , यह काम नहीं करता है। कथन:

Set openWb = Workbooks.Open(path, , True) 

कुछ भी नहीं देता है।

क्या कोई जानता है कि इसे एक वर्किंग वीबीए फ़ंक्शन में कैसे चालू किया जाए जिसे एक्सेल सेल से बुलाया जा सके?

Answer 1

आपके द्वारा सामना किया गया मुद्दा यह है कि UDF एस एक्सेल पर्यावरण को संशोधित नहीं कर सकता है, वे केवल कॉलिंग सेल पर एक मान वापस कर सकते हैं।

कई विकल्प

1. नमूने के लिए दिए गए आप वास्तव में VBA की जरूरत नहीं है रहे हैं। यह फार्मूला काम
   ='C:\Users\UserName\Desktop\[TestSample.xlsx]Sheet1'!$B$2

2. चारों ओर एक नहीं बल्कि गंदा काम का उपयोग करेगा: See this answer

3. आप उपयोग कर सकते हैं ExecuteExcel4Macro या OLEDB

Answer 2

एक समारोह काम नहीं करेगा, और न ही यह आवश्यक है:

Sub OpenWorkbook() 
    Dim r1 As Range, r2 As Range, o As Workbook 
    Set r1 = ThisWorkbook.Sheets("Sheet1").Range("A1") 
    Set o = Workbooks.Open(Filename:="C:\TestFolder\ABC.xlsx") 
    Set r2 = ActiveWorkbook.Sheets("Sheet1").Range("B2") 
    [r1] = [r2] 
    o.Close 
End Sub 

Answer 3

Here's the answer

चरणों का अनुसरण करें:

1. ओपन दृश्य मूल संपादक। Excel में, Alt + F11 विंडोज पर हैं, Fn + विकल्प + F11 एक मैक पर अगर मारा।

2. एक नया मॉड्यूल डालें। मेनू से: सम्मिलित करें -> मॉड्यूल।

3. Public फ़ंक्शन बनाएं। उदाहरण:

   Public Function findArea(ByVal width as Double, _ 
            ByVal height as Double) As Double 
       ' Return the area 
       findArea = width * height 
   End Function 
   

4. तो आप किसी भी अन्य समारोह की तरह किसी भी सेल में इसका इस्तेमाल करते हैं: =findArea(B12,C12)।