【037】Excel 中遍历修改文件(VBA)

最新推荐文章于 2022-06-29 14:45:05 发布

转载最新推荐文章于 2022-06-29 14:45:05 发布 · 128 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/alex-bn-lee/archive/2012/04/27/2473904.html

本文介绍了一段使用VBA编写的代码，该代码能够批量处理指定文件夹内的Excel文件，实现数值转换并保存更改。在2007版本的Excel上测试通过，但在2010版本中遇到了无法保存的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Sub OpenCloseArray()
        Dim MyFile As String
        Dim Arr(100) As String
        Dim count As Integer
        MyFile = Dir("F:\Desktop\98、99年\" & "*.xls")  '修改文件夹路径
        count = count + 1
        Arr(count) = MyFile
          
        Do While MyFile <> ""
            MyFile = Dir
            If MyFile = "" Then
                Exit Do
            End If
            count = count + 1
            Arr(count) = MyFile         '将文件的名字存在数组中
        Loop
          
        For i = 1 To count
            Workbooks.Open Filename:="F:\Desktop\98、99年\" & Arr(i)  '循环打开Excel文件
        
        '编辑范围
        
                Dim allRow As Integer
                allRow = Cells(Rows.count, 1).End(xlUp).Row
                
                For j = 2 To allRow
                    Cells(j, 1) = Cells(j, 1) / 1000
                Next
                
         '编辑范围
            
            ActiveWorkbook.Close savechanges:=True       '关闭打开的文件，并保存
        Next
    End Sub

发现在 2010 上面测试有问题，没办法保存，但是在 2007 上是可以的！

对于需要批量改变的内容直接写在编辑范围内就可以了！

转载于:https://www.cnblogs.com/alex-bn-lee/archive/2012/04/27/2473904.html