-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
zsolti_20
senior tag
válasz
Fferi50 #44634 üzenetére
Szia! Sajnos a filenak maradnia kell a mappában, mert bárki más lekérdezheti a későbbiekben automatizálás nélkül is.
Egy FTP szervert indítottam a PC-n és egy mappát adtam meg FTP mappának. Erről a PC-ről tudja majd mindenki lekérdezni a file tartalmát amikor akarja.
Arra gondoltam, hogy lenne mondjuk TEST1 és TEST2 file. A TEST1 file a 10 percenként beérkező file a TEST2 pedig a beérkezés után 2 perccel automatikus létrehozott másolat.
A TEST2 fileból kérdezni le mindenki, mert lehet másolás közben nem esik szét a file annyira mint amikor a letöltéskor jön létre.
Vagy van egy másik ötletem, az egész file formátumát átalakítom .csv-re ami szinte már csak TEXT file és lehet ott nem lesz semmi probléma. -
Delila_1
veterán
válasz
Fferi50 #44634 üzenetére
A módosítás időpontja is lekérdezhető. Ímé pár adat lekérdezése:
Sub info()
Dim fn, size, crdat, uhf, um, fs, lapn
fn = ThisWorkbook.FullName
lapn = ActiveSheet.Name
Set fs = CreateObject("Scripting.FileSystemObject")
Set fn = fs.GetFILE(fn)
size = Format(fn.size, "# ##0")
crdat = fn.DateCreated
uhf = fn.DateLastAccessed
um = fn.DateLastModified
With Sheets(lapn)
.Cells(1, 1) = "Útvonal, név: " & fn
.Cells(2, 1) = "Méret: " & size / 1024 & " KB (" & size & " bájt)"
.Cells(3, 1) = "Létrehozva: " & crdat
.Cells(4, 1) = "Utolsó hozzáférés: " & uhf
.Cells(5, 1) = "Utolsó módosítás: " & um
End With
End Sub
Új hozzászólás Aktív témák
- Samsung Galaxy A54 - türelemjáték
- World of Tanks - MMO
- Luck Dragon: Asszociációs játék. :)
- Óra topik
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- iPhone-t használók OFF topikja
- Milyen videókártyát?
- Milyen notebookot vegyek?
- Kerékpárosok, bringások ide!
- További aktív témák...
- GYÖNYÖRŰ iPhone Xs Max 256GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3537, 100% Akkumulátor
- HIBÁTLAN iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3392, 94% Akkumulátor
- Lenovo ThinkPad T14s Gen 3 i5-1245U 14" FHD+ 16GB 512GB 1 év teljeskörű garancia
- Garmin Forerunner 405 GPS óra
- HP ZBook Power 15 G8 Mobile Workstation i7-11850H 32GB 1000GB Nvidia RTX A2000
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest