[發問] 撈檔案~爬文後還是寫不出來(已解決)

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-2-22 17:51 | 只看該作者

[發問] 撈檔案~爬文後還是寫不出來(已解決)

本帖最後由 iceandy6150 於 2012-3-1 17:10 編輯

我有4個xls檔，分別是麻辣1日.xls，麻辣2日.xls，麻辣3日.xls，結算.xls
前三個檔案中各有個sheet叫"小計"，欄位(1,1)有個值

我在結算.xls 中寫了一個按鈕，可以把
麻辣1日.xls，麻辣2日.xls，麻辣3日.xls中的小計中的(1，1)的值給加起來
放到結算.xls中的(1，1)

這幾個檔案都放在c:/我的資料夾/

Private Sub CommandButton1_Click()
Dim t, i As Integer
Dim fd, fs As String

fd = "C:\我的資料夾\"
t = 0
For i = 1 To 3
   fs = fd & "麻辣" & CStr(i) & "日.xls"             '把路徑弄出來加上檔名
   Workbooks(fs).Open                                        '開啟該檔
   .Sheets("小計").Select                                        '選該檔的小計sheet
   t = t + Workbooks(fs).Sheets("日報").Cells(1, 1).Value    '累加該欄位的值
   Workbooks(fs).Close SaveChanges:=False    '關檔
Next
Workbooks("結算").sheets("1").cells(1,1)=t          '把累加結果放到結算.xls去
End Sub

可是都會出錯，教教我吧，謝謝

樓主熱帖

哈囉~大家好呀

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-2-22 17:56 | 只看該作者

本帖最後由 GBKEE 於 2012-2-23 08:45 編輯

回復 1# iceandy6150

With Workbooks.Open(fs) '開啟該檔
.Sheets("小計").Select '選該檔的小計sheet
t = t + .Sheets("日報").Cells(1, 1).Value '累加該欄位的值
.Close SaveChanges:=False '關檔
End With

複製代碼

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

3^#

發表於 2012-2-22 21:08 | 只看該作者

回復 2# GBKEE

.Sheets("小計").Select
大大~到這一行都會顯示錯誤9 陣列索引超出範圍
為什麼會這樣?

哈囉~大家好呀

dino1978

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

4^#

發表於 2012-2-22 21:21 | 只看該作者

回復 3# iceandy6150

確定一下你的資料路徑有沒有錯誤~

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

5^#

發表於 2012-2-22 21:22 | 只看該作者

回復 2# GBKEE

在家測試~~改成桌面上的TEST資料夾裡面~放工作表1日.xls~工作表2日.xls~工作表3日.xls~
工作表的sheet1改名為 "小計"
路徑是C:\Users\ice\Desktop\TEST

Private Sub CommandButton1_Click()
Dim t, i As Integer
Dim fd, fs As String

fd = "C:\Users\ice\Desktop\TEST\"
t = 0
For i = 1 To 3
   fs = fd & "工作表" & CStr(i) & "日.xls"             '把路徑弄出來加上檔名

With Workbooks(fs).Open                            '開啟該檔-----目前錯誤出在這一步，陣列索引超出範圍
   .Sheets("小計").Select                         '選該檔的小計sheet
   t = t + .Sheets("小計").Cells(1, 1).Value    '累加該欄位的值
   .Close SaveChanges:=False                      '關檔
End With

Next
Workbooks("工作表結算").Sheets("1").Cells(1, 1) = t       '把累加結果放到結算.xls去
End Sub

哈囉~大家好呀