Openen Excel Document op verschillende computers

[Lerac]

Om te beginnnen heb ik een script gemaakt die automatisch mails genereerd in outlook. Deze functioneerd zeer goed en zonder problemen. Ik kwam echter tegen het probleem aan dat indien een bepaalde gegeven in Excel draaitabellen niet bestaan pakt het de eerstvolgde of het laatst zichtbare. Dit probleem kon omzeild worden door de draaitabel te sluiten en opnieuw te starten. Daarvoor heb ik de onderstaande script gemaakt. Gek genoeg krijg ik tijdens het runnen van de onderstaande script een error dat het de gegeven pad niet kan vinden. Ik weet niet of er een andere script is die ervoor kan zorgen dat indien de eerste pad niet bestaat hij naar de volgede pad gaat zoeken enz....totdat er geen paden zijn en vervolgens de draaitabel afsluit.

Als iemand mij opnieuw zo geweldig zou kunenn helpen als gisteren zou ik hem/haar zeer erkentelijk zijn (beschaafd he ) Alvast bedankt voor moeite! P.S. de opgegeven paden zijn correct.

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'HIER (kopieer het verander pad waar je dit excel document geplaatst hebt) Kopieer dit stukje en wijzig naam:
'xlApp.Workbooks.Open Filename:="C:\Documents and Settings\NAAM GEBRUIKER COMPUTER KIJK WAT HET BIJ JOUW COMPUTER IS\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
'On Error Resume Next
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Langezaal\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Pauw\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\kuysten\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Lemckert\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\schotborgh\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
ActiveWorkbook.Saved = True
Application.Quit
End Sub

 

[Lerac]

nog 1 maar zelfde probleem

Nog 1tje maar zelfde probleem zucht. Weet iemand een andere manier om dit te doen. Kennelijk het gebruik van Error Handlers gaat niet werken.....

On Error GoTo Errorhandling1
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Lemckert\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
Errorhandling1:
Resume Next
On Error GoTo Errorhandling2
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Pauw\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
Errorhandling2:
Resume Next
On Error GoTo Errorhandling3
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Kuysten\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
Errorhandling3:
Resume Next
On Error GoTo Errorhandling4
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Schotborgh\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
Errorhandling4:
Resume Next
On Error GoTo Errorhandling5
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Thalheim\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
Errorhandling5:
Resume Next
On Error GoTo Errorhandling6
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Langezaal\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
Errorhandling6:
ActiveWorkbook.Saved = True
Application.Quit

 

[Lerac]

Nevermind

Heb het inmiddels zelf gevonden wat het probleem was....Niet mijn script maar computer voor degenen die geinstrresseerd zijn dit is de script die ik gebruikt heb:

On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Lemckert\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Pauw\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\kuysten\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Schotborgh\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Thalheim\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"
On Error Resume Next
xlApp.Workbooks.Open Filename:="C:\Documents and Settings\Langezaal\Bureaublad\Signaleringslijst Deadlines CPS vrijdag.xls"