Bestand openen en ergens anders opslaan

[koster1984]

Goedemiddag,

Ik heb een code waarmee ik een bestand selecteer:

a = Application.GetOpenFilename

Ik zou graag het bestand wat ik daarmee selecteer willen opslaan naar een andere locatie, bijvoorbeeld C:\Temp (ik noem maar wat). Is zoiets mogelijk?

Met vriendelijke groet,
Daniel

 

[edmoor]

Ja, met Workbook.SaveAs:
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.saveas

 

[koster1984]

Ja maar dan heb je het over een workbook, ik bedoel stel dat ik met bovengenoemde code een afbeelding, pdf of ander bestand selecteer. Kan ik dat dan ook ergens anders opslaan (of heen kopiëren)?

 

[edmoor]

Je kan het geselecteerde bestand kopiëren naar een andere lokatie:

FileCopy(Source,Destination)

 

[koster1984]

Ja dat klinkt inderdaad goed. Maar hoe gebruik ik het?

als ik het zo noteer, krijg ik hem niet door.

a = Application.GetOpenFilename
FileCopy(a, "C:\TEMP")

 

[edmoor]

Bijvoorbeeld zo:

Sub Kopieer()
    Dim Bestand() As String

    a = Application.GetOpenFilename
    Bestand = Split(a, "\")
    FileCopy a, "C:\TEMP\" & Bestand(UBound(Bestand))
End Sub

 

[koster1984]

Nice! Dankjewel Ed