Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Sub ImportSheet() Dim fileName Dim wb As Workbook Dim strPath As String Dim fs, f Dim asof As String fileName = Application.GetOpenFilename("Other Workbook (*.xl*),*.xl*") If fileName = "False" Then MsgBox "You have not selected a file. Please try again." GoTo QuitSub End If Set wb = Workbooks.Open(fileName:=fileName) With ThisWorkbook wb.Worksheets(1).Copy After:=.Worksheets(.Worksheets.Count) wb.Close False .Activate .Worksheets(.Worksheets.Count).Select End With Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(fileName) asof = f.DateCreated strPath = ThisWorkbook.Path ActiveWorkbook.SaveAs strPath & Application.PathSeparator & "Data as of " & asof QuitSub: End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.