zoeken op meerdere locatie's

Status
Niet open voor verdere reacties.

Schippertje

Gebruiker
Lid geworden
20 jul 2011
Berichten
64
Goeden avond heren.

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()
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.
 
[cpp]If System.IO.File.Exists("C:\...") Then
workBook = "C:\..."
Else
workBook = "D:\..."
End If[/cpp]

Dit zou moeten werken.
 
mmmmmmm oke.
ik krijg nu deze fout melding, ik weet niet wat het betekent.





Naamloos.jpg
 
't Was ook maar pseudocode, dit moet 't dan echt zijn:

[CPP]If System.IO.File.Exists("C:\...") Then
workBook = AppExcel.Workbooks.Open("C:\ProgramFiles\.")
Else
workBook = AppExcel.Workbooks.Open("D:\ProgramFiles\.")
End If[/CPP]
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan