Toon posts:

Automatisch "yes" op elk volgende vraag(VBA)

Pagina: 1
Acties:

Verwijderd

Topicstarter
Is het mogelijk om bij onderstaande commands een parameter aan te geven dat automatisch "yes" geeft om elk volgende vraag...?
Deze commands vragen of ik zeker weet dat het bestand wil overschrijven!


ActiveWorkbook.SaveAs Filename:="H:\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\...Desktop\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Quit

  • elnino
  • Registratie: Augustus 2001
  • Laatst online: 03-09 05:13
Je zou kunnen checken of het bestand bestaat, zo niet voer je deze bewerking uit, zo ja doe je dat niet...

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Of het volgende gebruiken:
code:
1
2
3
4
5
6
7
8
9
10
11
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="H:\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\...Desktop\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Quit

Application.DisplayAlerts = True

succes ;)

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


Verwijderd

Topicstarter
Op woensdag 17 oktober 2001 15:06 schreef BtM909 het volgende:
Of het volgende gebruiken:
code:
1
2
3
4
5
6
7
8
9
10
11
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="H:\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\...Desktop\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Quit

Application.DisplayAlerts = True

succes ;)
Dit werkt, thanx.
Ben weer een blij man >:)