< návrat zpět
MS Excel
Téma: Vyhľadávanie a import z txt cez VBA 
Zaslal/a Cedrom 31.12.2014 16:31
Zdravím,
Dostal som úlohu, z ktorou sa trápim už nejakú hodinu...
Podnik má firemnú sieť, na ktorej majú určitý počet MS Excel súborov, ku ktorým pristupuje značný počet uživateľov cca 100 a vždy 1súbor môže mať otvorený na zápis len 1 uživateľ (logicky). Teraz chcú vedieť, kto konktrétne. Vyriešil som to ukladaním hodnôt (názov súbora, kto a kedy) cez txt súbor (viď príloha), kde sa mi nová hodnota ukladá vždy na koniec. Problém je, že opätovne načítavanie nemôžem riešiť cez list zošita, ale len cez premenné VBA. Základ je, že potrebujem nájsť hodnoty po riadkoch, porovnať posledný zápis z názvom súbora (práve otvoreným) a pri zhode zobraziť údaje z riadka.
Dim sValue As String
Dim myFile As String
Dim intFNumber As Integer
Dim lRow As Long
Dim lColumn As Long
Dim vData As Variant
Dim intCount As Integer
myFile = "O:\DIR\OTVOR_Doch.txt"
intFNumber = FreeFile
On Error Resume Next
Open myFile For Input As #intFNumber
If Err.Number <> 0 Then
MsgBox "Nie je nič!", vbCritical, "Error!"
Exit Sub
End If
On Error GoTo 0
'First row for data
lRow = 1
'Loop until the end of file
Do While Not EOF(intFNumber)
'Read data from file
Line Input #intFNumber, sValue
vData = Split(sValue, vbTab)
Loop
Close #intFNumber
Zatiaľ mám toto. Lenže po čase som zistil, že údajov v txt súbore je tak veľa že hľadanie je značne problematické. Znalý programovania, máte z tým niekto skúsenosti viete poradiť ako na to? Aspoň "nakopnutie" by pomohlo...Vďaka!
Příloha: 
22929_otvor_doch.txt (1kB, staženo 42x)
elninoslov(11.1.2015 11:11)#023084 
Kvôli tebe som si narýchlo urobil virtuálnu sieť. A bohužiaľ, na disku sa to správa tak ako má. Na sieti do toho vstupuje systém alebo Excel, natívnym upozorňovaním na otvorený súbor. Táto natívna featurka navyše podľa netu obsahuje bug, keďže nezobrazuje vždy korektné meno. My by sme potrebovali túto featurku (Lock Open File PopUp Message) vypnúť. Preštudoval som už niekoľko ENG fór, no zatiaľ som na nič poriadne nanarazil. Rôzne rady s odstraňovaním vlastníka súboru, vypínanie FileInfo Popup Message (neviem kde), ešte nejakej fnc, ktorej 3-písmennú skratku si nepamätám... Keď bude viac času, ešte pohľadám.
citovatBill(20.1.2018 9:24)#039163 
Ahojte,
Riešim podobný problém ako v tomto vlákne. Vo firme máme sieť, na ktorej máme zaheslované súbory (excel, word-2010). Ak niekto takýto súbor má OTV. na zápis, tak druhému sa automaticky OTV. ReadOnly. Je nejako možné rozlíšiť takto otvorený súbor od toho, keď dobrovoľne vyberiem možnosť ReadOnly cez tlačítko pri otváraní. Potrebujem zobrazovať správu (cez VBA) len tým, ktorí si otv. súbor na čítanie "nedobrovoľne". Tu sa to nedoriešilo, ani na nete som nič nenašiel. Dopredu ďakujem za podnety...
citovat
RSS nejnovější články