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

• #30075 sztanozs veterán Ricardo128 #30070

  Új Válasz 2016-01-08 11:50:06 #30075

  Ú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

  

  sztanozs

  veterán

  válasz Ricardo128 #30070 üzenetére

  command line-ba (WIN+R + cmd):
  cd /D könvtár_elérési_útja
  dir *.jpg *.jpeg *.png | clip

  utána paste-vel beilleszted az excelbe

• #30074 Grodd tag Ricardo128 #30070

  Új Válasz 2016-01-08 09:20:27 #30074

  Ú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

  

  Grodd

  tag

  válasz Ricardo128 #30070 üzenetére

  Ha fent van a power query, akkor új lekérdezés->fájl->mappa ( ha nincs fent, akkor javaslom, tedd fel, mert anélkül nem sokat ér az excel, minden vacakhoz makró kell)
  Excel 2016-hoz és 365-höz már nem kell felrakni, alapból mele van integrálva.

• #30071 Delila_1 veterán Ricardo128 #30070

  Új Válasz 2016-01-08 08:01:28 #30071

  Ú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

  

  Delila_1

  veterán

  válasz Ricardo128 #30070 üzenetére

  Sub MappaLista()
  Dim utvonal As String, sor As Long, FN As String
  
  Sheets("Munka1").Select 'Erre a lapra másoljon *****
  Columns(1) = ""
  utvonal = "C:\Főmappa\AlMappa\AlAlMappa\" 'Ebből a könyvtárból *****
  ChDir utvonal
  sor = 1
  FN = Dir(utvonal)
  Do While FN <> ""
  Cells(sor, 1) = FN
  sor = sor + 1
  FN = Dir()
  Loop
  End Sub

  Ez a makró a "C:\Főmappa\AlMappa\AlAlMappa\" mappából bemásolja a fájlok címét kiterjesztéssel a Munka1 lap A oszlopába. Csillagokkal jelöltem, amit át kell írnod a saját értékeidre (útvonal, lap neve).

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