试试这个应该就保存了吧'>>>>>关闭工作簿<<<<< Ebook.Close (True)'>>>>>结束EXCEL对象<<<<< Eapp.Quit'>>>>>释放xlApp对象<<<<< Set Eapp = Nothing Set Ebook = Nothing
有save 还是无效,大家给点代码可否?最好是自己试验过可以的。
本人如下处理 Dim Irow, Icol As Integer '行列值 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim FilePath As StringFilePath = App.Path + "\temp.xls" Set xlApp = CreateObject("Excel.Application") '创建excel对象 Set xlBook = xlApp.Workbooks.Open(FilePath) '打开Excel工作薄文件 Set xlSheet = xlBook.Worksheets(1) '打开Excel工作表xlSheet.Cells(Irow, Icol).Value ="AAA" '赋值 xlBook.Save '保存 Set xlApp = Nothing '交还控制给Excel 不知可行不?
Ebook.Close (True)'>>>>>结束EXCEL对象<<<<<
Eapp.Quit'>>>>>释放xlApp对象<<<<<
Set Eapp = Nothing
Set Ebook = Nothing
Dim Irow, Icol As Integer '行列值
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FilePath As StringFilePath = App.Path + "\temp.xls"
Set xlApp = CreateObject("Excel.Application") '创建excel对象
Set xlBook = xlApp.Workbooks.Open(FilePath) '打开Excel工作薄文件
Set xlSheet = xlBook.Worksheets(1) '打开Excel工作表xlSheet.Cells(Irow, Icol).Value ="AAA" '赋值
xlBook.Save '保存
Set xlApp = Nothing '交还控制给Excel
不知可行不?
不过我要改变的是Column的值,就是那个列标题,
不是cell的
最好是找一下盖茨吧,让他给你提供一个接口。