標題: 求中斷檔案聯結功能程式碼 [打印本頁]

---

作者: lai.k.h    時間: 2011-1-29 17:15     標題: 求中斷檔案聯結功能程式碼

各位好,因我要將一些檔案合併,但遇到當中有一檔案設有連結功能時,如何利用VBA程式碼將其中斷,繼續完成檔案合併工作?感謝各位的賜教

---

作者: Hsieh    時間: 2011-1-29 17:59

回復 1# lai.k.h


    若中斷連結則會只剩下值，公式就會不見
或是你要開啟檔案時不要更新連結

---

作者: lai.k.h    時間: 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("A33").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]

---

作者: Hsieh    時間: 2011-1-29 21:28

Workbooks.Open file1, 0

---

作者: lai.k.h    時間: 2011-1-29 22:01

Hsieh版主應該可以了,非常感謝您撥空回覆

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)