Question

VB中excel导出的问题

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim oc, h As Integer

Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Add
Set xlsheet = xlBook.Worksheets("sheet1")
xlsheet.Cells(1, 1) = "time"
xlsheet.Cells(1, 2) = "magnetic"
For oc = 2 To snum + 1
xlsheet.Cells(oc, 1) = tim(oc - 1)
xlsheet.Cells(oc, 2) = SBz(oc - 1)
Next oc
xlBook.SaveAs FileName:="c:\Now3.xls"
MSHFlexGrid1.TextMatrix(1, 1) = "time"
MSHFlexGrid1.TextMatrix(1, 2) = " magnetic"
For h = 2 To snum + 1
MSHFlexGrid1.TextMatrix(h, 1) = tim(h - 1)
MSHFlexGrid1.TextMatrix(h, 2) = SBz(h - 1)
Next h

xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlsheet = Nothing

End Sub
我这段程序实现的功能是在MSHFlexgrid控件中将数据显示，并存到NOW.excel中，但是我想实现EXCEL存放在我指定的位置，并可以指定名称。像office中另存的功能一样。希望得到各位大侠的指点。

Answer 1

窗体中加入一个CommonDialog控件，然后把
xlBook.SaveAs FileName:="c:\Now3.xls"
这一句改为
CommonDialog1.DefaultExt = "xls"
CommonDialog1.Filter = "Excel文档|*.xls"
CommonDialog1.ShowSave
xlBook.SaveAs FileName:=CommonDialog1.FileName

Answer 2

定义一个全局变量sqlsave

当你查询时候，用这个全局变量记录你的sql语句
用一个CommonDialog1获得文件名，当创建完Excel时候，把sqlsave查询出来的数据粘贴到Excel中，即可。这样你就不用循环的输出表格里的数据了。

Answer 3

xlBook.SaveAs FileName:="c:\Now3.xls"行处替换成
xlBook.Activate
xlApp.Dialogs(xlDialogSaveAs).Show
试试吧，有问题联系wjhere@126.com

Answer 4

在窗体上放置驱动器控件和text控件，用代码获取驱动器控件和TEXT控件的值，用字符串函数将两者连接，然后将结果赋值给xlBook.SaveAs FileName。