Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open existing file
I am trying to open existing files in Excel. I am using the GetOpenFilename
method to select the files. Sub SelectBookToOpen() Dim FileToOpen As Variant Dim MyPath As String Dim Wb As Workbook MyPath = "T:\Archive" ChDrive "T" ChDir MyPath FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , _ "Please select both previous and current weeks' Data Archives", , True) If FileToOpen < False Then Set Wb = Workbooks.Open(FileToOpen) Else Exit Sub End If End Sub Everything works fine until I actually select a file and click Open. Then I get a data mismatch error on this line: If FileToOpen < False Then What am I doing wrong? Thanks, Lee |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open existing file
Hi FinChase
If the user doesn't select a file, GetOpenFilename returns False (Boolean value). If the user however selects one or more files GetOpenFilename returns an array of variants. Try this: Sub SelectBookToOpen() Dim FileToOpen As Variant Dim MyPath As String Dim Wb As Workbook Dim i As Integer MyPath = "T:\Archive" ChDrive "T" ChDir MyPath FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , _ "Please select both previous and current weeks' Data Archives", , True) If VarType(FileToOpen) < vbBoolean Then For i = 1 To UBound(FileToOpen) Set Wb = Workbooks.Open(FileToOpen(i)) Next Else 'User canceled Exit Sub End If End Sub "FinChase" wrote in message ... I am trying to open existing files in Excel. I am using the GetOpenFilename method to select the files. Sub SelectBookToOpen() Dim FileToOpen As Variant Dim MyPath As String Dim Wb As Workbook MyPath = "T:\Archive" ChDrive "T" ChDir MyPath FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , _ "Please select both previous and current weeks' Data Archives", , True) If FileToOpen < False Then Set Wb = Workbooks.Open(FileToOpen) Else Exit Sub End If End Sub Everything works fine until I actually select a file and click Open. Then I get a data mismatch error on this line: If FileToOpen < False Then What am I doing wrong? Thanks, Lee |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open existing file
That worked! Thanks for your help!
"PO" wrote: Hi FinChase If the user doesn't select a file, GetOpenFilename returns False (Boolean value). If the user however selects one or more files GetOpenFilename returns an array of variants. Try this: Sub SelectBookToOpen() Dim FileToOpen As Variant Dim MyPath As String Dim Wb As Workbook Dim i As Integer MyPath = "T:\Archive" ChDrive "T" ChDir MyPath FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , _ "Please select both previous and current weeks' Data Archives", , True) If VarType(FileToOpen) < vbBoolean Then For i = 1 To UBound(FileToOpen) Set Wb = Workbooks.Open(FileToOpen(i)) Next Else 'User canceled Exit Sub End If End Sub "FinChase" wrote in message ... I am trying to open existing files in Excel. I am using the GetOpenFilename method to select the files. Sub SelectBookToOpen() Dim FileToOpen As Variant Dim MyPath As String Dim Wb As Workbook MyPath = "T:\Archive" ChDrive "T" ChDir MyPath FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , _ "Please select both previous and current weeks' Data Archives", , True) If FileToOpen < False Then Set Wb = Workbooks.Open(FileToOpen) Else Exit Sub End If End Sub Everything works fine until I actually select a file and click Open. Then I get a data mismatch error on this line: If FileToOpen < False Then What am I doing wrong? Thanks, Lee |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I prevent Excel trying to open a non-existing file at start | Excel Discussion (Misc queries) | |||
User replaces existing file with blank during file open | Excel Discussion (Misc queries) | |||
cannot open an existing file in excel 2003 | Excel Discussion (Misc queries) | |||
Can't open existing file | Excel Discussion (Misc queries) | |||
Open existing Excel file | Excel Discussion (Misc queries) |