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

• #46659 the radish senior tag

  Új Válasz 2021-05-12 08:21:02 #46659

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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