/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Flytte word dokumenter vhj. VBA
Fra : Javid


Dato : 03-12-02 16:01

Jeg har lavet følgende makro, ved at indtaste sine initialer(User),
finder de dokumenter der er oprettet af den pågældene userinitialer. Det
fungerer fint. Det jeg nu mangler er at kunne kopiere/flytte dem til (i
forvejen oprettet) mappe med samme initialer.

Sub Flyt()
Dim intcount
Dim svar As String
Dim initi As String
svar = InputBox("Indtast dine initialler?", "Initialler...")

'svar = Application.UserInitials
ChangeFileOpenDirectory ("P:\")
With Application.FileSearch
.LookIn = "P:\"
.Execute
.FileType = msoFileTypeWordDocuments

If Application.UserInitials = svar Then
MsgBox " OK. "
Else
MsgBox "Der er ingen filer."
Exit Sub
End If


If .Execute() > 0 Then
MsgBox "Der er fundet ialt " & .FoundFiles.Count & " filer
operettet af " & Application.UserInitials & "."
For intcount = 1 To .FoundFiles.Count
MsgBox "Navnet på dem er følgende: " & .FoundFiles(intcount)
initi = .FoundFiles(intcount)
Next intcount

End If
End With
End Sub

Jeg har søgte efter den i hjælpen. Jeg kan simplethen ikke finde ud af
det.

Er der nogen, der har en forslag.
Hilsen

Javid

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


 
 
pre (03-12-2002)
Kommentar
Fra : pre


Dato : 03-12-02 19:36

Mit allerbedste råd til dig er at du henvender dig direkte til en eller
flere nyhedsgrupper med dit problem. Derved får du kontakt
med en stor gruppe af brugere, som alle hylder det gode gamle "Peer to
Peer" princip hvor man gratis og uforpligtende hjælper
hinanden med at løse diverse problemer.
Det fine i ordningen er både mangfoldigheden og den gensidige kontrol
med at løsningerne er korrekte - utrolig mange øjne følger
med - utrolig mange er parate til at komme frem med erfaringer/viden.

Men ingen er interesserede i at "guldkornene" havner i en eller anden
database, med risiko for en merkantil udnyttelse. Ingen er
interesserede i at arbejde anonymt udenfor grupperne.
Så hvis du savner respons, så er det forklaringen. Der kan selvsagt være
en der har en voldsom skrivekløe - så er spørgsmålet bare
om indholdet er mere værd end kløen.
--
pre

"Javid" <Javid.news@kandu.dk> wrote in message
news:pv3H9.55085$HU.3721322@news010.worldonline.dk...
> Jeg har lavet følgende makro, ved at indtaste sine initialer(User),
> finder de dokumenter der er oprettet af den pågældene userinitialer.
Det
> fungerer fint. Det jeg nu mangler er at kunne kopiere/flytte dem til
(i
> forvejen oprettet) mappe med samme initialer.
>
> Sub Flyt()
> Dim intcount
> Dim svar As String
> Dim initi As String
> svar = InputBox("Indtast dine initialler?", "Initialler...")
>
> 'svar = Application.UserInitials
> ChangeFileOpenDirectory ("P:\")
> With Application.FileSearch
> .LookIn = "P:\"
> .Execute
> .FileType = msoFileTypeWordDocuments
>
> If Application.UserInitials = svar Then
> MsgBox " OK. "
> Else
> MsgBox "Der er ingen filer."
> Exit Sub
> End If
>
>
> If .Execute() > 0 Then
> MsgBox "Der er fundet ialt " & .FoundFiles.Count & " filer
> operettet af " & Application.UserInitials & "."
> For intcount = 1 To .FoundFiles.Count
> MsgBox "Navnet på dem er følgende: " & .FoundFiles(intcount)
> initi = .FoundFiles(intcount)
> Next intcount
>
> End If
> End With
> End Sub
>
> Jeg har søgte efter den i hjælpen. Jeg kan simplethen ikke finde ud af
> det.
>
> Er der nogen, der har en forslag.
> Hilsen
>
> Javid
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste