Question

vb打开excel文件出错，求指教！错误指在“Set xlbook = xlapp.Workbooks.Open(myfilename)”这句~

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim myfilename As String
dim number as interger
Private Sub Form_Load()
If PathFileExists("F:\data") = 0 Then MkDir "F:\data" '如果文件夹不存在，则新建文件夹
myfilename = "F:\data\" + Trim(Str(Year(Now))) + Trim(Str(Month(Now))) + Trim(Str(Day(Now))) + ".xls"
If PathFileExists(myfilename) = 0 Then
Set xlapp = New Excel.Application '创建EXCEL对象
xlapp.Workbooks.add
xlapp.Rows(1).Font.Name = "黑体"
xlapp.Rows(1).Font.Size = 20
xlapp.Range("A1:C1") = Array("时间", "温度", "水位")
xlapp.ActiveWorkbook.SaveAs myfilename
xlapp.Quit
number = 2
Else '如果文件存在，则打开文件，并找到已写入的数据的末尾位置
xlapp.Workbooks.Open(myfilename)
Dim i As Integer
For i = 1 To 5000
If xlapp.Cells(i, 1) = "" Then
number = i
Exit For
End If
Next i
xlapp.Quit
End If
End Sub
错误是：实时错误91，对象变量或with块变量未设置~

Answer 1

要在菜单:工程->引用 里面引用EXCEL

追问

这个当然添加了的……

追答

留个QQ我给你远程看看

追问

没解决问题，反倒是自己解决了。你的VB水平真的很高的，一句“算了,你没任何基础,俺指导不了 ”……