- 帖子
- 19
- 主題
- 4
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- windows XP sp3
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-6-10
- 最後登錄
- 2013-8-6
|
18#
發表於 2011-11-25 11:16
| 只看該作者
回復 16# GBKEE
目前使用上都沒有問題
只是螢幕會一直閃一直閃
能夠在程式執行時停止更新螢幕嗎
執行完再更新螢幕
不然一直閃眼睛好痛
Sub Ex()
Dim Rng As Range, NameRng As Range, CopyRng As Range, E As Range
Set NameRng = Workbooks("工時整理.xlsm").Sheets(5).[A2:A20].SpecialCells(xlCellTypeConstants) '人名的範圍 或是 完整的路徑檔案名稱
Set Rng = Workbooks("工時整理.xlsm").Sheets(1).[a3]
For Each E In NameRng
'With Workbooks.Open("Q:\" & E & ".xlsx") 'E=人名
With Workbooks.Open(E) '如 E = 完整的路徑檔案名稱
Set CopyRng = .Sheets(1).UsedRange.Offset(3)
Rng.Resize(CopyRng.Rows.Count, CopyRng.Columns.Count).Value = CopyRng.Value
If Rng.End(xlDown).Row = Rows.Count Then
Set Rng = Rng.End(xlDown).End(xlUp).Offset(1)
Else
Set Rng = Rng.End(xlDown).Offset(1)
End If
.Close False
End With
Next
End Sub |
|
發表於 2011-11-25 12:09
| 
