如何用VBA開啟多個檔案excel

elffire

假如我程式都寫好，但是我excel檔案有很多個，需要做好的程式做同樣的事情，我要怎麼加段程式，讓它自動開始檔案去執行

另如我把檔案改成一樣名稱  test_1~100(假如有100各檔案)程式也是~我怎麼改

arthurliuliu

當然是用 for 迴圈，
只要你的檔名可以跟 for 迴圈的變數對應，
那就沒什麼問題了。

elffire

我可以貼我原本程式給你看嗎?  在教我如何去修改嗎?

arthurliuliu

我可以貼我原本程式給你看嗎?  在教我如何去修改嗎?
elffire 發表於 2009-12-23 10:29 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

可以~~貼出來給大家看看吧~~
其實你一開始就可以把程式碼貼出來，大家比較容易幫到你。...

瀏覽完整內容，請先 註冊 或 登入會員

elffire

Option Explicit

Sub test()

    Dim bTest_ap As Boolean
    Dim bFound As Boolean
    Dim iStartRow As Integer
    Dim iEndRow As Integer
    Dim iCounter As Integer
    Dim dColumn3Value As Double
    Dim astar As Boolean
    Dim i
   
...

瀏覽完整內容，請先 註冊 或 登入會員

arthurliuliu

不好意思，我可能誤會你的意思了，
我一開始以為你是要自己撰寫程式來修改 excel 的檔案，
現在才看到是 vba 的部份，因為 vba 本身是內建在 excel 裡面，
如果要批次修改檔案，我也不確定是不是可以做。

elffire

沒關係~版主大大~我只是想說一些部份程式不太會~況且VBA都是使用VB語言系統~所以想請問有沒有高手會處理這類型問題~!

請問是多個EXCLE檔需自動執行上述的程式嗎？
如果是，建議可將資料放置於同一資料夾，再以DIR回傳檔名作為變數，以Do While執行上述程式至每個回傳目錄皆執行完畢
如果不是，能否請大大再說明問題

請參考以下 sample code 就可以了解 VBA 或 VB 對 Excel 的基本控制

Dim xlApp As Excel.Application
Dim xlBook As Workbook
Dim xlSheet As Worksheet

      Set xlApp = CreateObject("Excel.Application")
   
    Set xlBook = xlApp.Workbooks.Open("xxx.xls")

        For i = 1 To xlBook.Worksheets.Count
        Set xlSheet = xlBook.Worksheets(i)
...

瀏覽完整內容，請先 註冊 或 登入會員