高手进！顶级高手进！Excel文档批量修改数据

443233785

现有几百个Excel文档要修改里面其中一个活页薄的一个数据，要改的数据在该活页薄有2处相同，只要改指定的一处
在不用打开文档的情况下把全部修改完成，有没有办法解决这一难题？
在线等答案！！先谢过！

业余爱好者

其实，问题在初私设计思路中给你自己挖好了坑

同样的数据会在几百个表中出现又需要同时去修改，真的很难让人理解

443233785

问题用VBA代码解决了，但还有一小问题，就是在修改的同时再插入批注，这该怎么处理？

443233785

我的代码如下：
'------------------------------------------------批量修改

Public strPath(1000) As String
Public strBookName(1000) As String

Public Function OpenExcelFile(nFileNum As Integer) As String
    Dim nCount As Integer
    For nCount = 1 To nFileNum
        strPath(nCount) = Application.GetOpenFilename(fileFilter:="Microsoft Excel(*.xls), *.xls,Microsoft Excel(*.xlsx), *.xlsx")
            If strPath(nCount) = "False" Then
                MsgBox "Excel文件错误", vbCritical
                Exit Function
            End If
        Workbooks.Open Filename:=strPath(nCount), UpdateLinks:=0, ReadOnly:=False
        strBookName(nCount) = ActiveWorkbook.Name
    Next nCount
End Function

Sub ModifyFiles()
    Dim vFileNum As Variant
    vFileNum = Trim(InputBox("请输入打开文件的数量（1-1000）："))
        If vFileNum < 1 Or vFileNum > 1000 Then
            MsgBox "数量错误", vbCritical
            Exit Sub
        End If

    OpenExcelFile (vFileNum)
    Dim nCountFile As Integer
    For nCountFile = 1 To vFileNum
        If strPath(nCountFile) = "False" Then
            Exit Sub
        End If
    Next nCountFile

    Application.DisplayAlerts = False
    For nCountFile = 1 To vFileNum
        Workbooks(strBookName(nCountFile)).Activate
            Dim sht As Worksheet
            For Each sht In Worksheets
                '更改这一行代码在所有的工作表内修改。
                sht.[A1] = 1
            Next
        Workbooks(strBookName(nCountFile)).Close True
    Next nCountFile
    Application.DisplayAlerts = True

    MsgBox "完成！", vbInformation
End Sub

xwd5189

高深呀！佩服！

xcnclzy

这种情况没有示例，不好说。