關於批次處理儲存格問題求大家幫忙解惑

大家好
小弟初學excel vba不久，有個批次更改儲存格程式問題想請各位幫忙解答。

不知道能否利用VBA寫一程式，讓"某指定資料夾"內所有excel檔案的某儲存格內容(EX:"A1")，填入固定數值(EX:"123")。

以上程式操作是否只能以API達到呢? VBA也行?

如VBA可行，請大家幫幫忙建議該用那些函數撰寫。非常感謝~

樓主熱帖

rbktwi

小學生 Rank: 1

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

7^#

發表於 2015-1-9 10:59 | 只看該作者

已解決~
Dim fr As Range
Dim sh As Worksheet
For Each e In ar
If e <> w1 Then
Workbooks.Open (myfloder & e)
         For Each sh In ActiveWorkbook.Worksheets
            Set fr = sh.Cells.Find(what:="Exchange Rate:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
                  If Not fr Is Nothing Then
                           Msgbox fr.Name
                  End If
         Next sh
ActiveWindow.Close saveChanges:=True '關閉且儲存
End If
Next e

TOP

rbktwi

小學生 Rank: 1

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

6^#

發表於 2015-1-8 17:51 | 只看該作者

不好意思想再請問Bob
關於搜尋儲存格以下程式碼
  '跑每個EXCEL檔
For Each e In ar
      If e <> w1 Then '不執行原先開啟的檔案
         Workbooks.Open (myfloder & e)
            s = Worksheets.Count
                  For j = 1 To s
                  Find = ActiveWorkbook.sheets(j).cells.Find(What:="Exchange Rate:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Next
      End If
Next
我想做的是參照作用中活頁簿接著輪流搜尋參照作用中活頁簿的各工作表
但excel顯示物件不支援此功能請問我該用哪一種屬性呢?

TOP

rbktwi

小學生 Rank: 1

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

5^#

發表於 2015-1-8 13:15 | 只看該作者

回復 4# PKKO

原來如此~ 非常感謝Bob幫忙解惑受益良多~

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2015-1-7 20:40 | 只看該作者

回復 3# rbktwi

一、啟動巨集需要人為操作,避免病毒不需要經過您的同意,執行病毒碼
可在安全性設定,設定完畢後關閉,再打開時就會是您設定的結果,若設定最低,則會無條件直接啟動巨集

二、連結的部分
在ThisWorkbook的模組裡面,Workbook_Open的事件內
設定 Application.AskToUpdateLinks=False '代表不會詢問
設定 Workbook.UpdateLinks =False ''代表不會啟動連結

反之亦如~
試試看,有錯誤請不吝糾正!

PKKO

TOP

rbktwi