Question

怎么用VB读出ECEXL指定 单元格，并在窗体显示出来，还可将新数据写入对应表格，另存。

怎么用VB读出ECEXL指定 单元格，并在窗体显示出来，还修改指定单表格值，另存。
如果要将某一列按顺序从第一行读到最后一行呢
我要在我的程序窗体中显示，也就是选择文件导入后，程序窗体上有显示框，将ecex内容（只有一个表，只有一列）显示出来，怎么做？

比如，我就是把一个只有一列姓名（n行）的表，导入程序后，在右边有一框，显示表的内容

点一个加密按钮后， 右边有一框，把每行姓名都加密后 对应显示出来，并另存为新的XLS文件。

新的xls内容是 a列为原内容，即姓名，B列为加密后数据

Answer 1

Private Sub Form_Load()

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("c:\1.xls") '打开已经存在贺樱的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工并册作表
msgbox xlsheel.cells(1,1) '禅蔽丛读取单元格（1，1的值）
xlSheet.Cells(1, 1) = "cgsadfasd 值" '给单元格（row,col）赋值

xlBook.Close (True) '关闭并保存工作簿
xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象

End Sub

追问

关闭并 另存为 工作簿呢？
另，我要在我的程序窗体中显示，也就是选择文件导入后，程序窗体上有显示框，将ecex内容显示出来，怎么做？
比如，我就是把一个表，导入程序后，在右边有一框，显示表的内容
点一个加密按钮后， 右边有一框，把每行姓名都加密后 对应显示出来，并另存为新的XLS文件。
新的xls内容是 a列为原内容，即姓名，B列为加密后数据

另msgbox xlsheel.cells(1,1) 出现424错误