求助~多个相同Excel文件添加值 条件相同

godismex

如题 :列如在D:\人事资料\这个文件夹下面有本公司的N多个相同员工Excel文件 （员工信息） 现在需要在原本所属公司那一表格中 C9 添加（原本是空着的） “某某有限公司”，  这些人员的表格都是一样的 也就是在多个个相同结构的EXCEL文件表格（其他C9）也相同的情况下添加一个相同的值  ~~求解决 谢谢  复制的办法太慢了  资料少还好 多了就不行了

suwenkai

没附件，没真相。

godismex

Sub 批量处理文档()

'

' 批量处理文档 Macro

' 宏在 2007-9-30 由 番茄花园 创建

'


Dim MyDialog As FileDialog, GetStr(1 To 40) As String    ’40是我当时工作时的文档数

On Error Resume Next





Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)

With MyDialog

    .Filters.Clear

    .Filters.Add "所有WORD文件", "*.doc", 1

    .AllowMultiSelect = True

    i = 1

    If .Show = -1 Then

        For Each stiSelectedItem In .SelectedItems

            GetStr(i) = stiSelectedItem

            i = i + 1

        Next

        i = i - 1

    End If

   

    Application.ScreenUpdating = False

    For j = 1 To i Step 1

        Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)

        Windows(GetStr(j)).Activate

  ‘在此加入你要在每文档中要做的工作,可以是录制的宏



        Application.Run macroname:="Macro1"

        ActiveDocument.Save

        ActiveWindow.Close

    Next

   

    Application.ScreenUpdating = True

   

End With

        

   

   

End Sub

有点像这个  但是不太理解  是EXCEL