[已解决]如何加快导出的速度？

zhqsl

导出.zip (103.82 KB, 下载次数: 10)

2012-7-31 13:07 上传

点击文件名下载附件 导出文件时速度很慢，是文件里头公式多还是数据量大？如何才能加快导出的速度？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-31 14:54

Private Sub CommandButton2_Click()
    Dim i As Integer
    For i = 3 To Worksheets.Count
        If Worksheets(i).Visible = 0 Then
            X = 1
            Worksheets(i).Visible = -1
        End If
        Worksheets(i).Copy
        ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name
       ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
        ActiveWorkbook.Close
        If X = 1 Then
            Worksheets(i).Visible = 0
            X = 0
        End If
    Next
End Sub

跳转到最佳答案楼层

zjdh

Private Sub CommandButton2_Click()
    Dim i As Integer
    For i = 3 To Worksheets.Count
        If Worksheets(i).Visible = 0 Then
            X = 1
            Worksheets(i).Visible = -1
        End If
        Worksheets(i).Copy
        ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name
       ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
        ActiveWorkbook.Close
        If X = 1 Then
            Worksheets(i).Visible = 0
            X = 0
        End If
    Next
End Sub

zhqsl

按照你提供的新代码，导出速度果然很快，不过又出现新问题了，导出的表格中“来源代码列”不是原来的文本形式了，也就是由原来的“03”变成了“3”，如何在导出的新表中还继续保持原来的“03”即文本格式？最好是在现有VBA代码的基础上进行改进。 导出1.zip (103.56 KB, 下载次数: 1)

2012-8-26 21:49 上传

点击文件名下载附件 导出对比结果.zip (17.7 KB, 下载次数: 1)

2012-8-26 21:49 上传

点击文件名下载附件