Middels VBA opslaan XLSM op eigen pc.

[Sytse1]

Middels VBA opslaan XLSM op eigen pc. Dan middels FTP verbinding op eigen site in XLS
Ik heb hiervoor de volgende code. (Het toegangs wachtwoord op de site heb ik niet in VBA kunnen maken.
Onderstaande code code werkt de eine keer uitstekend en de andere keer niet en dan steeds bij één van de drie opslag mogelijkheden.
Wellicht weet iemand of er meer in de code moet komen te staan.
De foutmelding is
Fout 1004 tijdens uitvoering
Methode SaveAs van object_Workbook is mislukt.
Bij voorbaat dank voor het meedenken.
Sytse

' Eerst gewoon opslaan in de huidige map
    ActiveWorkbook.Save

'Dan opslaan op de site
    ActiveWorkbook.SaveAs Filename:= _
        "ftp://jbvlelystad.nl/domains/jbvlelystad.nl/public_html/uitslagen/2013/Bpoule4test.xlsm" _
        , FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
    
 'Opslaan in HTM op de site
ActiveWorkbook.SaveAs Filename:= _
        "ftp://jbvlelystad.nl/domains/jbvlelystad.nl/public_html/uitslagen/2013/Bpoule4test.htm" _
        , FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

'en sluit de html
ActiveWorkbook.Close

 

[wampier]

Mogelijk krijg je een timeout op je saveas? Als in: de server reageert te traag op het ftp verzoek. In dat geval is er niet veel dat je kan doen. Als het een IO probleem is kun je proberen een "sleep" van een seconde tussen elke save te stoppen om excel wat meer tijd te geven de verschillende saves uit te voeren.

 

[Sytse1]

Bedankt voor je reactie.
Ga ik proberen.
Sytse

 

[Sytse1]

Sorry maar het "sleep"is onbekend bij VBA Excel.

 

[wampier]

Sleep moet je zelf even toevoegen met de volgende regel (buiten de sub! dus boven je eigen sub bijvoorbeeld):

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[Sytse1]

Ook met de timer zeg maar een pause en opnieuw activeren blijft het bij de opslaan dezelfde foutmelding geven. De foutmelding is af en toe bij een andere opslaan melding.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
ActiveWorkbook.Activate