完全新人 大神求教

你这个问题无答案，给个参考吧
方案一：使用的是数据库，使用命令保存
读取各控件值，生成更新用的SQL，提交执行。
方案二：使用的是数据库，使用控件绑定
提交更新
方案三：使用二进制数据文件
定义结构，读取各控件值，计算文件位置，打开文件，保存数据，关闭文件
方案四：使用INI文件
读各控件值，调用保存INI函数，一个一个的写入
方案五：保存为一个文本文件
读各控件值，以新建文件打开文件，一个一行的写入，关闭文件

Private Sub Command1_Click()'文本文件保存
  CommonDialog1="text.txt" 'CommonDialog1是工程-部件-Microsoft Common Dialog Control 6.0的控件
  Open CommonDialog1.FileName For Output As #1  ' 以输出方式打开文本文件。
    Print #1, "具体内容"
  close #1
end sub

Private Sub Command1_Click()'execl文件保存
   Dim NewXls As Excel.Application
   Dim NewBook As Excel.Workbook
   Dim NewSheet As Excel.Worksheet
   Set NewXls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
      NewXls.SheetsInNewWorkbook = 2'2个sheet
   Set NewBook = NewXls.Workbooks.Add '创建工作簿
      NewXls.DisplayAlerts = False  '
   Set NewSheet = NewBook.Worksheets(1) '设置第一个sheet
   NewXls.Workbooks(1).Worksheets(1).Cells(1, 1)="测试"'第一个单元格赋值
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").Interior.Color = vbred '背景红色
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").Borders.Weight = xlThin '设置边框
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").HorizontalAlignment = 3 '设置居中
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").ColumnWidth = 15 '设置列宽
   NewXls.Workbooks(1).Worksheets(1).Name = "测试表"
    NewBook.Close (True) '关闭工作簿
    Newxls.Quit '结束EXCEL对象
end sub

以上是常用的文本文件，execl文件的保存事例，供参考。