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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-1-6 11:26 | 顯示全部帖子

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

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

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

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

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

樓主熱帖

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

2^#

發表於 2015-1-7 10:45 | 顯示全部帖子

感謝Bob幫忙晚點來調試

可否另外再請教如果EXCEL檔案一打開會跳出類似啟用巨集or問要不要更新連結等等之類選項的話,要怎麼讓vba去選擇動作呢? 例如選擇啟動巨集 or 選擇不要更新再次感謝

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

3^#

發表於 2015-1-8 13:15 | 顯示全部帖子

回復 4# PKKO

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

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

4^#

發表於 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顯示物件不支援此功能請問我該用哪一種屬性呢?

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

5^#

發表於 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