Schippertje
Gebruiker
- Lid geworden
- 20 jul 2011
- Berichten
- 64
Goeden avond heren.
Dit is een code die ik gebruik om uit te printen via excel.
Nou moet ie dus naar een excel file zoeken op een bepaalde locatie.
Nu wou ik het graag zo instellen, dat als die op de ene locatie bijv. (C:\Program Files) het bestand niet vindt, dat ie dan naar de andere locatie gaat kijken bijv. (D:\Program Files).
Kan iemand mij daarbij helpen.
Code:
Dim AppExcel As Object
Dim workBook As Object
AppExcel = CreateObject("Excel.Application")
workBook = AppExcel.Workbooks.Open("C:\ProgramFiles\.")
AppExcel.Visible = False
Worksheets = workBook.worksheets
Worksheets("Blad1").Cells(1, 1).value = TextBox1.Text
Worksheets("Blad1").PrintOut()
workBook.Saved = True
AppExcel.Quit()
Nou moet ie dus naar een excel file zoeken op een bepaalde locatie.
Nu wou ik het graag zo instellen, dat als die op de ene locatie bijv. (C:\Program Files) het bestand niet vindt, dat ie dan naar de andere locatie gaat kijken bijv. (D:\Program Files).
Kan iemand mij daarbij helpen.