Open Excel File From Macro

Tutorials

Code below displays a file dialog box. Select a file and open upon enter.

[code]

Sub OpenExcelFileDialog()

'****************************************

'*** Code from VisibleVisual.com ********

'****************************************

Dim XLFile As Variant

'Open Excel Dialog Form

XLFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _

"*.xl*", 1, "Select Excel File", "Open", False)

'Exit on Cance;

If TypeName(vFile) = "Boolean" Then

Exit Sub

End If

'Open the File

Workbooks.Open vFile

End Sub

[/code]

< Prev		Next >