Hirdetés

Új hozzászólás Aktív témák

  • the radish

    senior tag

    Sziasztok!

    Van egy, általában dátummal, de van mikor sorszámmal változó nevű fájl, amit alábbi módon nyitok meg:
     With fd
            .Filters.Clear
            .Title = "Készlet megnyitása"
            .Filters.Add "Excel Files", "*.xlsx?", 1
            .AllowMultiSelect = False
            .InitialFileName = "*készlet*"
            Dim sFile As String
        
            If .Show = True Then
                sFile = .SelectedItems(1)
            End If
        End With
        If sFile <> "" Then
           Workbooks.Open sFile     ' Open the Excel file.
        End If

    Ezután az A:D oszlopokat kéne átmásolnom a jelenlegi, "Nyilvántartás.xls" fájlba, majd a készlet_xxxx.xls fált bezárni, de épphogy ezen fájl változó neve miatt elakadtam.
    Mi lehet a mehgoldás?
    Előre is köszönöm!

Új hozzászólás Aktív témák