返回列表 上一主題 發帖

[發問] 請問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)
收藏 分享

52ee24

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

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題