VBA语法错误，求大神解答，谢谢 EXCEL vba 运行到return就停止了，求大神解答，...
VBA\u4ee3\u7801\u7684\u8bed\u6cd5\u9519\u8bef\uff01\u8bf7\u5927\u795e\u5e2e\u5fd9\u4fee\u6539\uff01\u7b80\u5355\u7684\u51e0\u53e5\uff0c\u95ee\u9898\u591a\u591a\u3002\u9664\u4e86i = app\u2026\u2026\u8fd9\u53e5 \u8bed\u6cd5\u9519\u8bef\u5916\uff0c\u5176\u4ed6\u7684\u9519\u8bef\u4e0d\u53ea3\u5904\uff0c\u6700\u5927\u7684\u95ee\u9898\u662f\u6d41\u7a0b\u95ee\u9898\uff0c\u5982\u679c\u8fdb\u5165Do\u5faa\u73af\uff0c\u5c31\u51fa\u4e0d\u6765\u4e86\uff0c\u4e00\u76f4\u5230n\u5927\u4e8e\u5de5\u4f5c\u8868\u7684\u6700\u5927\u884c\u6570\u800c\u51fa\u9519\u3002
Sub ss()
Dim x&
On Error Resume Next
For x = 1 To 20
If x > 9 Then
GoTo 100
End If
Cells(x, 6) = Cells(x, 5) * Cells(x, 4)
200:
Next
Exit Sub
100:
Cells(x, 6) = "\u9519\u8bef"
GoTo 200
End Sub
\u8bd5\u4e0b\u8fd9\u6bb5\u4ee3\u7801\uff0c\u53e6\u5916retrun\u662f\u914d\u5408gosub\u6765\u4f7f\u7528\u7684\uff0c
\u5982\u679c\u4f7f\u7528\u4e86on error resume next \u90a3\u4e48 return\u5c31\u6ca1\u5565\u4f5c\u7528\u4e86\u3002
为什么要用中文的逗号、引号、括号呢，编程里面一律使用英文，我修改后能编译通过的代码如下：
Sub sheets2one()
'定义对话框变量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
另外，代码中的dim建议全部提前吧。
绛旓細璇硶閿欒锛圫yntax Error锛夛細閫氬父鍙戠敓鍦VBA浠ｇ爜涓瓨鍦ㄨ娉曢敊璇垨鎷煎啓閿欒鏃躲傝В鍐虫柟娉曟槸浠旂粏妫鏌ヤ唬鐮侊紝纭繚璇硶姝ｇ‘锛屾墍鏈夊叧閿瓧銆佸彉閲忓拰鍑芥暟閮芥纭嫾鍐欍傞櫎浠ラ浂閿欒锛圖ivide by Zero Error锛夛細閫氬父鍙戠敓鍦ㄥ皾璇曞皢涓涓暟闄や互闆舵椂銆傝В鍐虫柟娉曟槸鍦ㄨ繘琛岄櫎娉曡繍绠椾箣鍓嶏紝纭繚闄ゆ暟涓嶄负闆躲傛枃浠舵湭鎵惧埌閿欒锛團ile Not Found...
绛旓細杩欎釜閿欒閫氬父鍑虹幇鍦ㄤ娇鐢 VBA 浠ｇ爜鎿嶄綔鍗曟嵁鎴栨姤琛ㄦ椂锛屾彁绀衡滄湭璁剧疆瀵硅薄鍙橀噺鎴 with block 鍙橀噺鈥濄傝繖绉嶉敊璇氬父鏄敱浜庝唬鐮佷腑鐨勫璞″彉閲忔湭姝ｇ‘澹版槑鎴栧紩鐢ㄦ墍瀵艰嚧鐨勩傝В鍐宠繖涓棶棰樼殑鏂规硶鍖呮嫭浠ヤ笅鍑犱釜姝ラ锛氭鏌ヤ唬鐮佷腑鐨勫璞″彉閲忔槸鍚︽纭０鏄庛傚湪 VBA 浠ｇ爜涓紝姣忎釜瀵硅薄閮藉簲璇ヨ澹版槑涓轰竴涓彉閲忥紝骞朵笖闇瑕佸湪浠ｇ爜涓槑...
绛旓細".xls", "") tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set cc = NothingEnd Sub鍙﹀锛屼唬鐮佷腑鐨刣im寤鸿鍏ㄩ儴鎻愬墠鍚с
绛旓細VBA瀛楃涓茶〃杈惧紡涓紝鍙屽紩鍙疯鐢ㄤ袱涓弻寮曞彿琛ㄧず銆傚洜姝閿欒浠ｇ爜淇敼濡備笅锛歊ange("J2").Formula = "=IfError(VLookup((""MSIS_Data_Source[@TDVCHR]"") & (""MSIS_Data_Source[@TDOPIT]"") & (""MSIS_Data_Source[@AMOUNT]""), (""_Ref1[#鍏ㄩ儴]""), 2, 0), """)"
绛旓細1銆乁鐩樺畨瑁咃細鐢╱ltraiso杞欢锛屾墦寮涓嬭浇濂界殑绯荤粺瀹夎鐩樻枃浠讹紙ISO鏂囦欢锛夛紝鎵ц鈥滃啓鍏ユ槧鍍忔枃浠垛濇妸U鐩樻彃鍒扮數鑴戜笂锛岀偣鍑烩滅‘瀹氣濓紝绛夊緟绋嬪簭鎵ц瀹屾瘯鍚庯紝杩欐牱灏卞仛濂戒簡鍚姩鍙婂畨瑁呯郴缁熺敤鐨剈鐩橈紝鐢ㄨ繖涓仛濂界殑绯荤粺u鐩樺紩瀵煎惎鍔ㄦ満鍣ㄥ悗锛屽嵆鍙『鍒╅噸瑁呯郴缁熶簡锛2銆佺‖鐩樺畨瑁咃細鍓嶆彁鏄紝闇瑕佹湁涓涓彲浠ユ甯歌繍琛岀殑Windows绯荤粺...
绛旓細鍙互閲嶆柊褰曞埗瀹忔浛鎹㈡帀锛屽鏋滄浛鎹篃淇濆瓨锛岀洿鎺all瀹
绛旓細鍦 For Each .SelectedItems ... Next 寰幆涓姩鎬佹暟缁刵ame娌℃湁澧為暱銆傚洜涓哄彉閲廹g=1娌℃湁鍙樺寲銆侱im name() As StringDim aa As VariantDim gg As Integer gg = 1Set dig = Application.FileDialog(msoFileDialogFilePicker)With dig .InitialFileName = Range("F1").Value & "\" .AllowMultiSele...
绛旓細鎶ラ敊鐨勯偅鍙ヤ慨鏀瑰涓嬶細ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!R" & i & "C2:R" & i & "C" & j 瀛樺湪鐨勯棶棰橈細涓鏄彲鑳藉琛岃鍙ュ鐞嗙己灏戠┖鏍硷紝浜屾槸&涓嶈鍜屽彉閲忚繛鎺ワ紝涓夋槸瀛楃涓插簲褰撲娇鐢ㄥ弻寮曞彿銆
绛旓細vba杩愯鏃閿欒1004 搴旂敤绋嬪簭瀹氫箟鎴栧璞″畾涔夐敊璇槸璁剧疆閿欒閫犳垚鐨勶紝瑙ｅ喅鏂规硶涓猴細1銆佸厛鎵撳紑涓涓枃浠躲2銆佸崟鍑绘枃浠垛曢夐」鈥曚俊浠讳腑蹇冣曚俊浠讳腑蹇冭缃3銆佹墦寮鈥滀俊浠讳腑蹇冣濆璇濇 瀹忚缃4銆佸嬀閫夆滀俊浠诲VBA宸ョ▼瀵硅薄妯″瀷鐨勮闂 鐐瑰嚮纭畾銆傚氨涓嶄細鍑虹幇杩愯鏃堕敊璇1004鎻愮ず銆
绛旓細1銆佹瘡涓寚瀹氱殑鏁板奸棿蹇呴』鐢ㄨ嫳鏂囬楀彿闅斿紑锛2銆佸綋浣跨敤is鏃讹紝搴旇鍚庨潰璺熺潃姣旇緝杩愮畻绗︼紙浣嗕笉鍖呮嫭姣旇緝杩愮畻绗︾殑is銆乴ike锛夛紝杩欎簺杩愮畻绗﹀寘鎷皬浜 (<) 銆佸皬浜庣瓑浜 (<=) 銆佸ぇ浜 (>) 銆佸ぇ浜庣瓑浜 (>=) 銆佷笉绛 (<>) 鍜岀瓑浜 (=)銆3銆佸彧鑳戒娇鐢ㄥ崟涓暟鍊硷紝鎴栦竴涓尯闂淬傝屽尯闂村彧鑳界敤is鍔犳瘮杈冭繍绠楃锛屾垨to...
