---

Hvordan kopierer man en åben fil i Excel via VBA.
Normalt vil man bruge FileCopy, men den virker ikke på en åben fil. I Word
buger man så WordBasic.CopyFile eller CopyFileA.
Men hvad gør man i Excel?

Jeg bruger Office 2000

Mvh Mads

---

Mads Knudsen skrev i
<news:3f452752$0$97254$edfadb0f@dread12.news.tele.dk>:

> Hvordan kopierer man en åben fil i Excel via VBA.

Hvis der ikke kommer svar her, så kan du prøve om
der mon ikke er en enten i regneark gruppen som har
prøvet det, ellers en der ved noget om vba i basic
programmerings gruppen.

Jane

---

"Mads Knudsen" <mads.knudsen@NoSpamprivat.dk> skrev i en meddelelse
news:3f452752$0$97254$edfadb0f@dread12.news.tele.dk...
>
> Hvordan kopierer man en åben fil i Excel via VBA.
> Normalt vil man bruge FileCopy, men den virker ikke på en åben fil. I Word
> buger man så WordBasic.CopyFile eller CopyFileA.
> Men hvad gør man i Excel?
>
> Jeg bruger Office 2000
>

Prøv med:

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "filnavn.xls", "nytfilnavn.xls"

Ligger dine filer ikke i Standardstien, skal du angive hele stien, fx

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\test\kopieres.xls", "d:\hertil\erkopieret.xls"

Jan

---

"Jan Kronsell" <kronsell(nospam)@adslhome.dk> wrote in message
news:3f4544ce$0$5190$edfadb0f@dread11.news.tele.dk...
> Prøv med:
>
> Set fs = CreateObject("Scripting.FileSystemObject")
> fs.CopyFile "filnavn.xls", "nytfilnavn.xls"
>
> Ligger dine filer ikke i Standardstien, skal du angive hele stien, fx
>
> Set fs = CreateObject("Scripting.FileSystemObject")
> fs.CopyFile "c:\test\kopieres.xls", "d:\hertil\erkopieret.xls"

Det virker. Jeg takker.

Mvh Mads

---

> Det virker. Jeg takker.
>
Velbekomme

Jan