[已解决]一个工作表拆分为多个工作簿

我心飞翔410

把range("d2') 改改就可以了
你要启用宏

laicaiqian12

我心飞翔410 发表于 2013-8-21 16:55
想要表达什么意思了 不是很明白

我将所有表格工号都放在了D2单元格，复制你的代码运行时候还是提示错误啊~~

我心飞翔410

把红色的那句 最后面对应的改为 sh.range("d2')

laicaiqian12

我心飞翔410 发表于 2013-8-21 17:08
把红色的那句 最后面对应的改为 sh.range("d2')

因为中英文符号切换的问题，但改了还是不对。

laicaiqian12

laicaiqian12 发表于 2013-8-21 17:28
因为中英文符号切换的问题，但改了还是不对。

我刚刚改成了
Sub test()
Dim sh As Worksheet
     For Each sh In Worksheets
        sh.Copy
       Set wb = ActiveWorkbook
          wb.SaveAs ThisWorkbook.Path & sh.range("D2")
          wb.Close True
      End
     Next sh
  End
End Sub

貌似可以运行，但没有结果。

如果生成了表格，那生成在哪个地方了？

linshuyan

不懂VBA,看看。

laicaiqian12

跪求高手指点:'(:'(

殿堂之上

你看下，是这样不，还有就是名字要在前面（如李四在李四xxx前），另外不要有象李1，李2这样的，要不会出错。如果有两个一样名的就李1，李1xxx,李2，李2xxx

爱疯

laicaiqian12 发表于 2013-8-21 17:31
我刚刚改成了
Sub test()
Dim sh As Worksheet

Sub a()
Shell "explorer " & Application.DefaultFilePath, vbMaximizedFocus
End Sub
是不是存到这了？

laicaiqian12

殿堂之上 发表于 2013-8-21 18:39
你看下，是这样不，还有就是名字要在前面（如李四在李四xxx前），另外不要有象李1，李2这样的，要不会出错。 ...

谢谢，在我那个测试表中运行确实很强大，但我把语言复制到其他表格时候运行就出现了错误提示，烦请指教~~~~~~