Aktív témák

• #96 Jester01 veterán picsu #94

  2005-12-03 19:29:22 #96

  Ö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

  

  Jester01

  veterán

  válasz picsu #94 üzenetére

  Ez elég egyszerû feladat, bár a gépnek is el fog tartani mire megnyitogatja a 12000 fáljt...
  Sajna most egyetlen elérhetõ gépen sincs excel, szóval nem tudom megcsinálni neked.
  De ilyesmi lenne:
  

  
     Dim fso, f, f1, i
     Set fso = CreateObject(''Scripting.FileSystemObject'')
     Set f = fso.GetFolder(folderspec)
     Set fc = f.Files
     i = 0
     For Each f1 in fc
        i = i + 1
        Workbooks.Open f1.Name
        ThisWorkbook.ActiveSheet.Cells(0, i) = Cells(x, y)
        ActiveWorkbook.Close
     Next
  

  
  
  Az x,y a fix cella ahonnan olvasni akarsz. Ez így vszg nem mûködik, de kiindulási alapnak sztm jó.

Aktív témák