Question

VB中的数据如何按行保存到excel中。

假设在VB中，text1中输入姓名，text2中输入民族，text3中输入年龄。
例如：输入张三，汉族，25
点击保存后，保存到指定excel中的A1，B1，C1. 保存后，text1-text3清空
再输入李四，满族，30
点击保存后，保存到excel中的A2，B2，C2.
······
当输入有错误时可以进行修改记录。还可以按姓名查找记录，显示在相应的text中。

本人菜鸟，求高手指教。

Answer 1

有几个问题需要说明一下，第一那个点保存后是写入excel，还是写入以后立即保存，这两个代码有所区别，实际来说这都不是问题，第二如果输入有错误在哪里修改，是那个VB界面，还是在excel里修改。按姓名查的话需要另个再写代码，这里边不能实现，也不能写到一段里边。应该是有单独的查找修改按纽。

追问

您好，非常感谢你的回答。是我说的不清楚，我想要的结果这样的：

1、点击保存按钮后写入excel；

2、如果出现错误，就在VB里修改（生成的工程中），点击保存后写入excel。

3、是按姓名查找，一点“查询”按钮，出现一个对话框，然后输入姓名，点确定后，这个人的信息就显示出来了。

也就是说，excel只做为一个数据库，不对它进行操作。

请教教我，万分感谢！

追答

基本是说明白了 还有一个就是 查询如果是另外一个对话框，应该是没法使用，因为还要涉及到修改的问题 ，在对话框里怎么改，怎么保存，实话实说你一点分都不给 怎么回答，虽然没难度，但是很麻烦。

追问

查询出来后，这些信息就被调到了text中，然后再修改，保存就行了吧？

• 我都不知道自已还有多少分了，肯定追加。已提高悬赏了

• 网上搜一下，全是代码，看不明白。我初学，最好告诉这个代码应该写在哪个地方。
  

追答

先上一段输入的吧 这个没难度 但很麻烦，直接 建一个工程，放上三个文本框，三个按纽，三个标签框。代码直接粘进去就行，注意要引用一下excel 库。查询修改，我有空再做，今天没时间了。

Dim exapp As Excel.Application
Dim exbk As Excel.Workbook
Dim excsh As Excel.Worksheet
Dim n As Integer
Private Sub Command1_Click()
n = n + 1
excsh.Cells(n, 1) = Text1
excsh.Cells(n, 2) = Text2
excsh.Cells(n, 3) = Text3
 Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
 
End Sub
Private Sub Form_Load()
Label1.Caption = "姓名"
Label2.Caption = "民族"
Label3.Caption = "年龄"
Command1.Caption = "保存"
Command2.Caption = "修改"
Command3.Caption = "查询"
Set exapp = CreateObject("excel.application")
exapp.Visible = True
Set exbk = exapp.Workbooks.Add
Set excsh = exbk.Sheets(1)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
n = 0
End Sub

Answer 2

用sql操作Excel，参考这个http://zhidao.baidu.com/question/362237772282561292