0

VBA コードの一部についてヘルプを探しています。一部の PC では問題なく動作しますが、私の場合はまったく動作しません。エラーは返されませんでした。誰かが何か間違っている可能性がある場合は、私に知らせてください。

fn = Dir(ThisWorkbook.Path & "\*.xl*")
Do While ((fn <> "") And (Not (fn Like "*Inside*")))

    Range("B4").value = fn

    Call setCorrectValues

    fn = Dir()
Loop
4

1 に答える 1

0

最近、いまいましい Dir 関数で問題が発生しました。これを試して：

Dim objFSO As Variant
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim FolderName As String
FolderName = ThisWorkbook.Path

Dim objFolder As Variant
Set objFolder = objFSO.GetFolder(FolderName)
Debug.Print objFolder.Path

Dim objFiles As Variant
Set objFiles = objFolder.Files
Dim objFile As Variant
For Each objFile In objFiles
    Debug.Print objFile.Name
    If Not (fn Like "*Inside*.xls") Then
        Range("B4").Value = fn
        Call setCorrectValues
        Exit For
    End If
Next
于 2013-09-11T12:59:46.317 に答える