取excel 文件字节数,BuiltinDocumentProperties("number of bytes") 出错了?为什么?
Private Sub Command_Click()
      FileName = "C:\DatabaseStructure.xls"
      Dim wordoxl As New excel.Application
      Dim excelworkbook As New Workbook
      wordoxl.Workbooks.Open (FileName)
      Set excelworkbook = wordoxl.ActiveWorkbook
      MsgBox excelworkbook .BuiltinDocumentProperties("number of bytes")
End Sub  出错:
   automation error
   Unspecified error 
为什么?     读其他是可以的

解决方案 »

  1.   

    @_@ , 不用这么麻烦吧。Msgbox FileLen("C:\DatabaseStructure.xls")
      

  2.   

    try::
          Set excelworkbook =wordoxl.Workbooks.Open (FileName)
      

  3.   

    nik_Amis(Azrael) 
    不行,我试过
      

  4.   

    Dim wordoxl As New excel.Application看看你的进程,肯定是上次操作没有关闭掉,导致下次调用失败
      

  5.   

    出错:
       automation error
       Unspecified error 
    为什么?
    ===============
    原因就是你上一次大开的Excel对象没有关掉!
    你又打开了一遍,当然要错的啊!
    记得用quit退出,要不就声明成共有变量,在form_unload的时候将其关闭。
      

  6.   

    问题出在Dim excelworkbook As New Workbook中的NEW,Workbook是对象里的对象,不要用NEW,否则会出现不可预见的后果.