excel

Question

如何控制？、

Answer 1

Dim xlteachder As New Excel.Application
Dim xlBook As New Workbook
Dim xlSheet As New Worksheet
Set xlteachder = CreateObject("excel.application")
xlteachder.Visible = False/true 是否可见
Set xlBook = xlteachder.Workbooks.Open(地址）
Set xlSheet = xlBook.Worksheets(1)
xxxx=xlSheet.Cells(1,1)Value 就是第一行地一列的值
xlSheet.Cells(1,1)Value=xxxx  也可以赋值
xlBook.Save  改变以后一定要保存
xlteachder.Quit
xlteachder.Workbooks.Close  '关闭进程