Question

如何用VB逐个打开文件夹下的xls文件，并对sheet1运行制定宏代码

我编写了一段宏代码，专门用来设置字体格式等，由于XLS文件有几千份，无法手动操作，键盘录制软件无法完成，所以求助。本人没有专门学过VBA。求高手写份代码，假设xls文件在d:\tt里面，并适当注释
一定是对sheet运行代码，代码大致如下：
Sub mmmmm()
'定义变量
Dim i As Integer
Dim j As Integer
'加考核表
For i = 1 To 300
For j = 1 To 30
If Cells(i, j) = "2012年度考核表" Or Cells(i, j) = "2012年年度考核表" Then
Cells(i + 1, j) = "2013年年度考核表"
Cells(i + 1, j + 1) = "2014"
Cells(i + 1, j + 2) = "07"
Cells(i + 1, j + 3) = "04"
Cells(i + 1, j + 4) = "2"
..............
..............

Answer 1

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(DpathBUFF) '在括号内输入你指定的目录
Set fc = F.Files

i = 1
maxfiles = fc.Count
For Each f1 In fc
jj = 2
Sheet1.Cells(i, 1) = f1.Name
fileName = f1.Name
'Set xlsApp = CreateObject("Excel.Application")
'xlsApp.Visible = False
'xlsApp.Workbooks.Open (DpathBUFF & "/" & f1.Name) 隐式打开,xlsApp调用全部文档
Excel.Workbooks.Open (DpathBUFF & "/" & f1.Name) 显示打开

next

Answer 2

你的每个xls里面都有mmmm宏么？