求助：如何用VBA来替换单元格里面的内容！

sjtd

现有文件夹下面100个文件，现在需要操作将A1里面的内容修改为"CCCCCC"，B1里面日期为1999.12.12现在修改为：1999-12-12 ！


说明：要将里面100个文件都做同样的操作！！
请各位大哥，高手指点！！

ysdms

同问，这个我也不会

LangQueS

Sub 循环当前文件夹中所有工作簿的所有工作表()
    f = Dir(ThisWorkbook.Path & "\*.xls")    '搜索当前文件夹
    Do While f > " "
        If f <> ThisWorkbook.Name Then    '如果不是当前工作簿
            Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)    '打开工作簿
            For i = 1 To wb.Sheets.Count    '循环工作表
                With wb.Sheets(i)

                    .Range("a1") = "CCCCCC"    '具体任务
          .Range("b1") = "1999-12-12 "    '具体任务


                End With
            Next
            wb.Close 1    '关闭 Open 语句所打开的输入/输出 (I/O) 文件。
        End If
        f = Dir
    Loop
End Sub

sjtd

不行呀，打个，帮我在看看

LangQueS

怎么不行？

包含3楼代码的文件要与其他文件放在同一个文件夹中。

莫悠悠

高手，真想知道是啥意思