Question

VB将Text1.Text写入一个excel文件，再读取一个表格里面的值显示到程序

初学，啥都不会，请大家帮忙
写个小程序，VB将Text1.Text写入一个已存在的excel文件（写入的过程不用显示），写入后不提示直接保存。然后再从excel中读取一个表格的值显示。
Private Sub Command1_Click()
Set objExcel = CreateObject("excel.application")
Set objWorkbook = objExcel.Workbooks.Open("k.xls", 3, False)
objExcel.Visible = True
objExcel.cells(1, 1) = Text1.Text
objExcel = Nothing
objExcel.Workbook.saveas
objExcel.Workbooks.Close
objExcel.Quit
End Sub
自己在网上找了一点，保存的时候会提示是否覆盖，不用提示直接保存。
再读取excel中b1的值。
加上objExcel.Workbook.saveas true这句好像不行。
读取表格好像也不对
objExcel.displayalert=false好像还是不行

Answer 1

你原来的代码好象有点问题,我重新写了一下
Textbox1 的值存入EXCEL,textbox2放excel里B1的值

Private Sub Command1_Click()

Set objexcel = CreateObject("Excel.application")
Set objWorkbook = objexcel.Workbooks.Open("c:\k.xls", 3, False)
Set ExcelSheet = objWorkbook.Worksheets(1)

objexcel.Visible = True

ExcelSheet.cells(1, 1) = Text1.Text
Text2.Text = ExcelSheet.cells(1, 2)

objWorkbook.Save 'save到原来的文件里,不会弹提示的.
objWorkbook.Close
Set objexcel = Nothing

End Sub

Answer 2

要加这句
objExcel.displayalert=false