Я хочу запустить скрипт vb, чтобы извлечь одно конкретное значение ячейки из каждого листа и вставить его в новую книгу, кроме того, это значение также может присутствовать в отдельных файлах Excel
Sub Macto()
' Create Excel object
Set objExcel = CreateObject("Excel.Application")
' Open the workbook
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Users\x.pr\Desktop\vbscript.xlsx")
' Set to True or False, whatever you like
objExcel.Visible = True
' Select the range on Sheet1 you want to copy
objWorkbook.Worksheets("Sheet1").Range("A11:C11").Copy
' Paste it on Sheet2, starting at A1
objWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
' Activate Sheet2 so you can see it actually pasted the data
objWorkbook.Worksheets("Sheet2").Activate
End Sub