作者：乔山办公网日期：
返回目录：excel表格制作
录制是完成不了的，如下几个代zhidao码配合其回他可完成。
Dir，找到每个文件
Workbooks.Open，打开文件
workbooks(1).cells(1,1)=???, 替换单元格
Save，保存答
Workbooks.Close关闭
在thisworkbook文件的百代码窗口度 粘贴下面代码：知
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open ("D:\Users\lan\Desktop\excel2011.xls")
Workbooks(1).Close
End Sub
这是你要道打开的文件全名内包括容路径：D:\Users\lan\Desktop\excel2011.xls
快捷键alt+f11
调出VBA编辑器
删除宏代码
保存即可
On Error GoTo 1
Dim K1 As Object
Set K1 = CreateObject("Scripting.FileSystemObject")
Set k2 = K1.GetFolder(ThisWorkbook.Path)
Set xlApp = CreateObject("Excel.Application")
Dim Xrow As Integer
Xaces = 3
For Each f In k2.Files
If InStr(f.Name, ThisWorkbook.Name) = False Then
Xrow = 3
Ca = ThisWorkbook.Path & "\" & f.Name
Set xlbook = xlApp.Workbooks.Open(Ca)
xlApp.Visible = False
’可插入需要进行操作的代码e799bee5baa6e997aee7ad94e59b9ee7ad94361
xlbook.Close
End If
Next
Exit Sub
1:
xlbook.Close