Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3312|回复: 2

“缺少:语句结束“,找不出原因

[复制链接]
发表于 2017-6-28 22:16 | 显示全部楼层 |阅读模式

写到 ”With ActiveWorkbook.Sheets(1).Move after: = ThisWorkbook.Sheets(Sheets.Count)“这段时,弹出对话框 “编译错误:缺少:语句结束“,并框选“after”,不得其因,请教各位大神,看看哪里出了问题

Sub 合并工作簿()
    Dim mypath As String, f As String, wb As Workbook
    Application.ScreenUpdating = False
    mypath = ThisWorkbook.Path & "\3月\"
    f = Dir(ThisWorkbook.Path & "\3月\*.xlsx")
    Do
       Workbook.Open (mypath & f)
       With ActiveWorkbook.Sheets(1).Move after: = ThisWorkbook.Sheets(Sheets.Count)
        End With
        f = Dir
    Loop Until Len(f) = 0
    Application.ScreenUpdating = True
    End Sub



发表于 2017-6-29 08:21 | 显示全部楼层
本帖最后由 砂海 于 2017-6-29 08:26 编辑

With ActiveWorkbook.Sheets(1).Move after: = ThisWorkbook.Sheets(Sheets.Count)
        End With

你就一句 , 用With 干嘛呢?
ActiveWorkbook.Sheets(1).Move after: = ThisWorkbook.Sheets(Sheets.Count)

就好 , 把with , end with 去掉
就是用的话也是这2种情况

With ActiveWorkbook.Sheets(1)       
.Move after: = ThisWorkbook.Sheets(Sheets.Count)
End With

With ActiveWorkbook       
.Sheets(1).Move after: = ThisWorkbook.Sheets(Sheets.Count)
End With


回复

使用道具 举报

 楼主| 发表于 2017-7-7 22:24 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:14 , Processed in 0.409930 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表