核价软件编程可以使用多种编程语言和方法来实现，具体步骤如下：
数据准备
将工作表1中的物品价格清单中的价格与工作表2中的物品清单中的物品名称进行核对。
确保两个工作表中的物品名称和单价数据格式一致，以便进行匹配。
选择编程语言
根据个人熟悉程度和项目需求选择合适的编程语言，如Visual Basic、Delphi、C++Builder等。
使用OLE技术
利用OLE（对象的链接与嵌入）技术，通过编程语言向Excel提交命令，存取其中的数据。
例如，在Visual Basic中，可以使用`Excel.Application`对象来操作Excel文件，进行数据的读取和写入。
编写算法
使用穷举算法进行核价，即将工作表2中的物品名称与工作表1中的物品名称匹配。
匹配成功的就将工作表1中的物品单价复制到工作表2的物品单价项。
实现匹配逻辑
在编程语言中编写循环和条件判断语句，实现物品名称的匹配和单价的复制。
例如，在Visual Basic中，可以使用嵌套的`For`循环和`If`语句来实现这一逻辑。
测试与调试
在实际环境中测试核价软件，确保其能够正确核价并处理各种异常情况。
调试程序，修复可能出现的错误和漏洞。
部署与使用
将编写好的核价软件部署到目标环境中，供用户使用。
提供必要的用户手册和操作指南，帮助用户快速上手。
```vb
Dim excelApp As Object
Dim excelWorkbook As Object
Dim workSheet1 As Object
Dim workSheet2 As Object
Dim i As Integer, j As Integer
Dim itemName1 As String, itemName2 As String
Dim itemPrice1 As Variant, itemPrice2 As Variant
' 创建Excel应用程序对象
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True
' 打开Excel工作簿
Set excelWorkbook = excelApp.Workbooks.Open("C:\path\to\your\workbook.xlsx")
' 获取工作表
Set workSheet1 = excelWorkbook.Sheets("Sheet1")
Set workSheet2 = excelWorkbook.Sheets("Sheet2")
' 遍历工作表1中的物品名称和单价
For i = 1 To workSheet1.Cells(workSheet1.Rows.Count, 1).End(xlUp).Row
itemName1 = workSheet1.Cells(i, 1).Value
itemPrice1 = workSheet1.Cells(i, 2).Value
' 遍历工作表2中的物品名称和单价
For j = 1 To workSheet2.Cells(workSheet2.Rows.Count, 1).End(xlUp).Row
itemName2 = workSheet2.Cells(j, 1).Value
' 如果物品名称匹配，则复制单价
If itemName1 = itemName2 Then
workSheet2.Cells(j, 2).Value = itemPrice1
Exit For
End If
Next j
Next i
' 保存并关闭工作簿
excelWorkbook.Save
excelWorkbook.Close
' 释放对象
Set workSheet1 = Nothing
Set workSheet2 = Nothing
Set excelWorkbook = Nothing
Set excelApp = Nothing
```
请注意，这只是一个简单的示例代码，实际应用中可能需要根据具体需求进行更复杂的处理和数据验证。