TP700 VB脚本调用Execl

Sub RecipeGreat()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码： 
'利用Execl存储配方 在触摸屏的内存卡 同时可读写对应的CSV 

 
 Dim objExcel , objWorkbook,objWorkSheet,FileNameCell'定义变量

Set objExcel = CreateObject("Excel.Application")'开启Execl应用
 objExcel.Visible = True  
Set objWorkbook = objExcel.Workbooks.Open("\Storage Card USB\AA.xlsx")  ' 打开 Excel 文件 

Set objWorkSheet =objWorkbook.Worksheets(1)' 打开 Excel的sheet1表  

objWorkSheet.Activate '激活工作表

 ' 设置特定单元格的值
objWorkSheet.Range("A1").Value = NameToVBExecl
objWorkSheet.Range("A2").Value = temp1
objWorkSheet.Range("A3").Value = temp2

  
 FileNameCell= objWorkbook.Worksheets("Sheet1").Range("A1").Value   ' 获取特定单元格的值 

objExcel.ActiveWorkbook.SaveAs "\Storage Card USB\" & FileNameCell & ".xlsx" ' 另存为Execl \Storage Card SD

'objExcel.Workbooks.Close("C:\Users\Administrator\Desktop\AA.xlsx")'关闭工作簿

objWorkbook.Close("\Storage Card USB\AA.xlsx")'关闭EXecl

objExcel.Quit'退出 Object

Set objExcel = Nothing'释放内存
Set objWorkbook = Nothing'释放内存

End Sub