| |
抜けてた所があったんで、二度目。
▼こじこじ さん：
>以下のように直してみたのですが
>MsgBox（対象ファイルがありません）が表示されます
>処理は最後までいってるってことですよね？
>台帳フォルダには３つぐらいファイルをおいてあるのですが・・・。
「以下のように直して．．」コードは消しましたが、
「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
|
|
Jaka
- 03/9/26(金) 11:51 -
