关于excel的一个问题,可能要用到VBA,所有积分都给您!

发布网友发布时间：2023-09-20 06:23

共3个回答

热心网友时间：2024-11-24 01:08

亲，首先将你的统计文件和所有人的总结文件放在同一个文件夹中。

打开你的Excel统计文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub jcl()
Dim f, ff As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(ThisWorkbook.Path & "\")
Dim rg As Range
For Each rg In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each f In ff.Files
        If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
            If InStr(f.Name, rg.Value) > 0 Then rg.Offset(0, 1).Value = "是": Exit For Else rg.Offset(0, 1).Value = "否"
        End If
    Next f
Next
Set fso = Nothing
End Sub

追问Sub jcl()
Dim f, ff As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(ThisWorkbook.Path & "C:\Users\Administrator\Desktop\a")
…………
End Sub

我把我的文件夹的地址加上了，可是路提示“路径名为找到”

追答额……要这样指定文件夹：
Set ff = fso.getfolder("C:\Users\Administrator\Desktop\a\")

热心网友时间：2024-11-24 01:09

这个简单，我接受这个任务，一会发文件给你。
10 分钟做不好，先占位。你追问后我再发附件给你，可多得20分哈

热心网友时间：2024-11-24 01:09

提取表名，用函数最后获取结果