Question

你好，我想问VB的问题。代码如下

Private Sub Command6_Click()
Dim i As Integer, j As Integer
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(1)
For i = 0 To DataGrid1.Columns.Count - 1
xlsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption
Next i
i = 0
Do While (Adodc1.Recordset.EOF = False)
For j = 0 To Int(DataGrid1.Columns.Count - 1)
DataGrid1.Col = j
xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text
Next j
Adodc1.Recordset.MoveNext
i = i + 1
Loop
xlapp.ActiveSheet.Protect "123", DrawingObjects:=True, _
Contents:=True, Scenarios:=True '这是密码，可要可不要
Set xlapp = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
Set xlbook = Nothing
Adodc1.Recordset.MoveFirst

End Sub

目前是每按一次出来一个excel文档，我希望的是每次都存在同一个文档当中，可以帮帮我吗？

Answer 1

　　这三句放到公共变量
　　Dim xlapp As Excel.Application
　　Dim xlbook As Excel.Workbook
　　Dim xlsheet As Excel.Worksheet

　　这4句放到窗体的load事件中
　　Set xlapp = CreateObject("excel.application") '这句话运行一次就有一个新的excel窗口出来,即一个新的应用程序
　　xlapp.Visible = True
　　Set xlbook = xlapp.Workbooks.Add ‘这句话运行一次就有一个新的工作簿文件出来，工作簿就在xlapp这个窗口里面
　　Set xlsheet = xlbook.Worksheets(1) ‘‘这句话获取xlbook工作簿里面第二个sheet表。一般默认一个工作簿新建后有三张表，如果不够用就用 xlbook.Worksheets.add增加

　　理解上面三个层次关系，就可以自由控制 应用程序 ----- 工作簿 ------- 数据表 的数量了

　　这4句放到窗体的closing事件中，closed事件也可以，只要系统不报错就行
　　Set xlapp = Nothing
　　Set xlbook = Nothing
　　Set xlapp = Nothing
　　Set xlbook = Nothing

追问

按你所说的确实能只放入一个excel中，但是每次都会覆盖之前的数据，希望能够把每次的数据同时记录到一个表中。 最后四句我放入form_unload中了，未报错，但因不知其原理，所以不知道对不对。

追答

现在要先设想好整个操作，是要每次都放到同一张表，还是对当前操作都放到同一张表？如果是所有操作都放到同一张表，那就必须保存excel文件了，以后用打开excel文件的方式来获得一个workbook。
不管是新workbook还是打开旧的workbook，如果要从上次最后一行后面开始接着写入，下面的方法可以获取excel的已用区域的最后一行行号，用以下语句
xlsheet.UsedRange.Rows.Count + xlsheet.UsedRange.Row - 1

UsedRange就是已用区域，row是这个区域第一行的行号，rows.count是区域总行数，两者的和减1就是最后一行行号。

还有一个问题就是第一次写入时要执行写入标题行的过程，第二次开始就不用了。
For i = 0 To DataGrid1.Columns.Count - 1
xlsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption
Next i
这个很简单，判断xlsheet的.UsedRange.Rows.Count是否为0，等于0说明没有写入过，从标题行开始写。如果写入过，就按上面的方式找到最后一行，从下一行开始写数据。

最后四句放入form_unload中，没报错就可以了，那几句是清理内存用的，反正在你已经不需要再调用xlsheet的时候就可以执行那几句了。

追问

如你所说，确实能用，万分感谢，果断加分。现在还有个问题，我想利用datacombo（或者combobox）实现换表，即选择box里的不同反白名字后adodc的recordsource能够改变， 目前的问题是，用判断单击实现还是用判断text的值实现，因为在尝试中我不清楚判断text的语句应该放在哪里，以及判断单击时是private sub DataCombo1_Click(Area As Integer)， 这样没法完成选择。
两个方法我感觉都挺好，能给我其中一个解决方法就好~

追答

datacombo 我不知是什么东西，我没有装VB6。

combox有个专用事件，如果是点击选择了不同的项，会产生 selectedChanged事件，在这个事件下判断 selectedIndex（选中的项序号，从0开始向下数）或selectedItem（选中的文本，VB.net有这个，我忘记VB6是否也有，反正都是离不开selectedXXX，但是selectedText绝对不是）或text，都可以。
关于是用selectedIndex还是text，区别在于：你的combobox是否设置成可编辑状态，就是是否可以在combo里输入文本。如果可以输入，则text总是获得那个框的文本，这时selectedindex可能是-1，就是没有选择的状态。如果是设置成不可编辑，则text也可以返回框里的值，但如果有文本，就必定selectedIndex等于0或大于0。
你可以在程序中 用selectedIndex = 0 来设置默认选择第一个项（必须先检查项目的数量 count 是否大于0，即检查是否有东西装入combo，没装东西的话selectedIndex总是小于0，那句话会出错）。同时，执行那句话也会引发.selectedChanged事件。

补充说明一下selectedText的问题。这个是当combobox可以编辑的时候，你用鼠标在里面拖拉选择文本时的那些文本。包括selectedStart，也是这个相关的，是光标所在位置。如果combo不可编辑，这些都没意义。注意别和selectedIndex那些混淆。

Answer 2

Set xlbook = xlapp.Workbooks.Add

你这里用的是add啊 add就是添加个新的workbook
你改用open(filename) 就可以了

Answer 3

同一文档写是没问题，但这个文档开着不可能刷新到最新数据。其它问题可以HI我或QQ联系