VBA - Kopier fra ark

Hos mig virker det upåklageligt, så kan du ikek lige forklare, hvad der er, der ikek fungerer hos dig?

Må indrømme jeg heller ikke forstår, hvorfor det ikke vil virke. Min kode er således:

Private Function IndlasTSP() As String

    Dim Fil As Variant
   
            Fil = Application.GetOpenFilename(Filefilter:="TSP (*.tsp), *.tsp", _
          Title:="Vælg den fil, der skal indlæses")
         
          If Fil = "" Or Fil = False Then
          IndlasTSP = ""
        MsgBox "Programmet afbrydes, da der ikke blev valgt en fil!", _
        vbOKOnly + vbCritical, "Programmet afbrydes"
          Else
          IndlasTSP = Fil
    End If
   
    Workbooks.Open Filename:=Fil, Format:=3
   
    With ActiveWorkbook
    .Sheets(1).UsedRange.Copy Destination:=ThisWorkbook.Sheets(2).Range("A1")
    End With

End Function

Kan i den forbindelse heller ikke forstå hvorfor den fil der bliver indlæst navngiver det nye ark i både faneblad og filtitel.

Hvad er det, som ikke fungerer?

Det er den nederste del, hvor koden stopper når jeg forsøger at køre den. Altså fra With af.

Hvad eren tsp fil? Muligvis understøtter denne filtype ikke

With ActiveWorkbook

Din kode virker perfekt hos mig, hvis jeg åbner en xls fil.

Tsp svarer til en txt fil. Men det er ikke formatet af filen der er vigtig.

Det undrer mig at det virker hos dig... Forstår nemlig ikke at den ikke virker hos mig...

Hej.

Det er ikke tilstrækkeligt at du fortæller, at "koden ikke virker". Fortæl helt præcist hvad der sker. På hvilken linje opstår der fejl, og hvad er fejlmeddelelsen?
Læg evt. din .xlsm fil online, så andre kan downloade den og køre koden

Faktisk har jeg lige fået det til at fungere. Problemet lå i at jeg havde det i en sub jeg havde kaldt function, fordi jeg benyttede modularisering. Nu har jeg samlet det hele i én sub og nu fungerer det.

MANGE tak for hjælpen med dette spørgsmål!

jkrons vil du udbede dig et svar, så du kan få points. Du skal have tak for din tid og dine forsøg.

Et svar :-)