Automatically open and close spreadsheets on Google drive

I have 5 spreadsheets that are shared with other staff in the office. We share these spreadsheets using Google drive. Each staff has the ability to edit the spreadsheets. The spreadsheets are "shown" on a wall using an overhead projector. What I am trying to figure out is if there is a way to automatically alternate (or rotate) each spreadsheet. For example, spreadsheet 1 would "show" on the wall for approx. 30 seconds, then spreadsheet 2 would "show" on the wall for approx. 30 seconds, etc. I am new to all of this. Let me say in advance ...your patience is appreciated!

The following code will show each spreadsheet in a workbook in sequence for 30 seconds each.

modify the line

Please Login or Register  to view this content.

to open and close your spreadsheets.

Please Login or Register  to view this content.

Thank you for your response. This works great! Thank you. I was also wondering if there is a code to open workbook1 and have it display for about 30 seconds, then open workbook2 and have it display for about 30 seconds, and so on.

I am having problems with the script that displays the different tabs in a workbook. It is sporadic when I run the script. It will show tab1 for a few seconds, jump to tab3 for a few seconds then jump to tab 1. Sometimes it will show tab2, then jump to tab1, then jump to tab3, etc. Thank you for your help.

Judy can you record a macro where you open the three workbooks in sequence for me?

You can delete most of the file. All I want the Directory paths so that I can write your macro.

Thank you for helping me with this problem. Listed below are the Google drive paths for each workbook. Is this what you need?

https://docs.google.com/spreadsheet/...zZ2cwUkE#gid=0
https://docs.google.com/spreadsheet/...WdUc0cEE#gid=0
https://docs.google.com/spreadsheet/...pclJweHc#gid=0

Hi Judy

I cannot access those files.it looks lke you need an email address and password to access them

the code for accessing the files is apparently very complex, read: http://www.vbaexpress.com/kb/getarticle.php?kb_id=973


I think you would be better off having all three worksheets open and switching between them.

So can we try that?

Can you Open all three sheets and record yourself switching between them for me?

I hope this helps you. I think my problem will be when these .xlsx files are uploaded to Google drive. I'm not sure there is a way to "rotate" them once they are placed on Google drive. Thank you for your help. Judy


Sub Macro1()
'
Workbooks.Open Filename:="C:\Users\Judy\Desktop\Movement on SLB Loads.xlsx"
Application.Wait (Now + TimeValue("0:00:30"))
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True


Workbooks.Open Filename:="C:\Users\Judy\Desktop\Claas Inventory Control.xlsx"
Application.Wait (Now + TimeValue("0:00:30"))
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True


Workbooks.Open Filename:="C:\Users\Judy\Desktop\Halliburton.xlsx"
Application.Wait (Now + TimeValue("0:00:30"))
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Hi Judy

Try this.

The Auto_Open macro is supposed to open all three spreadsheets from your desktop.
It will then kick of the display macro which will switch between the three sheets.

I have set the timer to ten seconds. But you can set it to whatever you want.

Enjoy.

***********************************************************************************************************************


Public MyArray As Variant
Public count As Integer


Sub Auto_Open()

' Timer Macro
count = 0

MyArray = Array("Movement on SLB Loads.xlsx", "Claas Inventory Control.xlsx", "Halliburton.xlsx")

10 Workbooks.Open Filename:="C:\Users\Judy\Desktop\" & MyArray(count)

count = count + 1
If count < 3 Then GoTo 10


alertTime = Now + TimeValue("00:00:10")
Application.OnTime alertTime, "DisplayMacro"
DisplayMacro
End Sub

Public Sub DisplayMacro()

alertTime = Now + TimeValue("00:00:10")
Application.OnTime alertTime, "DisplayMacro"

On Error Resume Next

Windows(MyArray(count)).Activate
count = count + 1
If count > 2 Then count = 0

End Sub

Thank you for your help!