VBA-Skript für die Automatisierung von Excel, klicken Sie auf ‚OK‘ auf Dialogfeld

Question

I (als Nicht-Entwickler) Ich versuche ein VB-Skript zu erstellen:

öffnen Sie eine Excel-Tabelle (eine, die ich nicht schaffen), Werte zu Feldern hinzufügen, Klicken Sie auf eine Schaltfläche 'validate', die das Format dieser Felder anhand vordefinierter Regeln überprüft, speichern und schließen Sie die Tabelle.

Das Bit, auf dem ich stecken bleibe, ist das Dialogfeld, das erscheint, wenn ich auf die Schaltfläche validieren klicke. Ich muss nur auf einen "OK" -Button klicken oder das Dialogfeld alle zusammen ignorieren.

Ich habe verschiedene Dinge einschließlich SendKeys und DisplayAlerts = False angeschaut, aber keiner scheint zu funktionieren.

ist mein Code wie folgt:

Set objExcel = CreateObject("Excel.Application") 

objExcel.Visible=True 

Set objWorkbook=objExcel.Workbooks.Open("C:\TestSpreadsheet.xls") 
Set objWorksheet=objWorkbook.Worksheets(2) 

objExcel.Application.Visible=True 
objExcel.WorkSheets(2).Activate 



' objExcel.Workbooks.Add 
objExcel.WorkSheets(2).Unprotect 
objExcel.WorkSheets(2).Cells(3,1).Value="Test1" 
objExcel.WorkSheets(2).Cells(3,2).Value="Test1" 

' Click 'validate' button. 
objWorksheet.CommandButton2.Value = True 

'Click 'ok' 

?????? 


' Save the spreadsheet and close the workbook. 
' Specify Excel7 File Format. 
objExcel.ActiveWorkbook.Save 
objExcel.ActiveWorkbook.Close 


' Quit Excel. 
objExcel.Application.Quit 

Wscript.Echo "Done" 

Irgendwelche Ideen wäre sehr willkommen!

Answer 1

Anstatt auf die Schaltfläche sozusagen zu klicken, müssen Sie das Ereignis auslösen, das die Schaltfläche beim Klicken ausführt. Normalerweise ist dies das Click-Ereignis.

Versuche:

objWorksheet.CommandButton2_Click() 

das Click-Ereignis ausgelöst. Wenn das fehlschlägt, können Sie die Makros oder den Code, den die Schaltfläche ausführt, einfach direkt ausführen, indem Sie das Ereignis untersuchen.