Re: Word dokument - otevrit beze stopy

From: Simona Trneckova <strnecka (zavinac)>
Date: Tue, 4 Sep 2007 08:36:36 +0200
Mam to na jednom radku, v mailu se to zalomilo, ale ve VB to mam dobre.....

Do bunek D1, D2 jsem to dala takto:

   D:\template.xls 22.srpna 2007, 8:00:00

Tim D2 si taky nejsem jista. Napsala jsem to jako text.




On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote:
>
> sa to asi zle zalomilo toto  daj na jeden riadok:
> Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME,
> writeTime As FILETIME, bRet As Long
>
>
> On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote:
> >
> > bunka d1 bez uvodzoviek a cela cesta napr:
> c:\windows\system32\notepad.exe
> >
> > On 9/3/07, Simona Trneckova <strnecka (zavinac) gmail.com > wrote:
> > >
> > > Bohuzel se mi to zastavilo pri "retrieve" na lince
> > >
> > > Private Sub GetIt(myFil As String)
> > > Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME,
> > > writeTime As FILETIME, bRet As Long
> > > hndFile = CreateFile(myFil, GENERIC_READ Or GENERIC_WRITE,
> > > FILE_SHARE_READ _
> > >     Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING,
> FILE_FLAG_BACKUP_SEMANTICS,
> > > 0&)
> > >     If hndFile = 0 Then Exit Sub
> > >     bRet = GetFileTime(hndFile, createTime, accessTime, writeTime)
> > >     Range("A1").Select ActiveCell = createTime.dwLowDateTime
> > >     ActiveCell.Offset(0, 1) = createTime.dwHighDateTime
> > >     ActiveCell.Offset(1, 0) = writeTime.dwLowDateTime
> > >     ActiveCell.Offset(1, 1) = writeTime.dwHighDateTime
> > >     CloseHandle hndFile
> > >     End Sub
> > >
> > > jako Compile Error  - Wrong number of arguments or invalid property
> > > assignment (Error 450) .
> > >
> > > Pricemz zluta sipka je na Private Sub GetIt(myFil As String), ale
> > > oznacene
> > > je .Select v casti
> > >
> > >
> > > Range("A1").Select ActiveCell = createTime.dwLowDateTime
> > >
> > >
> > >
> > > On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote:
> > > >
> > > > Takze najprv pokec,
> > > > do excelu do bunky d1 das nazov suboru
> > > >               do bunky d2 das datum a cas last accessed
> > > > potom spustis makro retrieve
> > > > (do buniek a1 az b2 sa ti nastavia hodnoty datumov cerated writed)
> > > > s kludom anglicana otvoris pozadovany subor .... skoncis so svojou
> > > > nelegitimnou pracou (naco inak by si musela menit datum last accesed
> > > ??
> > > > ;-)   )
> > > > a spustis makro setDate ....
> > > > eto vsjo
> > > > '------- start cut ----------------
> > > > Option Explicit
> > > >
> > > > Private Type FILETIME
> > > >        dwLowDateTime As Long
> > > >        dwHighDateTime As Long
> > > > End Type
> > > >
> > > > Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile _
> > > >    As Long, lpCreationTime As FILETIME, lpLastAccessTime As _
> > > >    FILETIME, lpLastWriteTime As FILETIME) As Long
> > > >
> > > > Private Declare Function GetFileTime Lib "kernel32" _
> > > > (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime
> As
> > > _
> > > > FILETIME, lpLastWriteTime As FILETIME) As Long
> > > > Private Type SYSTEMTIME
> > > >        wYear As Integer
> > > >        wMonth As Integer
> > > >        wDayOfWeek As Integer
> > > >        wDay As Integer
> > > >        wHour As Integer
> > > >        wMinute As Integer
> > > >        wSecond As Integer
> > > >        wMilliseconds As Integer
> > > > End Type
> > > >
> > > > Private Declare Function SystemTimeToFileTime Lib "kernel32" _
> > > >    (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
> > > >
> > > > Private Declare Function FileTimeToSystemTime Lib "kernel32" _
> > > >    (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
> > > >
> > > > Private Declare Function LocalFileTimeToFileTime Lib "kernel32" _
> > > > (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
> > > >
> > > > Private Declare Function FileTimeToLocalFileTime Lib "kernel32" _
> > > >    (lpFileTime As FILETIME, _
> > > >    lpLocalFileTime As FILETIME) As Long
> > > >
> > > > Private Declare Function CreateFile Lib "kernel32" _
> > > >   Alias "CreateFileA" _
> > > >   (ByVal lpFileName As String, _
> > > >   ByVal dwDesiredAccess As Long, _
> > > >   ByVal dwShareMode As Long, _
> > > >   ByVal lpSecurityAttributes As Long, _
> > > >   ByVal dwCreationDisposition As Long, _
> > > >   ByVal dwFlagsAndAttributes As Long, _
> > > >   ByVal hTemplateFile As Long) As Long
> > > >
> > > >
> > > > Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject
> As
> > > _
> > > >    Long) As Long
> > > >
> > > > Private Const OPEN_EXISTING = 3
> > > > Private Const FILE_ATTRIBUTE_NORMAL = &H80
> > > > Private Const GENERIC_READ = &H80000000
> > > > Private Const GENERIC_WRITE = &H40000000
> > > > Private Const FILE_SHARE_READ = &H1
> > > > Private Const FILE_SHARE_WRITE = &H2
> > > > Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
> > > > Private Const FILE_SHARE_DELETE As Long = &H4
> > > >
> > > > Private Sub GetIt(myFil As String)
> > > > Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME,
> > > > writeTime As FILETIME, bRet As Long
> > > > hndFile = CreateFile(myFil, GENERIC_READ Or GENERIC_WRITE,
> > > FILE_SHARE_READ
> > > > _
> > > >    Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING,
> > > FILE_FLAG_BACKUP_SEMANTICS,
> > > > 0&)
> > > > If hndFile = 0 Then Exit Sub
> > > > bRet = GetFileTime(hndFile, createTime, accessTime, writeTime)
> > > > Range("A1").Select
> > > > ActiveCell = createTime.dwLowDateTime
> > > > ActiveCell.Offset(0, 1) = createTime.dwHighDateTime
> > > > ActiveCell.Offset(1, 0) = writeTime.dwLowDateTime
> > > > ActiveCell.Offset (1, 1) = writeTime.dwHighDateTime
> > > > CloseHandle hndFile
> > > > End Sub
> > > > Private Sub SetIt(myFil As String)
> > > > Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME,
> > > > writeTime As FILETIME, st As SYSTEMTIME, ft As FILETIME
> > > > hndFile = CreateFile(myFil, GENERIC_READ Or GENERIC_WRITE,
> > > FILE_SHARE_READ
> > > > _
> > > >    Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING,
> > > FILE_FLAG_BACKUP_SEMANTICS,
> > > > 0&)
> > > > If hndFile = 0 Then Exit Sub
> > > > Range("A1").Select
> > > > createTime.dwLowDateTime = ActiveCell.Value
> > > > createTime.dwHighDateTime = ActiveCell.Offset(0, 1).Value
> > > > writeTime.dwLowDateTime = ActiveCell.Offset(1, 0).Value
> > > > writeTime.dwHighDateTime = ActiveCell.Offset(1, 1).Value
> > > > st.wYear = Format(Range("d2"), "YYYY") 'Year
> > > > st.wDay = Format(Range("d2"), "dd")  'Day
> > > > st.wMonth = Format(Range("d2"), "mm") 'Month
> > > > st.wHour = Format(Range("d2"), "hh") 'Hour
> > > > st.wMinute = Format(Range("d2"), "nn") 'Minute
> > > > st.wSecond = Format(Range("d2"), "ss") 'Second
> > > > SystemTimeToFileTime st, ft
> > > > LocalFileTimeToFileTime ft, accessTime
> > > >
> > > > SetFileTime hndFile, createTime, accessTime, writeTime
> > > > CloseHandle hndFile
> > > > End Sub
> > > >
> > > > Sub Retrieve()
> > > > GetIt (Range("d1").Text)
> > > > End Sub
> > > > Sub setdate()
> > > > SetIt (Range("D1").Text)
> > > > End Sub
> > > > '-------end cut ------------------
> > > >
> > > >
> > > > On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote:
> > > > >
> > > > > nie je to makro do excelu
> > > > > vo worde makra moc nemusim....
> > > > > pripravim a poslem sem ochvilku
> > > > >
> > > > > On 9/3/07, Simona Trneckova < strnecka (zavinac) gmail.com> wrote:
> > > > > >
> > > > > > Jako ze se pak projede ten soubor nejakym word makrem a nastavit
> > > tam
> > > > > > last
> > > > > > accessed na to, co tam bylo? Pokud je to tak, pak mam zajem :-)
> S
> > > word
> > > > > > makry
> > > > > > jsem jeste nepracovala, ale snad bych to zvladla - pokud jde jen
> o
> > > to
> > > > to
> > > > > > pustit....
> > > > > >
> > > > > >
> > > > > >
> > > > > > On 9/2/07, AleX < faklabrejle (zavinac) gmail.com> wrote:
> > > > > > >
> > > > > > > da sa to na programatorskej urovni napriklad aj cez vba,
> > > > > > > len ono si staci pozriet properties od suboru a last accessed
> sa
> > > > zmeni
> > > > > > > ak je o este aktualne poslem torzo kodu kt. som nasiel
> > > > > > >
> > > > > > > On 8/31/07, petr_xs <petr.xs (zavinac) volny.cz> wrote:
> > > > > > > >
> > > > > > > > Zmenit datum a cas v PC ?
> > > > > > > >
> > > > > > > > > To take zmeni properties - last accessed - toho dotycneho
> > > > souboru.
> > > > > >
> > > > > > > > >
> > > > > > > > > Asi to fakt nejde. Skoda.
> > > > > > > > >
> > > > > > > > > S
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > --
> > > > > > > > -----------------------------------------------------(
> reklama
> > >
> > > > > > )-----
> > > > > > > > KURZ POUZITELNOSTI WEBU (Cena 2.950 Kc bez DPH, Praha, 6.
> 9.,
> > > > 10:00)
> > > > > > > > Spousta navstevniku jeste nic neznamena, je potreba ziskat
> > > > > > zakazniky.
> > > > > > > > Naucte se zlepsit konverzni pomer webu diky lepsi
> > > pouzitelnosti.
> > > > > > > > http://www.dobryweb.cz/skoleni-pouzitelnost/?s-ser
> > > > > > > >
> > > > > >
> > > ---------------------------------------------------------------------
> > > > > > > > --
> > > > > > > > -- Konference: SERVIS ------ Pravidla:
> http://pravidla.kab.cz/--
> > > > > > > > -- Archiv, instrukce pro odhlaseni:
> http://internet.nawebu.cz/--
> > > > > > > > -- Konference Internet Info, s.r.o. -----
> http://www.iinfo.cz/--
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > >
> >
> >
>
Received on 04. 09. 2007, 08:36 CEST

This archive was generated by hypermail 2.2.0 : 04. 09. 2007, 08:36 CEST