VBAスクリプトは、

Question

をダイアログボックスで「OK」をクリックしてくださいI（非開発者としては）にVBスクリプトを作成しようとしています：

、Excelスプレッドシート（​​私が作成していないもの）を開きます フィールドに値を追加するには これらのフィールドのフォーマットを事前定義されたルールと照合する「検証」ボタンをクリックして、 スプレッドシートを保存して閉じます。

私が立ち往生しているビットは、検証ボタンをクリックすると表示されるダイアログボックスです。 「OK」ボタンをクリックするか、ダイアログボックスをすべて無視するだけです。

私はSendKeysとDisplayAlerts = Falseを含むさまざまなものを見てきましたが、どちらもうまくいかないようです。

私のコードは以下の通りです：

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" 

任意のアイデアをいただければ幸いです！

Answer 1

ボタンをクリックすると、そのボタンがクリックされたときに発生するイベントを発生させる必要があります。通常これはClickイベントです。

試してみてください。

objWorksheet.CommandButton2_Click() 

クリックイベントを発射します。それが失敗した場合は、イベントを調べてボタンが実行するマクロまたはコードを直接実行することができます。