Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
Sub GetSheets() Path = "C:\Documents and Settings\DAJO\My Documents\MD-CPH\PI_Database\0908315-3\PlantInfo_Excel\" Filename = Dir(Path & "*.xls") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy after:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|create different version if file exists||1||45|
|can you help get 64bit version of these 3 APIs?||4||35|
|Zip Codes Excel Spreadsheet||4||26|
|replace blank cells with 0 starting with a specific column until no more data Excel VBA||2||8|
Join the community of 500,000 technology professionals and ask your questions.