[VBA/Excel] Bestand overschrijven bij opslaan met macro*

[rob1985]

He

ik heb een excel bestand waar ik een aantal macro's in heb gemaakt. Ik wil dat na de macro uit te voeren, de file meteen wordt opgeslagen. Hiervoor heb ik even een testmacro gemaakt (om niet meteen m'n andere macro's in de soep te laten lopen), maar als ik die uitvoer, dan vraagt ie steeds over ik het reeds bestaande bestand wil overschrijven. In mijn geval moet het antwoord altijd JA zijn.

Ik heb al een beetje op google gezocht, maar de opties die ze daar aangeven werkten niet Of ik doe het fout!!

Zo ziet de test macro er iig uit:

code:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 13-3-2006 door xxxxxxxx.
'
' Sneltoets: CTRL+w
'
    ActiveWorkbook.Save
    ChDir "C:\ftp"
    ActiveWorkbook.SaveAs Filename:="C:\backup\excel.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
            ChDir "G:\"
    ActiveWorkbook.SaveAs Filename:="G:\excel.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
        
        End Sub

Hij moet dus altijd het bestaande bestand gewoon overschrijven

[NMe]

Vragen met betrekking tot VBA en andere zaken die te maken hebben met Office mogen in Officesuites en -software. Zie ook Waar hoort mijn topic?.

PRG>>OFF

[RaZ]

Waarom niet gewoon save, ipv saveas?

Excel vraagt ook nooit op of je wilt overschrijven als je een huidig sheet opslaat. Als dat ding reeds open is, is een save meer dan genoeg.

Deze dus: ActiveWorkbook.Save

[ Voor 9% gewijzigd door RaZ op 13-03-2006 23:11 ]

[Anoniem: 106551]

Waarom gebruik je trouwens niet Workbook.Save ? Dat zou toch automatisch het bestaande bestand moeten overschrijven ?

[rob1985]

Als ik het SaveAs commando verander (in beide regels) in Save, dan krijg ik de foutmelding:

code:

Compileerfout:
Onjuist aantal argumenten of ongeldige eigenschapstoewijzing

[RaZ]

Je moet ook niet SaveAs veranderen in Save
Enkel: ActiveWorkbook.Save

Wacht, dat doe je trouwens al, maar je wil dus 2 copy'en elders hebben. Ik pak mijn code er ff bij, ff geduld..

Edit:

code:

Private Function FileExists(fname) As Boolean
'   Returns TRUE if the file exists
    Dim x As String
    x = Dir(fname)
    If x <> "" Then FileExists = True _
        Else FileExists = False
End Function

If FileExists(DBFDestDir & "\Export.dbf") = True Then
    Kill DBFDestDir & "\export.dbf"
End If

Je kan dus beter gewoon opslaan, dan de 2 copy'en killen, en een filecopy neerzetten.

Bovenstaande code zal je nog ff moeten bewerken hoor, direct uit mijn macro gehaald.

[ Voor 156% gewijzigd door RaZ op 13-03-2006 23:29 ]

[rob1985]

idd, 2 copy's

Maar je macro werkt!
thanks!!!