ไม่สามารถใช้ Windows("file name").Activate ได้

[Ball_Ronnajuk]

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

[Ball_Ronnajuk]

ปกติเคยใช้งานเป็นประจำ
อยู่ๆมาก็ไม่สามารถใช้งานได้
ขึ้น Run-time error 9 ; Subscript out of range

รบกวนช่วยชี้แนะครับ

[puriwutpokin]

ลองใส่นามสกุล ไฟล์นั้นๆ ดูครับ เช่น

Code: Select all

Windows("Shipping DB.xlsx").Activate

[Ball_Ronnajuk]

ขอบคุณครับ
แก้ได้แล้วครับ

ปล.ปัญหาเกิดจาดอัพเดพวินโดร์ครับ