Snasui Excel Forum

Code: Select all

' Import shipping data
'
Sub Import_shipping()

Dim Name As String
Dim i As Integer
Dim x As Range
Dim y As Range
Dim z As Range

Name = Application.GetOpenFilename()
Workbooks.Open (Name)

Windows("Shipping DB").Activate
Workbooks("Shipping DB").Worksheets("DB_Sales").Range("2:1000000").ClearContents

Windows("Sales History AIR V.1 (All)").Activate
Workbooks("Sales History AIR V.1 (All)").Worksheets("Sheet1").Range("Table_Query_from_10.112[[#Headers],[YYYY]]").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
    
Windows("Shipping DB").Activate
Workbooks("Shipping DB").Worksheets("DB_Sales").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Code: Select all

Windows("Shipping DB.xlsx").Activate