[發問] 請問2007版的excel怎麼會沒辦法跑

請問各位達人
以下在2010的版本都可以用
但給2007的版本就不能用了
顯示Workbooks("DailyProcessYield-" & today).Close (False)
這句錯誤
請問是哪裡錯的啊~

Sub DailyProcessYield()

Application.DisplayAlerts = False
Dim today, Q, Q1, Q2, Q3, Q4, Q5, u
today = InputBox("輸入日期YYYY-MM-DD")
'Range("b6:p200").Delete
Worksheets("每日資料").Delete
Worksheets.Add after:=Worksheets("整理資料")
Worksheets(2).Name = "每日資料"

Data1 = "http://rptap/report/Daily/DailyProcessYield/DailyProcessYield-" & today & ".xls"
Workbooks.Open Filename:=Data1
Worksheets("晶片").Select
Cells.Select
Selection.Copy
ThisWorkbook.Sheets("每日資料").Activate
Range("A1").Select
ActiveSheet.Paste
Q1 = Range("a2").CurrentRegion.Rows.Count
Workbooks("DailyProcessYield-" & today).Close (False)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2016-4-19 21:33 | 只看該作者

回復 1# 52ee24
你上面的 :

Data1 = "http://rptap/report/Daily/DailyProcessYield/DailyProcessYield-" & today & ".xls"
Workbooks.Open Filename:=Data1

底下卻是 :

Workbooks("DailyProcessYield-" & today).Close (False)

改成

Workbooks("DailyProcessYield-" & today & ".xls").Close (False)

試試. (2010 可以省略的 2007 不一定可以)

TOP

52ee24

中學生 Rank: 2

帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

3^#

發表於 2016-4-20 12:48 | 只看該作者

回復 2# luhpro

謝謝大大
可以用了
不過在更新樞紐時又不可以了
顯示這句不行ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=FF

以下有別的寫法嗎
謝謝
Dim FF As Range, h
h = Range("a1").CurrentRegion.Columns.Count
Set FF = Worksheets("每日資料").Range(Cells(1, 1), Cells(QQ, h))
Sheets("整理資料").Select
Range("b8").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=FF
ActiveSheet.PivotTables("整理資料").PivotCache.Refresh
Sheets("樞紐表").Select

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2016-4-21 05:32 | 只看該作者

回復 3# 52ee24

儘量再多提供一些資料才較好評估可能問題點喔.

系統秀的錯誤訊息是甚麼?

FF 的內容又是甚麼?
(可以單步執行或發生問題時按下偵錯按鈕, 然後在即時運算視窗中打上 ?FF.Address )

另外在 Excel 2007 中 SourceData 是否可以跨工作表這也是需要你確認的地方.

TOP