用VB操作Excel,想在程序中更改Column的名字。
用xlSheet.Columns(1).Name = "AAA"
不出错,也无效,
该怎么做呢?thx

解决方案 »

  1.   

    试试这个应该就保存了吧'>>>>>关闭工作簿<<<<<
    Ebook.Close (True)'>>>>>结束EXCEL对象<<<<<
    Eapp.Quit'>>>>>释放xlApp对象<<<<<
    Set Eapp = Nothing
    Set Ebook = Nothing
      

  2.   

    有save 还是无效,大家给点代码可否?最好是自己试验过可以的。
      

  3.   

    本人如下处理
    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
    不知可行不?
      

  4.   

    谢谢 cyteng(希特勒) 
    不过我要改变的是Column的值,就是那个列标题,
    不是cell的
      

  5.   

    你自己在EXECL应用程序中修改看看,它根本就不允许这么做的
      

  6.   

    靠,你是要改上面的A,B,C,D……AA、AB……??
    最好是找一下盖茨吧,让他给你提供一个接口。