맥북 엑셀 VBA .Show Run-time error

게시물 수정 , 삭제는 로그인 필요

안녕하세요. 

하기와 같이 맥북 엑셀에서 VBA 스크립트를 찾아서 사용하려고 시도중에 있습니다.

문제는 "."으로 시작되는 스크립트들이 실행되지 않습니다. 혹시 이에대한 해결 방법이 있는지 찾고 있습니다. 도와주십시오 ㅠㅜ

Run-time error "91": Object variable or With block variable not set

Option Explicit

Sub ImportTxt()

    Dim c As Range

    Dim FilePath As String, FileName As String

    Dim data As String

    Dim i As Integer, FileNum As Integer

    Dim arr

    

    Set c = Sheet1.Range("a1")

    Sheet1.Cells.Clear

    

    With Application.FileDialog(msoFileDialogFolderPicker)

       .Show <- 에러 발생

        If .SelectedItems.Count = 0 Then

            Exit Sub

        Else

            FilePath = .SelectedItems(1) & "\"

            

        End If

    End With

    

    FileName = Dir(FilePath & "*.pldt")

    If FileName = "" Then

        MsgBox "No log file exist"

        Exit Sub

    End If

    

    Do While FileName <> ""

                

                FileNum = FreeFile

                Open FilePath & FileName For Input As FileNum

                

                Do Until EOF(FileNum)

                    Line Input #FileNum, data

                    

                    arr = Split(data, ",")

                    c.Offset(i).Resize(1, UBound(arr) + 1) = arr

                    i = i + 1

                Loop

                Close #FileNum

                FileName = Dir

                

    Loop

               

    c.CurrentRegion.Columns.AutoFit

        

End Sub