批量导出工作表为数据格式

木子伟

因工作文件太大，做此表为测试。需要把周一到周日每个工作表单独导出，因为里面有不同工作表间公式的套用，所以导出的表格需要是不带公式的，格式可以。


直接用工作表复制的话，公式什么都在里面，希望各位大大帮下忙。谢谢了！！！

木子伟

可能上面那个文件打不开，重新上传文件。

wodewan

试试看，是不是这样的。

木子伟

wodewan 发表于 2019-10-8 15:41
试试看，是不是这样的。

谢谢了，老师。
如果需要导出的SHEET名称，没有共同的关键词，是从sheet1到sheet10,需要怎么弄呢。

wodewan

木子伟 发表于 2019-10-10 16:26
谢谢了，老师。
如果需要导出的SHEET名称，没有共同的关键词，是从sheet1到sheet10,需要怎么弄呢。

一样的，都是循环工作簿里的所有sheet，有关键词的还要判断，没有关键词就直接导出，如果有数量限定就加个判断，具体问题具体分析吧。

opel-wong

木子伟 发表于 2019-10-10 16:26
谢谢了，老师。
如果需要导出的SHEET名称，没有共同的关键词，是从sheet1到sheet10,需要怎么弄呢。

要学会变通，简单修改一下就可以了，

1. Sub test()
   
2.     Dim arr, sht As Worksheet, i As Integer
   
3.     Application.DisplayAlerts = False
   
4.     Application.ScreenUpdating = False
   
5.     For i = 1 To Sheets.Count
   
6.         If i <= 10 Then
   
7.             arr = Sheets(i).UsedRange
   
8.             Workbooks.Add
   
9.             With ActiveWorkbook.ActiveSheet
   
10.                 .Name = Sheets(i).Name
    
11.                 .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
12.                 ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Sheets(i).Name & ".xlsx"
    
13.                 ActiveWorkbook.Close True
    
14.             End With
    
15.         End If
    
16.     Next
    
17.     Application.DisplayAlerts = True
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

opel-wong

木子伟 发表于 2019-10-10 16:26
谢谢了，老师。
如果需要导出的SHEET名称，没有共同的关键词，是从sheet1到sheet10,需要怎么弄呢。

木子伟

opel-wong 发表于 2019-10-10 17:03

谢谢老师，多谢啦！

木子伟

wodewan 发表于 2019-10-10 17:00
一样的，都是循环工作簿里的所有sheet，有关键词的还要判断，没有关键词就直接导出，如果有数量限定就加 ...

嗯嗯，好的，谢谢老师！