Excel VBA Run-time error 52

Excel VBA Run-time error 52
2021-04-17T11:53:55+02:00
2021-05-04T17:44:09+02:00
2022-10-15T21:25:52+02:00
amatore
Sziasztok,

Segítséget szeretnék kérni. Csv fájlok adatait szeretné importálni egy Excel fájlba. Nálam jól le is fut a makró, de a munkatársam a "Run-time error 52: Bad file name or number" hibaüzenetet kapja.

A makró az alábbiakban látható, és vastagítottam, ahol a hibaüzenet megjelenik.
Mi lehet a probléma?

Köszönöm szépen.
Üdv,



Sub ImportData()
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim wsTargett As Worksheet
        Set wsTargett = ActiveWorkbook.Sheets("csv")
    wsTargett.Visible = True
    Dim lrowt1 As Integer
        lrowt1 = wsTargett.Cells(Rows.Count, 1).End(xlUp).Row
    Dim frowt As Integer
        frowt = 2
 
'Import data
    Dim FOLDER_PATH As String
        FOLDER_PATH = Application.ActiveWorkbook.Path & ""
    Dim files As String
        files = Dir(FOLDER_PATH & "*.csv")
    Dim wbs As Workbook
    Dim wss As Worksheet
    
    Do While files <> ""
    
        Set wbs = Workbooks.Open(FOLDER_PATH & files, False, False, , , , True)
        Set wss = wbs.Sheets(1)
        Dim lrows As Integer
            lrows = wss.Cells(Rows.Count, 1).End(xlUp).Row
        Dim i As Integer
        For i = 2 To lrows
            If wss.Range("A" & i).Value <> "" Then
                wsTargett.Range("A" & frowt).Value = wss.Range("A" & i).Value
                wsTargett.Range("B" & frowt).Value = wss.Range("B" & i).Value
                wsTargett.Range("C" & frowt).Value = wss.Range("C" & i).Value
                wsTargett.Range("D" & frowt).Value = wss.Range("E" & i).Value
                If Left(wss.Name, 4) = "Star" Then
                    wsTargett.Range("E" & frowt).Value = "Starling Business Account"
                ElseIf Left(wss.Name, 4) = "Natw" Then
                    wsTargett.Range("E" & frowt).Value = "Natwest Account"
                Else
                    wsTargett.Range("E" & frowt).Value = wss.Name
                End If
                frowt = frowt + 1
            End If
        Next i
        wbs.Close SaveChanges:=False
        files = Dir()
           
    Loop
    Set wss = Nothing
    Set wbs = Nothing
    
    ActiveWorkbook.Sheets("csv").Visible = xlVeryHidden
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
 
End Sub
Mutasd a teljes hozzászólást!
Szia!
Nézd meg légy szíves a FOLDER_PATH változó értékét nálad és a munkatársadnál.
Ugyanis más az elválasztójel hálózaton (\) és más helyi gépen (/) a PATH-ban.
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd