[已解决]请教如何将工作表导出生成新工作表？

梦入童话

o9JOjUX6.rar (1.43 KB, 下载次数: 7)

2010-7-26 14:41 上传

点击文件名下载附件
请教如何将工作表导出生成新工作表？
请问高手如何用VBA将文件夹内工作表里的数据表导出生成新工作表，保存到当前文件夹内

最佳答案

月排行榜 / 总排行榜

帅

2010-7-26 15:10

Sub aa()
    Dim i As String
    Dim x As Integer
    For x = 1 To Sheets.Count
        i = Sheets(x).Name
        Sheets(x).Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & i & ".xls"
        ActiveWorkbook.Close
    Next x
End Sub

  RqPAoTLE.rar (8.6 KB, 下载次数: 33)

2010-7-26 15:10 上传

点击文件名下载附件
请教如何将工作表导出生成新工作表？

导出工作簿中所有工作表

跳转到最佳答案楼层

liangnan1986

等答案

EZD

ActiveWorkbook.saveas

帅

Sub aa()
    Dim i As String
    Dim x As Integer
    For x = 1 To Sheets.Count
        i = Sheets(x).Name
        Sheets(x).Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & i & ".xls"
        ActiveWorkbook.Close
    Next x
End Sub

  RqPAoTLE.rar (8.6 KB, 下载次数: 33)

2010-7-26 15:10 上传

点击文件名下载附件
请教如何将工作表导出生成新工作表？

导出工作簿中所有工作表