vb 导出数据到excel

显示全部楼层 · 2010-5-26 21:02:43

Private Sub cmdpath_Click()
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.Flags = cdlOFNCreatePrompt
CommonDialog1.Filter = "All Files (*.*)|*.*|Excel Files" & "(*.xls)|*.xls"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
Me.textfilepath = CommonDialog1.FileName

strfilepath = CommonDialog1.FileName
Exit Sub
errhandler:
Exit Sub
End Sub
Private Sub Form_Load()
Dim i As Integer

For i = 1 To 12

Me.commonth.AddItem i

Next i

Me.commonth.ListIndex = 0

Me.textfilepath = ""
End Sub
为什么不出现“是否转到导出的EXecl？
而且根本保存不了文件
就是说单击“导出”按钮，系统会开始导出，这时候就会出现个对话框

千问 · 2010-5-26 21:02:43

你要什么情况下出现是否转到导出的EXecl？代码里无体现