同样的vba代码没问题,为什么用着用着不能用了
VBA代码错误。同样的vba代码没问题，用着用着不能用了的原因是VBA代码错误，VBA代码本身存在错误，例如语法错误、逻辑错误等。这些错误在初次使用时不会显现出来，但随着使用时间的推移，会逐渐暴露出来。绛旓細涓汉鐞嗚В锛岃繖绉嶆儏鍐电悊璁轰笂璨屼技璁蹭笉閫氾紝鍋囧畾涓ゅ彴鐢佃剳涓婂畨瑁呯殑鎿嶄綔绯荤粺鍜孫ffice鐗堟湰閮鐩稿悓锛鍙槸鍥犱负鐢佃剳涓嶅悓灏卞嚭鐜拌繍琛岀粨鏋滀笉鍚岋紝閭ｅ熀鏈笂鏄笉鍙兘鐨勪簨锛屼絾涓嶄簡瑙ｄ綘閬囧埌鍏蜂綋鎯呭喌锛岀缁熷湴璁ㄨ杩欎釜闂娌鏈夋剰涔夈
绛旓細, w_wset_codes, w_wset_fields, w_wset_times, w_wset_errorid)vba_wset 杩欐槸涓嚜瀹氫箟鍑芥暟 锛屼綘鍑芥暟 function 杩囩▼浠ｇ爜鍦ㄥ摢 涓嶈杞绘槗 鐢 on error resume next 杩欐槸 蹇界暐鎵鏈夐敊璇 浣 Call vba_start vba_start 娌℃湁 杩囩▼锛 鍚屾牱 vba_wset 涔熸病鏈夎繃绋嬶紝 浣犳槸瑕侀椆鍝牱鍛 ...
绛旓細鍒濇鎺ヨЕexcel鐨刅BA锛鍒氬涔犱竴娈浠ｇ爜锛VBA灏辫繍琛屾姤閿欙紝鎻愮ず锛氳繍琛屾椂閿欒1004銆傚涓嬪浘鎵绀猴細杩愯鏃堕敊璇1004銆傝繖娈典唬鐮佹槸娴嬭瘯褰撳墠VBA鐗堟湰鐨勶細澶嶅埗浠ｇ爜 浠ｇ爜濡備笅:Sub 鑾峰彇VBA鐗堟湰()MsgBox Application.VBE.Version End Sub 褰撴寜F5閿紝灏辨姤锛氳繍琛屾椂閿欒1004銆傜粡鑰佸笀鎸囩偣锛屽崟鍑绘枃浠垛曗曢夐」鈥曗曚俊浠讳腑蹇冣曗...
绛旓細鎸塅8閫愭杩愯浠ｇ爜锛鍚屾椂鎵撳紑瑙嗗浘-鏈湴绐楀彛锛屼笉鏂煡鐪嬪彉閲忕殑鍊硷紝浣犲氨鏈夊彲鑳藉彂鐜闂鐨勩傛渶澶х殑鍙兘鎬ф槸鏁版嵁璇诲彇閿欒銆
绛旓細棣栧厛 vba 鐨 424 閿欒 澶氭暟閮芥槸 鍥犱负浣犳病鏈 鎶婂綋鍓嶆搷浣滅殑 OBJect 娌℃湁 activate 鎴戣繖杈规病鏈変綘瀹屾暣鐨勪唬鐮涓嶅お濂借娓呮浜嬫儏 濡傛灉锛歅PSlide.Shapes.Paste.Select 杩欏彞涓婇敊浜 灏卞湪瀹冧箣鍓嶆妸 PPSlide.Activate 鍔犱笂鍘昏瘯璇曠湅
绛旓細搴旇鏄痥ybb娌℃湁浜嬪厛鐢虫槑涓簑orksheet锛屾墍浠ワ紝杩欒鐨剆et璇彞浼氬嚭閿欍傚鐞嗘剰瑙侊細1銆佸湪涔嬪墠鍏堢敵鏄庡彉閲忥紝鍔犲叆Dim kybb As Worksheet杩欎竴鍙ワ紱2銆佷篃鍙互灏唖et璇彞鏀逛负with璇彞璇曡瘯銆
绛旓細鎴栬鏈変簺鍐呭鐢ㄨ繖涓槸鏃犳硶娓呴櫎鐨勶紝濡傛渶杩戦亣鍒颁竴绉峬soShapeStyleNotAPreset锛堜唬琛ㄦ棤褰㈢姸鏍峰紡锛夛紝鐪嬬潃鏄浘鐗囷紝浣嗘槸灏辩畻閫変腑瀹冩寜Delete閿兘鍒犱笉鎺夛紝shp.Delete鏇存槸鐩存帴鍑洪敊銆傚彟澶朣hapes鏁伴噺杈冨锛岀敤shp.Delete鏂规硶鍙兘鐩存帴灏卞崱姝绘満浜嗭紝姣斿瓒呰繃涓涓ゅ崈涓傛墍浠モ淪ub 娓呴櫎锛堬級鈥濋傜敤浜庢竻闄ゆ暟閲忓皯鐨勶紝鎸塂elete閿兘...
绛旓細鈥樿嚜宸辨暡鐨勶細a = Sheets("Datebase").UsedRange.Rows.Count 鈥欑綉涓婂鍒朵笅鏉ョ殑锛'a = Sheets("Database").UsedRange.Rows.Count 浣犺嚜宸辨暡鐨凷heets("Datebase")鎵撳瓧閿欒锛屽鐓у浘锛屾槸Database銆
绛旓細姝绘満鍘熷洜涓昏鏈変互涓嬫柟闈腑姣掓垨涓伓鎰忚蒋浠讹紝寮曡捣鐢佃剳寮傚父锛岃В鍐虫硶鏄紝鍗囩骇鏉姣掕蒋浠讹紝鏉姣掞紝瀹炲湪涓嶈锛屽氨閲嶈鎴栨仮澶嶈繃绯荤粺銆傞噸瑁呮垨鎭㈠杩囩郴缁熷彲浠ュ畬鍏ㄨВ鍐宠蒋浠舵柟闈㈢殑闂銆傜敱浜庣數鍘嬩笉绋崇偣锛岀數婧愬姛鐜囦笉澶燂紝涔熶細缁忓父寮曡捣鐢佃剳寮傚父锛屽鏋滄槸杩欎簺鍘熷洜寮曡捣鐨勫氨閰嶇疆涓涓ǔ鍘嬪櫒锛屾崲澶у姛鐜囩數婧愬氨鑳借В鍐炽傜敱浜庤繍琛屽ぇ杞欢銆...
绛旓細VBA 浠ｇ爜搴旇灏介噺浣跨敤 CodeName 灞炴у搴旂殑瀛楃锛屾埅鍥句腑鐢ㄨ崸鍏夌瑪鐢诲嚭鏉ョ殑鏄 "Sheet1"銆備娇鐢 CodeName 鐨勫ソ澶勪笉浠呬粎鏄兘澶熻涓嶅悓璇█鐗堟湰鐨 Excel 鎵璇嗗埆锛岃繕鏈変竴涓ソ澶勶細鏃犺浣犳庝箞淇敼璇 宸ヤ綔琛ㄧ殑鍚嶇О锛屾垨璋冩暣璇ュ伐浣滆〃鐨勪綅缃紝閮戒笉浼氬紩璧闂銆傚洜涓 CodeName 灞炴ф槸鍥哄畾涓嶅彉鐨勩傞櫎闈炰綘鍘绘墜鍔ㄨ皟鏁淬
