- 帖子
- 19
- 主題
- 7
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-1-13
- 最後登錄
- 2019-12-27
|
3#
發表於 2011-1-29 21:24
| 只看該作者
非常感謝Hsieh版主的回覆,其實我最近剛在學習VBA,也利用一些機會學習寫VBA,針對這個問題最主要是我寫了一程式碼如下,是希望將檔案開啟後進行複製的工作,但是因有些檔案有設定連結,所以巨集run到那個檔案時即會跳出如下的對話方塊(此活頁部包含一個或多個無法更新的連結),那麼該如何在程式碼中修改,使巨集能直接執行完畢,謝謝.
Sub 列出檔案()
ChDir "C:\Excel 練習\20110126"
file1 = Dir("C:\Excel 練習\20110126\*.xls")
R = 1
Do While file1 <> ""
Workbooks.Open file1
Sheets("簽約店明細").Range("A3 3").Select
Rows("2:2").AutoFilter
Rows("3:" & Rows.Count).EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Set s = Selection.Areas
For Each s In Selection.Areas
s.Range("A3").CurrentRegion.Offset(1).Copy _
Workbooks("Book1.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Cells(2)
Next
R = R + 1
Workbooks(file1).Close 0
file1 = Dir '取得下一個檔名
Loop
Workbooks("Book1.xls").Sheets("Sheet1").Rows("2:2").AutoFilter
End Sub
[img][/img] |
|
發表於 2011-1-29 17:59
| 
