Re: [算表] excel有辦法大量轉檔嗎

[windknife18 (windknife18)]

以下是將所有 c:\work 目錄下的檔案一起處理的範例，
會將所有格式存檔成為 excel 標準格式，請自行修改成你想要的囉 ^_^


Sub Macro1()

    Dim path As String
    Dim obApp     As New Excel.Application
    Dim myFso: Set myFso = CreateObject("Scripting.FileSystemObject")
    Dim wbnew

     '要處理的目錄
     path = "c:\work\"

     obApp.DisplayAlerts = False
     obApp.ScreenUpdating = False
     Dim myfiles: Set myfiles = myFso.GetFolder(path).Files

     For Each myFile In myfiles
        Set wbnew = obApp.Workbooks.Open(path & myFile.Name)
        With wbnew.Worksheets(1)
            .Cells(3, 3) = "AAAAAAAA" '測試請修改
        End With
        '存檔並改成 excel 格式
        wbnew.SaveAs Filename:=path & myFile.Name, FileFormat:=xlNormal
        wbnew.Close
        Set wbnew = Nothing
     Next
     obApp.ScreenUpdating = True
     obApp.DisplayAlerts = True
     Set obApp = Nothing

    MsgBox ("完成!")
End Sub


※ 引述《ashero ( )》之銘言：
: 軟體:
: excel
: 版本:
: 2007
: 是專業的套裝軟體跑出來的大量excel
: 打算弄到access上處理
: 但現在有個問題就是
: 我的檔案副檔名雖然是xls
: 但是我資料剖析之後要存檔的時候他卻顯示
: 你指定的檔案格式 文字檔（Tab 字元分隔）
: 無法支援這個工作表的某些功能
: 所以變成我弄完要在存檔
: 因為excel檔的數量相當的大
: 所以浪費很多時間
: 不知道有沒有辦法可以在我處理的時候大量轉檔
: 或者是可以大量的資料剖析

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.131.84.79
推 ashero:感謝！