Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficulties Opening, copying from another workbook and closing
I have the following script to open another workbook, copy certain
information, going back to the original macro driven workbook and then closing the file source. It works okay, however it gets hung up for a long period of time before the file closes. Any ideas what I'm doing wrong? Sub ImportUnusual() Dim WorkbookName As String Dim FileToOpen As String Dim WorkbookName1 As String Sheets("UnU DL").Select Cells.Select Selection.Clear Selection.FormatConditions.Delete Selection.Interior.ColorIndex = xlNone Range("A1").Select WorkbookName = Range("A1").Parent.Parent.Name MsgBox "Please select the file with the inventory by customer data you wish to import." FileToOpen = Application _ .GetOpenFilename("Text Files (*.XLS), *.XLS") If FileToOpen = "False" Then End If Workbooks.Open Filename:=FileToOpen Range("A1").Select WorkbookName1 = Range("A1").Parent.Parent.Name Range("H3").Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(WorkbookName).Activate Windows(WorkbookName1).Close Savechanges:=False Windows(WorkbookName).Activate Range("A1").Select ActiveSheet.Paste Range("A1").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficulties Opening, copying from another workbook and closing
Try this:
Sub ImportUnusual() Dim WorkbookName As String Dim FileToOpen As String Dim WorkbookName1 As String Sheets("UnU DL").Cells.Clear WorkbookName = ThisWorkbook.Name MsgBox "Please select the file with the inventory by customer data you wish to import." FileToOpen = Application _ .GetOpenFilename("Text Files (*.XLS), *.XLS") If FileToOpen = "False" Then Exit Sub 'if no file selected End If Workbooks.Open Filename:=FileToOpen WorkbookName1 = ActiveWorkbook.Name Range("H3").Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks(WorkbookName).Worksheets("UnU DL").Range("A1") Windows(WorkbookName1).Close Savechanges:=False End Sub Mike F "Corrie" wrote in message oups.com... I have the following script to open another workbook, copy certain information, going back to the original macro driven workbook and then closing the file source. It works okay, however it gets hung up for a long period of time before the file closes. Any ideas what I'm doing wrong? Sub ImportUnusual() Dim WorkbookName As String Dim FileToOpen As String Dim WorkbookName1 As String Sheets("UnU DL").Select Cells.Select Selection.Clear Selection.FormatConditions.Delete Selection.Interior.ColorIndex = xlNone Range("A1").Select WorkbookName = Range("A1").Parent.Parent.Name MsgBox "Please select the file with the inventory by customer data you wish to import." FileToOpen = Application _ .GetOpenFilename("Text Files (*.XLS), *.XLS") If FileToOpen = "False" Then End If Workbooks.Open Filename:=FileToOpen Range("A1").Select WorkbookName1 = Range("A1").Parent.Parent.Name Range("H3").Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(WorkbookName).Activate Windows(WorkbookName1).Close Savechanges:=False Windows(WorkbookName).Activate Range("A1").Select ActiveSheet.Paste Range("A1").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Opening another workbook and then closing it. | Excel Programming | |||
Closing a workbook upon opening another | New Users to Excel | |||
Copying a Range from a Workbook without opening in memory. | Excel Programming | |||
opening & copying to a workbook | Excel Programming | |||
Opening and closing workbook with VBA... | Excel Programming |