从列表中选择要复制到单独工作簿的工作表 [英] Select from list, sheets to copy to seperate workbooks

问题描述

我有一个VBA脚本，可以将工作表从主工作簿复制到自己的工作簿.当前，它是一个长子例程.我希望能够选择一个或多个或所有这些来复制.下面是我当前使用的代码的一部分.

I have a VBA script that copies sheets from primary workbook to their own workbooks. It currently is one long subroutine. I would like to be able to choose one or more or all of these to copy. below is a part of the code I use currently.

子copyU6()
   表格("U05").选择
   表格("U05").复制
    ActiveWorkbook.SaveAs文件名:= _
       "C:\ Soccer Fall 09 \ U05_2-8-09.xls"，文件格式:= _
       xlExcel8，密码:="，WriteResPassword:="，ReadOnlyRecommended:= _
       False，CreateBackup:= False
    ActiveWindow.Close

Sub copyU6()
    Sheets("U05").Select
    Sheets("U05").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Soccer Fall 09\U05_2-8-09.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWindow.Close

'  复制下一张纸
   表格("U06").选择
   表格("U06").复制
    ActiveWorkbook.SaveAs文件名:= _
       " C:\ Soccer Fall 09 \ U06_2-8-09.xls; _
       FileFormat:= xlExcel8，密码:="，WriteResPassword:="，_
       ReadOnlyRecommended:= False，CreateBackup:= False
    ActiveWindow.Close
'
   床单(男孩U08").选择
   床单("Boys U08").复制
    ActiveWorkbook.SaveAs文件名:= _
       "C:\ Soccer Fall 09 \ Boys U08_2-8-09.xls"，文件格式:= _
       xlExcel8，密码:="，WriteResPassword:="，ReadOnlyRecommended:= _
       False，CreateBackup:= False
    ActiveWindow.Close
   
结束子

'   Copy next sheet
    Sheets("U06").Select
    Sheets("U06").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Soccer Fall 09\U06_2-8-09.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
'
    Sheets("Boys U08").Select
    Sheets("Boys U08").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Soccer Fall 09\Boys U08_2-8-09.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWindow.Close
   
end sub

我是Excel中VBA编程的新手，所以在此先感谢您的帮助.

I am a novice at VBA programing in Excel, so thanks in advance for any help.

推荐答案

您好，

 

谢谢您的发帖！  我建议在中为您的问题创建一个新线程 Visual Basic常规  位于此处: http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/threads

Thank you for your post!  I would suggest creating a new thread for your question in the Visual Basic General located here:  http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/threads

祝你有美好的一天！

谢谢！

Have a great day!

Thanks!

这篇关于从列表中选择要复制到单独工作簿的工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！