通过VBA在弹出警报窗口中按确定

Question

Having an issue, I have written a Macro ,that refreshes every 2 min, to upload data from a webpage and the last step of my Macro is using "Text to column" function so that it will be splitted into columns nicely.

The problem appears here everytime it gets to executes this "Text to column" it asks if I want to overwrite the columns(and I DO), but I need to press manually OK.

Is there any way to make VBA press this OK button in the alert?

Thank you very much!

Answer 1

Just add Application.DisplayAlerts = False prior to the call, and set it back to True after.

http://msdn.microsoft.com/en-us/library/office/aa175241%28v=office.11%29.aspx

---

Update: I just ran a test and it does not prompt me by default. Can you post the code you're using? I simply did:

Public Sub Test()
    Dim r As Range
    Set r = ActiveWorkbook.Sheets(1).Columns("A:A")
    r.TextToColumns Destination:=Range("B1")
End Sub

This link says the DisplayAlerts solution has worked in for others.

Answer 2

您可以在生成对话框的指令之前添加DoCmd.SendKeys 。

Answer 3

您应该使用鼠标单击功能在它最大化窗口之前使x，y ok按钮的坐标保持相同使用windows lib 32