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.
Dim Shell, Excel
Dim myFolder,myItems,numitems,mySheet
Set Excel = CreateObject("excel.Application")
Set Shell = CreateObject("Shell.Application")
dDir = "C:\myDir"
mySheet = "sheet 1"
set myFolder = shell.NameSpace(sDir)
If (Not myFolder Is Nothing) Then
set myItems = myFolder.Items
If (not myItems Is Nothing) Then
numitems = myItems.Count
If(numitems > 0) Then
For n = 0 To numitems
myFilePath = myItems.Item(n).Path
Excel.Workbooks.Open(myFilePath)
Excel.Sheets(mySheet).Select
Excel.ActiveWindow.SelectedSheets.Visible = True
Excel.ActiveWorkbook.Save
Excel.Application.Quit
Next
End If
End If