|
すいません、新規投稿のほうは消しておきます。
以下のように直してみたのですが
MsgBox(対象ファイルがありません)が表示されます
処理は最後までいってるってことですよね?
台帳フォルダには3つぐらいファイルをおいてあるのですが・・・。
Sub ボタン1_Click()
Dim FldName As String
Dim FalName As String
Dim CelA1 As String
Dim Cnt As Long
FldName = "C:\work\台帳\"
FalName = Dir(FldName)
'Set fs = Application.FileSearch
' With fs
'.LookIn = FldName
'.Filename = "*.XLS"
Do Until FalName = ""
Cnt = Cnt + 1
Right(FalName, 3) = "xls" Or Right(FalName, 3) = "XLS"
CelA1 = Application.ExecuteExcel4Macro("'" & FldName & "[" & FalName & "]農道台帳(調書)'!R4C14")
Name FldName & FldName As FidName & Format(CelA1, "000") & ".xls"
FalName = Dir()
Loop
If Cnt = 0 Then
MsgBox "対象ファイルがありません"
End If
End Sub
|
|