|
抜けてた所があったんで、二度目。
▼こじこじ さん:
>以下のように直してみたのですが
>MsgBox(対象ファイルがありません)が表示されます
>処理は最後までいってるってことですよね?
>台帳フォルダには3つぐらいファイルをおいてあるのですが・・・。
「以下のように直して..」コードは消しましたが、
「MsgBox(対象ファイルがありません)が表示されます」
直されたコードは、エラーになって動かないと思いますが...。
本当にMsgBoxが表示されるんでしょうか?
私のポカもありますが、ちゃんと読んでますか?
FidNameの間違いも直してないみたいだし。
Sub ボタン1_Click()
Dim FldName As String, FalName As String, CelA1 As String
Dim Cnt As Long
FldName = "C:\work\台帳\"
If Dir(Left(FldName, Len(FldName) - 1), vbDirectory) = "" Then
MsgBox "フォルダがありません。"
End
End If
FalName = Dir(FldName)
Do Until FalName = ""
If Right(FalName, 3) = "xls" Or Right(FalName, 3) = "XLS" Then
Cnt = Cnt + 1
CelA1 = Application.ExecuteExcel4Macro("'" & FldName & "[" & FalName & "]農道台帳(調書)'!R4C14")
Name FldName & FalName As FldName & Format(CelA1, "000") & ".xls"
End If
FalName = Dir()
Loop
If Cnt = 0 Then
MsgBox "対象ファイルがありません"
End If
End Sub
|
|