vb6匯出Excel-1004:應用程式或物件定義上的錯誤- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1058

會員總數：246713
討論主題：190131

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB6 >> vb6匯出Excel-1004:應用程式或物件定義上的錯誤

[]

[我要回覆]

vb6匯出Excel-1004:應用程式或物件定義上的錯誤
價值 : 10 QP 點閱數:100 回應數:0

樓主

0	1
4	0

發送站內信

想請教vb6匯出Excel的問題，跑迴圈會重複匯出至少10個以上excel報表，會出現執行階段錯誤1004:應用程式或物件定義上的錯誤，以下是我附上程式碼，請問哪個環節出問題了?

Dim strdate, enddate As String
   Dim excel As excel.Application
   Dim Workbook As excel.Workbook
   Dim Worksheet As excel.Worksheet
   Dim fs As Object
   Dim row As Integer
   Set fs = CreateObject("scripting.filesystemobject")
   
'民國年轉西元年
    strdate = CStr(CInt(Left(Format(txtstrdate.Text, "0000000"), 3)) + 1911) & Mid(Format(txtstrdate.Text, "0000000"), 4, 2) & Mid(Format(txtstrdate.Text, "0000000"), 6, 2)
    enddate = CStr(CInt(Left(Format(txtenddate.Text, "0000000"), 3)) + 1911) & Mid(Format(txtenddate.Text, "0000000"), 4, 2) & Mid(Format(txtenddate.Text, "0000000"), 6, 2)
   
  
  fs.CopyFile App.Path & "\收支明細-公版.xls", App.Path & "\REPORT\" & trustaccount & "收支明細.xls"
  Set excel = CreateObject("Excel.Application")
  excel.Workbooks.Open (App.Path & "\REPORT\" & trustaccount & "收支明細.xls")
  Set Workbook = excel.Workbooks(1)
  Set Worksheet = Workbook.Worksheets(1)
  excel.Visible = True
  excel.DisplayAlerts = False
  
  Worksheet.Range("B7") = "報告期間:" & txtstrdate.Text & "~" & txtenddate.Text
  Worksheet.Range("B10") = "專戶:" & trustaccount
  excel.Worksheets(1).Range("B10") = "專戶:" & trustaccount
  excel.Worksheets(1).Range("B11") = "財產專戶--" & eceivename
  excel.Worksheets(1).Range("B12") = "帳號:" & ACCOUNT
  
  For i = 0 To rsDeposit.RecordCount - 1
          'Excel新增一列
         excel.Worksheets(1).Range("B14:I14").Select
         excel.Worksheets(1).Range("B14:I14").Insert xlShiftDown
         
         'Excel合併儲存格
         excel.Worksheets(1).Range("C14:D14").Select
         excel.Worksheets(1).Range("C14:D14").MergeCells = True
         excel.Worksheets(1).Range("E14:F14").Select
         excel.Worksheets(1).Range("E14:F14").MergeCells = True
         
                 '複製格式
         excel.Worksheets(1).Range("B" & 15 & ":I" & 15).Copy _
         Destination:=excel.Worksheets(1).Range(("B" & 14 & ":J" & 14))
  Next
  
  excel.Worksheets(1).Range("B14") = strdate
  excel.Worksheets(1).Range("C14") = "承上月餘額"
  excel.Worksheets(1).Range("I14") = LastMonthDeposit
  excel.Worksheets(1).Range("I12") = "幣別:" & rsDeposit(3)
  row = 15
  rsDeposit.MoveFirst
  For i = 0 To rsDeposit.RecordCount - 1
        Worksheet.Range("B" & row) = rsDeposit("交易日期")
        Worksheet.Range("C" & row) = rsDeposit("交易種類")
        Worksheet.Range("E" & row) = rsDeposit("說明")
        Worksheet.Range("G" & row) = rsDeposit("收入金額")
        Worksheet.Range("H" & row) = rsDeposit("支出金額")
        Worksheet.Range("I" & row) = val(excel.Worksheets(1).Range("I" & row - 1)) + val(excel.Worksheets(1).Range("G" & 
        row)) - val(excel.Worksheets(1).Range("H" & row))
        row = row + 1
        rsDeposit.MoveNext
  Next
  
  Workbook.Save
  Workbook.Close
  excel.Quit
  Set excel = Nothing

搜尋相關Tags的文章： [ 1004:應用程式或物件定義上的錯誤 ] ,
本篇文章發表於2022-06-16 20:05

目前尚無任何回覆

回覆

如要回應,請先登入.