如何把全镇各个村的工作簿下的指定表独立出来

定敏

lsc900707 发表于 2018-9-26 21:48
附件供测试效果：

您的完全符合要求，谢谢。

定敏

不知道为什么 发表于 2018-9-26 21:36

我感觉重命名的那句好像不对，可不可以这样写：Nwbk.save as left(wbk.name,3) & sht.name

不知道为什么

定敏 发表于 2018-9-26 21:57
我感觉重命名的那句好像不对，可不可以这样写：Nwbk.save as left(wbk.name,3) & sht.name

呵呵，您可以试试效果。

你那是只取了工作簿名称的前3个字符，如果有重复就会报错了

定敏

不知道为什么 发表于 2018-9-26 22:00
呵呵，您可以试试效果。

你那是只取了工作簿名称的前3个字符，如果有重复就会报错了

我就奇了怪了，我感觉没有错了，怎么运行会有变量未定义的提示呢，以下是我照您的代码打的呀，麻烦您看看有没有错的地方：
Sub test()
Dim wbk As Workbook, mypath$, fn, sht As Worksheet
Dim nwbk As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
mypath = ThisWorkbook.Path & "\"
fn = Dir(mypath & "*.xl*")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
    Set wbk = Workbooks.Open(mypath & fn)
    Set sht = wbk.Sheets("岁段名册总表")
    sht nwbk = ActiveWorkbook
    nwbk.SaveAs Left(wbk.Name, Len(wbk.Name) - 4) & sht.Name
    nwbk.Close False
    wbk.Close False
End If
fn = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

不知道为什么

定敏 发表于 2018-9-26 22:22
我就奇了怪了，我感觉没有错了，怎么运行会有变量未定义的提示呢，以下是我照您的代码打的呀，麻烦您看看 ...

你做了变量强制申明？
option base 1 ？

如果是 那 再定义下 fn

fangqingyu

这水平！高手！

定敏

不知道为什么 发表于 2018-9-26 22:24
你做了变量强制申明？
option base 1 ？

我没有强制申明变量，而且 fn已经定义了呀。以下是错误提示：

不知道为什么

定敏 发表于 2018-9-26 22:30
我没有强制申明变量，而且 fn已经定义了呀。以下是错误提示：

是 set  不是 sht  

sht nwbk = ActiveWorkbook

定敏

不知道为什么 发表于 2018-9-26 22:37
是 set  不是 sht  

sht nwbk = ActiveWorkbook

谢谢，真是我粗心大意了。可是，又出现了新问题：

不知道为什么

定敏 发表于 2018-9-26 22:41
谢谢，真是我粗心大意了。可是，又出现了新问题：

要不你把出错附件上传