这个怎么不行了，请大家帮我看一看

jhc790609 · 发表于 2011-3-18 11:05

Option Explicit

Private Sub CommandButton1_Click()
Dim xlsFile As String
xlsFile = Dir(ActiveWorkbook.Path & "\*.DAT")
Do
If InStr(1, xlsFile, "名册") = 0 Then
Cells(([A65536].End(xlUp).Row + 1), 1) = xlsFile
End If
xlsFile = Dir
Loop Until Len(xlsFile) = 0
End Sub

[ 本帖最后由 jhc790609 于 2011-3-18 11:06 编辑 ]

likun1005 · 发表于 2011-3-18 11:08

以为自己能看得懂，原来我还是菜鸟

jhc790609 · 发表于 2011-3-18 11:11

		自动登录	找回密码
密码			免费注册

[求助] 这个怎么不行了，请大家帮我看一看