Question

求帮看VB程序：导入EXCEL表格，但出现错误13

Private Sub Command1_Click()
If Dir("d:\temp\excel.bz") = True Then
Set xlapp = CreateObject(Excel.Application)
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.Open("d:\temp\bb\xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Activate
xlsheet.Cells(1, 1) = "abc"
xlbook.RunAutoMacros (xlAutoOpen)
Else
MsgBox ("excelyidakai")
End If
End Sub

Private Sub Command2_Click()
If Dir("d:\temp\excel.bz") <> "" Then
xlbook.RunAutoMacros (xlAutoClose)
xlbook.Close = True
xlapp.Quit
End If
Set xlapp = Nothing
End
End Sub

Private Sub Form_Load()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Dim vbexcel As Object
End Sub

总是出现“错误13”，求帮助，跪谢！

Answer 1

第二句： If Dir("d:\temp\excel.bz") = ""Then
另外：
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim vbexcel As Object
这些变量放到所有代码过程前面定义，这样才能在其他过程使用。

追问

试了试出现了这个错误：错误429activex部件不能创建对象

追答

说你想要做什么吧。你的代码没救了。

追问

哈哈快头疼死了，我想写把excel表格导入导出到vb中这个程序。。。

追答

算了，还是按你原来的改吧。

下面代码 xlapp.Workbooks.Open("d:\temp\bb\xls") 里面的目录你自己改下，文件名不对。两个按钮的都要改。

Private Sub Command1_Click()
    If Dir("d:\temp\excel.bz") <> "" Then
        Set xlapp = CreateObject(Excel.Application)
        xlapp.Visible = True
        Set xlbook = xlapp.Workbooks.Open("d:\temp\bb\xls")
        Set xlsheet = xlbook.Worksheets(1)
        xlsheet.Cells(1, 1) = "abc"
        xlbook.RunAutoMacros (xlAutoOpen)
        xlapp.Quit
    Else
        MsgBox ("excelyidakai")
    End If
End Sub

Private Sub Command2_Click()
    If Dir("d:\temp\excel.bz") <> "" Then
        Set xlapp = CreateObject(Excel.Application)
        xlapp.Visible = True
        Set xlbook = xlapp.Workbooks.Open("d:\temp\bb\xls")
        xlbook.RunAutoMacros (xlAutoClose)
        xlbook.Close = True
        xlapp.Quit
    End If
    Set xlapp = Nothing
End Sub

追问

谢谢啦，太麻烦你了！

谢谢啦，太麻烦你了！

Answer 2

试试在CreateObject里面那个加双引号

追问

不行啊，还是错误13