Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|Extracting P&ID Reference and the drawing number from a PDF Isometric drawing into excel||6||33|
|Excel: Comparing the Values in One Column with the Values in Another||2||30|
|How to highlight the first row in a different color without knowing how many columns beforehand in vb.net||6||35|
|Excel VBA problem Error 1004||2||6|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!