Private Sub CommandButton1_Click()
Dim i As Long
Dim sPath As String, sTxt As String
i = 0
sPath = ThisWorkbook。
Path & "\" '设置路径
Columns(1)。Clear '清除第一列数据
sTxt = Dir(sPath & "*。xls") '读当前文件夹下的第一个文件
Do While sTxt <> "" '循环
If sTxt <> ThisWorkbook。
Name Then '如果名称不=本文件
i = i + 1
Cells(i, 1) = sTxt '在第一列中写上文件名
End If
sTxt = Dir '读下一个文件名
Loop
MsgBox "处理了" & i & "个文件。
"
End Sub
把这个文件放到你的文件夹中就行！！
。
答：设置离开办公室 当您休假的时候您可以在邮件里设置 “离开办公室”。这样在您休假或出差的这段时间里，您的邮箱就会自动给发信的人回复，通知他您已经出差或休假，以免耽...详情>>
