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
Private Sub Import_Data_Into_Current_Workbook_EE() Dim customerFilename As String Dim customerWorkbook As Workbook Dim targetWorkbook As Workbook ' active workbook is the target Set targetWorkbook = Application.ActiveWorkbook With Application.fileDialog(msoFileDialogOpen) .ButtonName = "&Open" .InitialFileName = "C:\MyFile\Data" .Filters.Clear .Filters.Add "Excel files (*.xls; *.xlsm; *.xlsx)", "*.xls;*.xlsm;*.xlsx", 1 .Title = "Please Select an input file" .AllowMultiSelect = False End With If Not (Application.fileDialog(msoFileDialogOpen).Show) Then MsgBox "No File specified!.", vbExclamation, "Cancel has been pressed!" Exit Sub Else customerFilename = Application.fileDialog(msoFileDialogOpen).SelectedItems(1) Set customerWorkbook = Application.Workbooks.Open(customerFilename) Dim sourceSheet As Worksheet Set sourceSheet = customerWorkbook.Worksheets(1) On Error Resume Next Set srcSht = targetWorkbook.Sheets(sourceSheet.Name) On Error GoTo 0 If IsEmpty(srcSht) Then sourceSheet.Copy Before:=targetWorkbook.Sheets(1) Else MsgBox "Sheet name already there" Exit Sub End If End If customerWorkbook.Close End Sub
|Populate a value in one spreadsheet based on values in another spreadsheet||6||32|
|In Excel 2007 in data validation list, why does Excel perform a calculation when entering 2: 1 in the data validation list and how should I change this so no calculation is performed?||2||17|
|File size limit in SharePoint 2010||3||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!