दिलचस्प पोस्ट
फ़ॉन्ट MIME प्रकारों के लिए सही अपाचे AddType निर्देश स्विफ्ट में UIWebView के साथ कुकीज़ का प्रबंधन कैसे करें जावा एफएक्स – क्या यह वास्तव में एक ब्राउज़र में तैनात किया जा सकता है? पायथन में रिवर्स ऑर्डर में एक सूची को पार करते हैं देशी वस्तुओं को एक बुरा अभ्यास क्यों बढ़ा रहा है? क्या शॉर्ट सर्किट मूल्यांकन की गारंटी सी ++ में है क्योंकि यह जावा में है? एचटीएमएल 5 कैनवास में एनिमेटेड जीआईएफ़ सीएसएस आईपैड / आईफोन पर अजीब रेंडरिंग बटन सबमिट करें प्रॉपर्टी / फ़ंक्शन (एफ 11) में कदम अपेक्षित रूप से काम नहीं करता है WPF UserControl डिजाइन समय आकार ट्विटर बूटस्ट्रैप navbar को संशोधित करें कैसे कैनवास में छवि जोड़ने के लिए 25 9 वर्णों से अधिक नाम वाली फाइलों से कैसे निपटें? स्टैनफोर्ड एनएलपी भावना विश्लेषण टूल को प्रशिक्षित कैसे करें अंततः जब एक निबन्ध में निष्पादित नहीं की जाने वाली परिस्थितियां .. अंततः ब्लॉक करें

बंद वर्कबुक से मूल्य प्राप्त करने के लिए ExecuteExcel4Macro

ठीक है, मुझे यह कोड मिला और मैंने सोचा कि इसका उपयोग करना अच्छा हो सकता है, अगर मुझे एक बंद शीट से एक मूल्य खींचने की आवश्यकता है

strInfoCell = "'" & strPath & "[" & strFile & "]Sheet1'!R3C3" myvalue = ExecuteExcel4Macro(strInfoCell) 

नहीं जब मैं इस कोड को चलाता हूं, तो मुझे स्ट्रेंनफोस्क के लिए एक मान मिलता है I

: strInfoCell: "'C: \ users \ my.name \ डेस्कटॉप [QOS डीजीएल सामान। xlsx] शीट 1'! आर 3 सी 3 ': स्ट्रिंग

लेकिन जब मैं कोड चलाता हूं तो फ़ाइल खुली बातचीत पॉप अप करती है, डेस्कटॉप फाइलों को "QOS डीजीएल suff" दिखाना दिखाती है

यह क्या कारण है, यह सिर्फ उम्मीद के मुताबिक डेटा वापस क्यों नहीं खींच रहा है? मुझे पता है कि पथ और फ़ाइल का नाम सही है, अगर मैं उन्हें डिबग आउटपुट से कॉपी करता हूं और उन्हें शुरू में चिपकाने के लिए चलाता हूं तो सही शीट खोलता है

और मुझे पता है शीट 1 (नामित: एसीएल), सेल में एक मान है (3,3)

चियर्स

हारून

Solutions Collecting From Web of "बंद वर्कबुक से मूल्य प्राप्त करने के लिए ExecuteExcel4Macro"

यह इस पर निर्भर करता है कि आप इसका उपयोग कैसे करते हैं। खुला फ़ाइल संवाद बॉक्स आपको दिखाया जा रहा है क्योंकि "strpath" के अंत में "\" नहीं है;)

इस कोड को आज़माएं यह काम करता हैं

आजमाया और परखा गया

 Option Explicit Sub Sample() Dim wbPath As String, wbName As String Dim wsName As String, cellRef As String Dim Ret As String 'wbPath = "C:\Documents and Settings\Siddharth Rout\Desktop\" wbPath = "C:\Users\my.name\Desktop\" wbName = "QOS DGL stuff.xls" wsName = "ACL" cellRef = "C3" Ret = "'" & wbPath & "[" & wbName & "]" & _ wsName & "'!" & Range(cellRef).Address(True, True, -4150) MsgBox ExecuteExcel4Macro(Ret) End Sub 

ऊपर कोड

 strInfoCell = "'" & strPath & "[" & strFile & "]Sheet1'!R3C3" myvalue = ExecuteExcel4Macro(strInfoCell) 

पढ़ना चाहिए

 strInfoCell = "'" & strPath & "[" & strFile & "]" & "Sheet1'!R3C3" myvalue = ExecuteExcel4Macro(strInfoCell) 

यह गायब है " & "

फ़ंक्शन के लिए कोई ज़रूरत नहीं है

चीयर्स नील

इसी तरह के आवेदन, लेकिन ऊपर के उदाहरणों के रूप में कोई हार्ड कोडित पथ नहीं हैं। यह फ़ंक्शन एक अन्य बंद वर्कबुक से मूल्य की प्रतिलिपि बनाता है, जो कि = इंडेक्ट () फ़ंक्शन के समान है, लेकिन परिष्कृत नहीं है। यह केवल मान देता है … कोई संदर्भ नहीं है। इसलिए इसे आगे के कार्यों के साथ उपयोग नहीं किया जा सकता है जो संदर्भों की आवश्यकता है (यानी: VLOOKUP ())। इस कोड को एक नए VBA मॉड्यूल में पेस्ट करें:

 'Requires filename, sheetname as first argument and cell reference as second argument 'Usage: type in an excel cell -> =getvalue(A1,B1) 'Example of A1 -> C:\TEMP\[FILE1.XLS]SHEET1' 'Example of B1 -> B3 'This will fetch contents of cell (B3) located in (sheet1) of (c:\temp\file1.xls) 'Create a module and paste the code into the module (eg Module1, Module2) Public xlapp As Object Public Function getvalue(ByVal filename As String, ref As String) As Variant ' Retrieves a value from a closed workbook Dim arg As String Dim path As String Dim file As String filename = Trim(filename) path = Mid(filename, 1, InStrRev(filename, "\")) file = Mid(filename, InStr(1, filename, "[") + 1, InStr(1, filename, "]") - InStr(1, filename, "[") - 1) If Dir(path & file) = "" Then getvalue = "File Not Found" Exit Function End If If xlapp Is Nothing Then 'Object must be created only once and not at each function call Set xlapp = CreateObject("Excel.application") End If ' Create the argument arg = "'" & filename & "'!" & Range(ref).Range("A1").Address(, , xlR1C1) 'Execute an XLM macro getvalue = xlapp.ExecuteExcel4Macro(arg) End Function 
 Data = "'" & GetDirectory & "[" & GetFileName & "]" & Sheet & "'!" & Range(Address).Range("A1").Address(, , xlR1C1) Address = "$C$3" GetDirectory = "C:\Users\my.name\Desktop\" GetFileName = "QOS DGL stuff.xlsx" Sheet = "ACL"