標題: [發問] 請問2007版的excel怎麼會沒辦法跑 [打印本頁]

---

作者: 52ee24    時間: 2016-4-18 11:21     標題: 請問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    時間: 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 不一定可以)

---

作者: 52ee24    時間: 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

---

作者: luhpro    時間: 2016-4-21 05:32

回復 3# 52ee24

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

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

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)