如何用VB创建EXCEL文件

Question

用建立TXT文件的方法建立都不行 有没有办法?

Answer 1

Private Sub Command1_Click()
    Dim xls As Object
    On Error GoTo createErr:
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Add
    xls.Workbooks(1).SaveAs App.Path & "\test.xls"
    xls.Workbooks(1).Close
    xls.Quit
    Set xls = Nothing
    Exit Sub
createErr:
    MsgBox Err.Description
    Set xls = Nothing
End Sub

Answer 2

不对 说错了 能否弹出个commondialog 然后选择保存的路径

Answer 3

可以用CommomDialog控件来让用户选择保存的路径

Answer 4

CommonDialog(工程/部件/Microsoft/CommonDialog Control 6.0)

Answer 5

Private Sub Command1_Click()
    CommonDialog1.Filter = "xls文件(*.xls)|*.xls|所有文件(.*)|*.*"
    CommonDialog1.ShowSave
    Dim fileName As String
    fileName = CommonDialog1.fileName
    If Trim(fileName) = "" Then Exit Sub
    Dim xls As Object
    On Error GoTo createErr:
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Add
    xls.Workbooks(1).SaveAs fileName
    xls.Workbooks(1).Close
    xls.Quit
    Set xls = Nothing
    Exit Sub
createErr:
    MsgBox Err.Description
    Set xls = Nothing
End Sub