Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Sub Get_Data() Dim wbk As Workbook Dim destWbk As Workbook Set destWbk = ActiveWorkbook FileToOpen = Application.GetOpenFilename _ (Title:="Please choose the previous file to import", _ FileFilter:="Excel Files *.xls (*.xls),") '' If FileToOpen = False Then MsgBox "No file specified.", vbExclamation, "Duh!!!" Exit Sub Else Set wbk = Workbooks.Open(FileToOpen) End If ' Need to copy the source and paste it End Sub
|adding "ungroup sheets" to existing vbs code||5||30|
|Application.FileSearch does not work in excel 2016||2||19|
|split worksheet into new worksheets based on changing value in Column A (by means of an Excel VBA)||4||27|
|Efficient way to copy unique records from one sheet to another||5||21|