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

本帖最後由 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

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

樓主熱帖

哈囉~大家好呀

iceandy6150

中學生 Rank: 2

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

8^#

發表於 2012-2-23 12:48 | 只看該作者

回復 7# GBKEE

okok了~~

原來.open放前面跟放後面差這麼多呀

感謝大大熱心解答

哈囉~大家好呀

TOP

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兔年全勤獎章

7^#

發表於 2012-2-23 08:48 | 只看該作者

回復 6# iceandy6150
對不起給你的程式中 With Workbooks(fs).Open 語法是錯誤的已更正了

TOP

iceandy6150

中學生 Rank: 2

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

6^#

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

回復 4# dino1978

你好~檢查過了都沒錯
目前就如前一篇文章內容
都卡在開檔案那邊
With Workbooks(fs).Open
或是選擇所開的檔案的SHEET就會出錯
.Sheets("小計").Select
不知為何

哈囉~大家好呀

TOP

iceandy6150

中學生 Rank: 2

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

哈囉~大家好呀

TOP

dino1978