EXCEL Seznam datotek v drugem direktoriju.

brane_new

Guru
10. feb 2008
16.370
2.559
113
Program nam generira excel datotko - zbir podatkov - meritev in jih spravlja na direktorij. vsako s svojim imenom -ni ključa za ime.
Sedaj bi pa rad vse te podatke združil v en excel - pregled nad vsemi meritvami v vseh datotekah na direktoriju.
Nekaj takega imam v glavi - poženem excel, (ta prebere vsebino direktorija za datotekami in iz vseh pobere podatkein jih da v eno preglednico/list - po stolpcih, vrsticali vseeno).
Ena VBA koda se mi je pokazala na GOOOGLE, ampak mi ne dela. Nisem glih trd ko diamant, ampak rabi pomoč.
KODA*
Sub main()
Dim objFSO As Object
Dim objFSO2 As Object

Dim objFolder As Object
Dim objFolder2 As Object
Dim objSubFolder As Object
Dim objSubFile As Object
Dim i As Integer
‘This is the path to the directory
Dim PATH As String
‘The directory path
PATH = “D: Data”
‘Create an instance of the FileSystemObject
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘Get the folder object
Set objFolder = objFSO.GetFolder(PATH)
i = 1
‘loops through each file in the directory and prints their names and path
For Each objSubFolder In objFolder.subfolders
Set objFSO2 = CreateObject(“Scripting.FileSystemObject”)
Set objFolder2 = objFSO2.GetFolder(PATH + “” + objSubFolder.Name)
For Each objSubFile In objFolder2.Files
‘objSubFile will iterate through all the files in the sub folder
Next objSubFolder
Next objSubFolder
End Sub
End Sub
 

jurek1973

Guru
3. sep 2007
4.115
1.055
113
Kaj pa če najprej narediš eno csv datoteko s seznamom datotek,
pa to odpreš v excelu in naprej obdeluješ?

dir /s /b *.txt >> seznam.csv
 

brane_new

Guru
10. feb 2008
16.370
2.559
113
Datoteko naredi excel.
CSV za direktorji bi bil možen, vendar uporabniki niso tako vešči, mene pa ne bo vedno "zraven"
Vsak dan(!) bo 21 takih Excelov. Grem naprej z vašo pomočjo.
 

jurek1973

Guru
3. sep 2007
4.115
1.055
113
Pa napišeš eno BAT datoteko, ki naredi seznam, potem pa odpre en excel, ki ta seznam obdela.
 

brane_new

Guru
10. feb 2008
16.370
2.559
113
Našel eno rešitev, zadovoljivo dela.
Sedaj je drug problem. Imam ime datoteke-se spreminja, imam pot do te/teh datotek-fiksno, ne morem in ne znam
pa narediti sklicevanje na to datoteko/celico, da dobim vrednost. INDIRECTne deluje.
@jurek: hvala, ampak za moje znanje prekomplicirano. Kaj šele za moje sodelavce
smile-1.gif
 

Kolimero

Pripravnik
22. apr 2013
185
0
16
Da ne odpiram nove teme, bom kar tu vprašal. Kako bi nastavil celico, katera bi se v primeru negativnega zneska obarvala rdeče?
Recimo da seštevam celici a1 + a2 in dobim znak -5. Kako nastaviti, da se celica obarva rdeče?
Hvala za pomoč.
 

brane_new

Guru
10. feb 2008
16.370
2.559
113
Ja, moja rešitev je naredila 45 Mb velik fajl. Brez podatkov, samo formule.
Stvar gre v slabo stran. Preveč zapisov in preračunanj.
Problem dela ?.?lookup. Pri vrivanju vrstice se mi ne spreminja številka, ki definira celico v kateri so podatki!
V glavnem sranje. Slaba zasnova
frown-1.gif
 

brane_new

Guru
10. feb 2008
16.370
2.559
113
Ja je videti, da sem sam. Verjetno - zagotovo zaradi slabo razloženega primera.
Torej stvar porihtal. Laufa v nulo.
Problem je samo velik fajl. Sedej je samo 15 Mb
Mislim, da bo šlo, ker namesto 10 starih datotek/variant sem vse spravil v eno datoteko.
Pa še formule računajo pravilno.
Imam pa bolečine v hrbtu, ker malce bolj pokončno hodim.