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

[ashero ( )]

軟體:
excel
版本:
2007

是專業的套裝軟體跑出來的大量excel
打算弄到access上處理
但現在有個問題就是
我的檔案副檔名雖然是xls
但是我資料剖析之後要存檔的時候他卻顯示

你指定的檔案格式 文字檔（Tab 字元分隔）
無法支援這個工作表的某些功能

所以變成我弄完要在存檔
因為excel檔的數量相當的大
所以浪費很多時間
不知道有沒有辦法可以在我處理的時候大量轉檔
或者是可以大量的資料剖析

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.75.168
→ ashero:自問自答 寫了一個巨集可以無腦資料剖析
→ ashero:不過還是不知道要如何大量轉成2003檔
推 windknife18:你不是要放到 access 嗎？ 是因為要先用 excel 處理똠
→ windknife18:不然為什麼不直接匯入 Access 呢？  你的檔案看起來
→ windknife18:該套軟體跑出來的應該是Tab分開的文字檔，只是副檔名
→ windknife18:改成 .xls 而已
→ ashero:嗯嗯是活頁簿的檔案
→ ashero:因為要先資料剖析 不然會有兩筆的數據在同一格裡
→ ashero:然後我的access 2007 又沒辦法匯入這種假xls檔
推 JieJuen:錄下"開啟-剖析-另存"的動作再改 應用到資料夾全部檔案
推 JieJuen:參考windknife18大最近幾篇vba代碼(也有放精華區)
→ ashero:有辦法他會辨識可以取代自己變成2003的檔案嗎
→ ashero:剛剛測試了一下 都是我資料夾的第一個被取代
→ ashero:可能哪裡出錯了
→ ashero:應用到資料夾全部檔案 <<<這個步驟我找不到選項呢！
推 JieJuen:#19-mPG5R 套用到全部檔案
→ ashero:#19-mPG5R 是此篇文章的所有程式碼都寫在我錄下的巨集程式
→ ashero:之後嗎？
→ ashero:剛有嘗試了一下
→ ashero:還是沒辦法
→ ashero:重申一下我目前碰到的狀況是
→ ashero:活頁簿的檔案 副檔名是xls. 內有Tab字元分隔
→ ashero:我的目標是分析數據並存成2003的xls.檔
→ ashero:所以我使用巨集資料剖析（這部份已經OK）
→ ashero:但是還是不知道怎麼讓巨集辨識自身的檔案
→ ashero:可以另存新檔的時候取代本身的檔案
> -------------------------------------------------------------------------- <

作者: windknife18 (windknife18) 看板: Office
標題: Re: [算表] excel有辦法大量轉檔嗎
時間: Wed May  6 12:58:10 2009


以下是將所有 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:感謝！
#1A0HZZHS