2012-11-28 21 views
5

में कोटेशन अंक मेरे वर्तमान वीबीए कोड में, मेरे पास एक क्वेरी है जिसमें मैं अपने कुछ चर के बीच उद्धरण चिह्न लगाने के लिए Chr(34) का उपयोग कर रहा हूं।वीबीए

मैं सोच रहा था कि इसके लिए कौन से विकल्प मौजूद हैं। यह एक सरल सवाल है, मुझे पता है, लेकिन मैं इस

" & चर स्ट्रिंग यहाँ & "

की तरह दोहरा उद्धरण चिह्न के साथ किसी भी सफलता मेरे कोड एक और नहीं के लिए गंदा है नहीं किया है

comboService = Chr(34) & Me.Combo8.Value & Chr(34) 

इसके अलावा, इस काम नहीं किया है::

लोग हैं, जो VBA से परिचित नहीं हैं के लिए समझ में आता है
comboService = """" & Me.Combo8.Value & """" 

क्या आप शायद मुझे बता सकते हैं क्यों?

अग्रिम धन्यवाद।

+3

यह: '" "" और "। कॉम्बो 8.वैल्यू और" "" "वीबीए में काम करता है। आपको क्या त्रुटि या समस्या मिल रही है? – RBarryYoung

+0

क्या आप एक और विस्तृत उदाहरण जोड़ सकते हैं। यह स्पष्ट नहीं है कि आप कितने उद्धरण चिह्न जोड़ना चाहते हैं। – brettdj

+0

क्षमा करें, मैंने अभी अपनी गलती को सही किया है। मैं केवल 1 कोटेशन चिह्न जोड़ना चाहता हूं। मैं क्वेरी में परिवर्तनीय 'comboService' के मान का उपयोग कर रहा हूं। –

उत्तर

5

यह:

comboService = """ & Me.Combo8.Value & """ 

आप क्या पोस्ट है, लेकिन आप एक शाब्दिक उद्धरण चिह्न जोड़ने के लिए एक अतिरिक्त उद्धरण चिह्न जोड़ने की जरूरत:

comboService = """" & Me.Combo8.Value & """" 

एक स्ट्रिंग के भीतर डबल-उद्धरण हैं तुम क्या ढूंढ रहे हो।

aVar = "This: "" is a literal quotation mark" 
3

मैं एमएस (पुराने vbCRLF) एक समय पहले से एक पृष्ठ पर ले लिया, और बस किसी भी "मुश्किल" वर्ण मैं अपने कोड के शीर्ष पर एक स्ट्रिंग के रूप की आवश्यकता होगी परिभाषित ...

vbDblQuote मंद स्ट्रिंग के रूप में vbDblQuote = Chr (34)

अब

तुम सिर्फ उपयोग कर सकते हैं कि छद्म निरंतर रूप में आप तार का निर्माण ...

strMyString = "बस एक और स्ट्रिंग" & vbDblQuote & "उद्धरण के साथ" 01,vbDblQuote & "!"

इस कोड को अधिक पठनीय बनाता है, और भी "miscounted बोली त्रुटि"

+0

मैं इस पृष्ठ पर एक बहुत ही अजीब व्यवहार के लिए समाधान की खोज में आया था। विंडोज 7 पर एक्सेल 2013 का उपयोग करके, मेरे पास एक ऐसा फ़ंक्शन है जो एक लंबी स्ट्रिंग रखता है जिसमें वर्कशीट सेल में कई एम्बेडेड डबल उद्धरण चिह्न होते हैं। बाद में मैं सेल की सामग्री को Excel से बाहर कॉपी करना चाहता हूं, और उन्हें किसी अन्य प्रोग्राम में फ़ीड करना चाहता हूं। जब मैं ऐसा करता हूं, तो गंतव्य में प्रत्येक डबल कोट को दोगुना कर दिया जाता है। समाधान एक मैक्रो था जो चयनित सेल की सामग्री को संदेश बॉक्स पर रखता है, जिससे इसे सही तरीके से कॉपी किया जा सकता है। –

0

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

हालांकि, यदि आप स्ट्रिंग का निर्माण करते हैं और फिर प्रिंट कमांड का उपयोग करके फ़ाइल करने के लिए आउटपुट करते हैं, तो ऐसा नहीं होता है और सभी अपेक्षित कार्य करता है।