Pasando valor para sobresalir en el buzón de entrada de VB.NET
Estoy tratando de automatizar la población de datos en algunas hojas de Excel que tienen algunas macros. Ahora el Excel está protegido y no puedo obtener la clave secreta. Ahora puedo ejecutar las macros, pero cuando intento pasar argumentos obtengo una discrepancia de argumentos.
Si acabo de ejecutar la macro con el nombre, me sale uninputbox
que toma un argumento adicional como entrada y genera automáticamente algunos de los valores para las columnas. Tengo que introducir manualmente este valor en elinputbox
a partir de ahora. ¿Hay alguna manera de automatizar ese proceso, es decir, capturar el buzón de entrada generado por la macro en el script vb.net e ingresar los valores desde allí? es decir, me gustaría ejecutar la macro y después de que aparezca la ventana emergente pidiéndome que ingrese algún valor, use el código vb.net para ingresar el valor a esa ventana emergente.
Esto es lo que tengo hasta ahora.
Public Class Form1
Dim excelApp As New Excel.Application
Dim excelWorkbook As Excel.Workbook
Dim excelWorkSheet As Excel.Worksheet
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
excelWorkbook = excelApp.Workbooks.Open("D:/excelSheets/plan_management_data_templates_network.xls")
excelApp.Visible = True
excelWorkSheet = excelWorkbook.Sheets("Networks")
With excelWorkSheet
.Range("B7").Value = "AR"
End With
excelApp.Run("createNetworks")
// now here I would like to enter the value into the createNetworks Popup box
excelApp.Quit()
releaseObject(excelApp)
releaseObject(excelWorkbook)
End Sub
Definición de macro
createNetworks()
//does so basic comparisons on existing populated fields
//if true prompts an inputbox and waits for user input.
Esto detiene mi script vb.net también para pasar a la siguiente línea.