如 在cell（1,2）对应的指定路径下，遍历其路径下所有cell（2,2）单元格指定的文档类型（只有xls 或csv），并对每个文档指定位置列进行计算：如xls表sheet1 第N列（原本为空值列）数据 等于 sheet1 中第L列数据（非空值列）乘以常数86400。N列数据计算保留后保存，并退出。另第L列数据 原本为hh:mm:ss 格式，需要N列的数据以整数值（即绝对时间秒）形式显示。

附件1为文档处理前状态， 附件2为文档处理后状态。



我的主要代码如下（本人小白）：

Private Sub 执行_Click()

'On Error Resume Next
Dim filepath As String, filename As String, fltype As String, i As Integer, n As Integer
Dim Arr(1000) As String
Dim count As Integer
'Dim FS As FileSearch '定义一个文件搜索对象
'Set FS = Application.FileSearch
'FS.LookIn = Sheet1.Cells(1, 2) '注意路径，换成你实际的路径
'FS.Execute '执行搜索
filepath = Sheet1.Cells(1, 2) & "\"
fltype = "*." & Sheet1.Cells(2, 2)
filename = Dir(filepath & fltype, vbDirectory)
 count = count + 1
    Arr(count) = filename

Do While filename <> ""
  Sheet1.Cells(i + 7, 1) = Replace(filename, "." & Sheet1.Cells(2, 2), "")
  i = i + 1
  filename = Dir
Loop
Sheet1.Cells(3, 2) = i - 1

For i = 1 To FS.FoundFiles.count
        Workbooks.Open filename:="D:\data deal\试验\" & Arr(i)  '循环打开Excel文件
        For n = 1 To Application.count(ActiveSheet.Range("L65536").End(xlUp).Row)  '取L列不为空值的总行数，作为循环总数
            ActiveSheet.Cells(n, 14) = ActiveSheet.Cells(n, 12) * 86400
            ActiveSheet.Save
         Next n
        ActiveWorkbook.Close savechanges = True     '关闭打开的文件
    Next i

MsgBox "已处理完成!"

End Sub

下述附件1 是试验用的excel文档，附件3是编程的excel文件。
[local]1[/local][local]3[/local]

[此贴子已经被作者于2019-5-15 11:04编辑过]

运行时，主要提示该行出了问题：运行时错424，要求对象

 ActiveSheet.Cells(n, 14) = ActiveSheet.Cells(n, 12) * 86400