VB如何生成EXCEL表格并保存？

Question

初学者，对数据库很迷惑，不知道怎么实现这样的功能，谁能为我引路，带我入门数据库的应用，我希望将我做好的一些经过计算的text文本重新排列生产到EXCEL表格里并保存

Answer 1

VB程序和excel表格是一体的，你用程序作出的数据就可以保存在表格当中，最后退出是保存该表格即可。追问

具体点举个例子，带我入门

追答

要写一段程序那就复杂了，我建议你弄本vb书先看看，学习一些基本知识。也能方便交流，否则我说程序你又不懂了，没有办法交流的。

Answer 2

百度HI，帮你追问

能逐句解释一下吗

Answer 3

百度下更方便。追问

搜了半天都不知道哪个是我要的结果，没看懂

追答

给你一个
Private Sub Command1_Click()
'这是一个假设excel文件Book1.xls存放在C盘根目录下的例子，例子假设使用的工作区域为：A1: J20
'首先对每个单元格设置你的要求，然后在A2里输入比较多的文字，以看效果。
Set xlsApp = Excel.Application
Dim n As Integer
Dim i As Integer
With xlsApp
.Visible = False
.Workbooks.Open (App.Path & "\book1.xls")
n = Workbooks.Range("A1:J20").Cells.Count '获取区域内总的单元格数
For i = 1 To n '逐个对单元格设置不换行自动缩小字体适应宽度
Workbooks.Range("A1:J20").Cells(i).Select
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.ReadingOrder = xlContext
End With
Next i
.Range("A2").Value = "中华人民共和国成立于一九四九年十月一日" '在A2单元格写入比较多的文字
End With
xlsApp.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
xlsApp.Quit
Set xlsApp = Nothing
End Sub