Microsoft Excel VBA自動在用戶窗體中單擊確定

Question

嗨，我正在嘗試修改XmlTools.xla插件。

我已經設置好了，以便用戶窗體已經顯示出我需要用戶填寫的所有內容。 我只需要一些方法以編程方式單擊“確定”按鈕。 我嘗試在下面顯示的代碼段中使用發送鍵，但是它不起作用。

Public Sub sbShowForm()
Application.DisplayAlerts = False

ActiveSheet.Name = "Sheet555"

ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Select
ActiveCell.Name = "lastCell"

ActiveSheet.Cells(1, 1) = "Is this"

frmCreateXmlList.Show
frmCreateXmlList.btnOK_Click

ActiveSheet.Cells(2, 1) = "called?"

Application.SendKeys ("{Enter}")
Application.SendKeys ("{Return}")

CreateXmlFiles.sbUserFormOKClicked
Call sbUserFormOKClicked

Application.DisplayAlerts = True

frmCreateXmlList.Hide
End Sub 'sbShowForm

我意識到這個要求有點愚蠢，但是我收到用戶的要求，說填寫該表格“工作太多”。 我知道SendKeys並不總是可靠的，但是我只是在尋找使它工作的東西。

Answer 1

我只是想通了。 我的發送鍵正在工作，但是它們正在將擊鍵發送到活動工作表，而不是用戶窗體。 我更新了UserForm-> Properties-> ShowModal-> False

將此屬性設置為true時，它將不起作用。 我也決定用

Call sbUserFormOKClicked

因為它應該比發送密鑰更可靠。