標題: 如何自動跳過詢問框? [打印本頁]

---

作者: adam2010    時間: 2013-5-22 21:47     標題: 如何自動跳過詢問框?

請教各位高手~
我錄製了一段資料剖析的巨集，但是執行中途會出現是否取代目標儲存格的詢問框，請問要如何自動跳過，謝謝！
    Columns("N:P").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("M:M").Select
    Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="~", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
        '出現詢問框→如何自動確認

---

作者: Hsieh    時間: 2013-5-23 08:49

回復 1# adam2010

關閉系統對話方塊
Application.DisplayAlerts = False

---

作者: adam2010    時間: 2013-5-23 21:16

原來是這樣，感謝您!

---

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