返回列表 上一主題 發帖

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

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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

帖子
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

52ee24

帖子
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

帖子
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

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題