工作表按名称排序（VBA80集第25讲课后练习题）上交专贴

aochuanguying

回 帖 看 看 答 案

flycor

继续学习 前来报到

Darren.Shi

Thank you very much!

小景儿

学习学习高手们的经验

scienced

VBA80集第25集课后练习题

dylanxu

难啊  向高手学习学习

727565102

2011年的课 我2013年才学到25集@@

fksd1

看看代码，看看代码

tyl@163.com

新手求助！为什么分离出来的工作表传到其它电脑上有公式的不能看，可否帮忙更改一下代码，将分离出来的内容不与原表相关联。
Sub s1()
Dim sh As Worksheet
Sheets("日模板").Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/1日.xls"

wb.Close True
End Sub
Sub s2()
Dim x As Integer
Dim sh As Worksheet
Dim str As String
For x = 1 To Sheets.Count
Set Sheets(x) = sh
Set sh = ActiveWorksheet
str = Sheets(x).Name
sh.SaveAs ThisWorkbook.Path & "/str.xls"
Exit Sub
Next
End Sub



Sub 另存报表()

    Dim sh As Worksheet

    Dim bd As Workbook

    Dim x As Integer

       Set bd = ThisWorkbook

    For x = 1 To Sheets.Count

        Set sh = Sheets(x)

        If sh.Visible = xlSheetVisible Then

        sh.Copy

        ActiveWorkbook.SaveAs bd.Path & "/" & sh.Name & ".xls"

        ActiveWorkbook.Close False      
        bd.Activate

        End If

    Next

  End Sub

宝贝木头

学习学习学习一下