Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub open_it()
Dim myfile
Dim strFilter As String
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.XLS")
myfile = ahtCommonFileOpenSave( _
OpenFile:=True, _
InitialDir:=varDirectory, _
Filter:=strFilter, _
Flags:=lngFlags, _
DialogTitle:=varTitleForDialog)
GetExcel (myfile)
End Sub
Function ahtAddFilterItem(strFilter As String, _
strDescription As String, Optional varItem As Variant) As String
If IsMissing(varItem) Then varItem = "*.*"
ahtAddFilterItem = strFilter & _
strDescription & vbNullChar & _
varItem & vbNullChar
End Function
Sub GetExcel(file_to_open As String)
Dim MyXL As Object
Set MyXL = GetObject(file_to_open, "Excel.Application")
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
End Sub
MyXL.Activate
MyXL.Activate
MyXL.Parent.Windows(1).Visible = True