帖子: 49
主題: 18
精華: 0
積分: 154
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2010-6-16
最後登錄: 2024-8-5

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-3-7 18:32 | 只看該作者

[發問] 8000多個 csv 檔的格式修改

我目前每天都有 8000 多個 csv 檔案需要修改格式
目前我的方法是寫一個程式，一個檔案一個檔案開啟修改然後儲存
但這樣的方法我發現有個問題，就是程式可能修改了五六個檔案後就會自己停下來頓一下，
過個幾秒鐘甚至一分鐘之後又繼續，導致整個程式跑完可能要花好幾個小時。
另外就是，不知道這樣的操作方式，是否會影響到整個作業系統，導致作業系統會有許多小問題
請版上各位高手是否可以建議比較有效及正確的方式，以下是我的程式碼請參考，謝謝!

Sub 資料轉檔()

Dim i As Integer
Dim mypath As String
Dim myfile As String
Dim LastRow As Integer
Dim CompanyName As String

Application.ScreenUpdating = False
date = Format(Date, "yyyymmdd")
'date = "20150112" '指定專屬日期
mypath = "D:\record\" & date & "\"
myfile = Dir(mypath & "*.csv")

Do While myfile <> ""
'開啟檔案
Workbooks.Open Filename:=mypath & myfile

With ActiveWorkbook.Sheets(1)

      '調整資料格式
      CompanyName = CStr(.Cells(2, 2))
      .UsedRange.Rows("1:3").Delete
      .UsedRange.Columns("G:K").Cut
      .Range("A" & .Rows.Count).End(xlUp).Offset(1).Insert Shift:=xlDown

      With .UsedRange.Range("A:A")

         On Error Resume Next
         .SpecialCells(xlCellTypeBlanks).EntireRow.Delete

      End With

      .UsedRange.Sort key1:=.Range("A1"), Order1:=xlAscending, Header:=xlNo
      .UsedRange.Columns(1) = date
      .UsedRange.Columns("B:B").Insert Shift:=xlToRight

      For i = 1 To .UsedRange.Rows.Count
         .Cells(i, 3) = Left(.Cells(i, 3), 4)
         .Cells(i, 5) = .Cells(i, 5).Value / 1000
         .Cells(i, 6) = .Cells(i, 6).Value / 1000
      Next
      .UsedRange.NumberFormatLocal = "G/通用格式"
      .UsedRange.Columns("B:B").NumberFormatLocal = "@"
      .UsedRange.Columns(2) = CompanyName

      myfile = Dir()
End With

'檔案儲存後關閉
ActiveWorkbook.Close True
DoEvents

Loop

Application.ScreenUpdating = True

End Sub

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-3-8 06:04 | 只看該作者

回復 1# sasho
善用 On Error Resume Next 可能是導致,修改了五六個檔案後就會自己停下來頓一下，
過個幾秒鐘甚至一分鐘之後又繼續，導致整個程式跑完可能要花好幾個小時。的主因

With .UsedRange.Range("A:A")
On Error Resume Next
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
'***下面有排序的動作,上面的.Delete似乎是多餘的 ****
.UsedRange.Sort key1:=.Range("A1"), Order1:=xlAscending, Header:=xlNo
.UsedRange.Columns(1) = date
.UsedRange.Columns("B:B").Insert Shift:=xlToRight

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2015-3-9 10:07 | 只看該作者

本帖最後由 stillfish00 於 2015-3-9 10:09 編輯

回復 1# sasho

date = Format(Date, "yyyymmdd")

複製代碼

date 是保留字，不要拿來命名變數，這樣寫應該會出錯吧。

.UsedRange.Columns("G:K").Cut
.Range("A" & .Rows.Count).End(xlUp).Offset(1).Insert Shift:=xlDown

複製代碼

還是附檔吧，看不懂要幹嘛，G:K剪下後插入到???
基本上這樣寫會出錯

On Error Resume Next
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

複製代碼

On Error Resume Next不要這樣用

For i = 1 To .UsedRange.Rows.Count
.Cells(i, 3) = Left(.Cells(i, 3), 4)
.Cells(i, 5) = .Cells(i, 5).Value / 1000
.Cells(i, 6) = .Cells(i, 6).Value / 1000
Next

複製代碼

列數很多的話，可以一次提到array處理完再一次寫回

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

sasho

中學生 Rank: 2

帖子: 49
主題: 18
精華: 0
積分: 154
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2010-6-16
最後登錄: 2024-8-5

4^#

發表於 2015-3-10 00:41 | 只看該作者

感謝兩位高手指點，我後來有修改了一下程式
發現問題其實並不在修改格式的程式碼中
而是在每次開開關關檔案的過程

不斷的開開關關導致我在資料夾
C:\Users\XXXXX\AppData\Roaming\Microsoft\Office\recent
建立了幾萬個捷徑!

每次開啟一個 excel 檔案，系統就會自動留存一筆資料
下次要再開起的時候，就可以直接到檔案 -> 最近的清單中點選
而這個資料夾中的捷徑就是這些檔案的連結

所以我想，如果是要開開關關 EXCEL 檔案的話，可能是沒解了
不曉得各位高手是否可以建議該如何將 .CSV 的資料讀取後修改原本的檔案呢?
目前 google 到的都只有寫入或輸出分別的方法，
且大部分都是循序讀取，有辦法一次將整個文本讀到記憶體中做處理嗎?

先向各位高手致謝拉~~

TOP