[算表] 錯誤訊息停在奇怪地方!!
軟體:EXCEL
版本:2003
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim WBCount, x As Integer
Application.Workbooks.Open ("C:\Documents and Settings\KBC\Desktop\Environment\Overdue.xls")
WBCount = Workbooks("Overdue").Worksheets.Count
Workbooks("Book1").Worksheets("Overdue").Cells.Clear
For x = WBCount To 1 Step -1
With Workbooks("Overdue").Worksheets(x)
If .AutoFilterMode = True Then
.AutoFilterMode = False
End If
.UsedRange.Columns.Hidden = False
.UsedRange.Rows.Hidden = False
.UsedRange.Rows.Copy
這行!! Workbooks("Book1").Worksheets("Overdue").Rows(1).Insert Shift:=xlDown
Workbooks("Book1").Worksheets("Overdue").UsedRange.Rows.AutoFit
Workbooks("Book1").Worksheets("Overdue").UsedRange.Columns.AutoFit
End With
Next x
Workbooks("Overdue.xls").Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
錯誤訊息一直停在這一行
複製區域與貼上區域大小或形狀不同,無法貼上
但是同一個EXCEL上個月跑都沒這個問題
請教一下高手大大 幫我看一下 = =
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.124.14.204
Office 近期熱門文章
PTT數位生活區 即時熱門文章
