台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1363
會員總數:
246737
討論主題:
190152
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
VB6
>> vb6匯出Excel-1004:應用程式或物件定義上的錯誤
[]
[
我要回覆
]
vb6匯出Excel-1004:應用程式或物件定義上的錯誤
價值 : 10 QP
點閱數:181 回應數:0
樓主
KK
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
目前尚無任何回覆
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved