excel - Type mismatch using byref -
निम्न कोड एक संकलन समय त्रुटि संदेश "प्रकार बेमेल" बनाता है:
निजी उप उदाहरण बसऐड (शीट 1.लिस्ट ऑब्जेक्ट्स ("टेबल 6")) उप उप-उप सब-अभीऐड (बायरेफ टेबल एन लिस्ट ऑब्जेक्ट) टेबल एन। लिस्टआरओ। एंड एंड सब <पी> भी कोशिश की: निजी उप उदाहरण मंद tmp सूची के रूप में सेट करें tmp = Sheet1.ListObjects ("Table6") JustAdd (tmp) समाप्ति उप लोक उप बस जोड़ें (ByRef tableN के रूप में सूचीऑब्जेक्ट) tableN.ListRows.Add end sub
इसके अलावा:
निजी उप उदाहरण दीम टीएमपी सूची के रूप में ऑब्जेक्ट टीएमपी = शीट 1.लिस्ट ऑब्जेक्ट्स ("टेबल 6") बसऐड (टीएमपी) समाप्ति उप लोक उप बसऐड (बायरेफ टेबल एन लिस्ट ऑब्जेक्ट) tableN
मैंने केवल आपके पहले उदाहरण की कोशिश की, लेकिन मेरा मानना है कि उनमें से कोई भी इस थोड़े बदलाव के साथ काम करना होगा।
बस JustAdd को कॉल करें (शीट 1। लिस्ट ऑब्जेक्ट्स ("टेबल 6"))
EDIT¹: ठीक है , हो सकता है कि तीसरा न हो।
संपादित करें: यहां अधिक जानकारी: (इन पर लागू: कार्यालय 2013 | VBA)
Comments
Post a Comment