帖子: 58
主題: 21
精華: 0
積分: 97
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-2-28
最後登錄: 2024-10-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-6 13:07 | 只看該作者

CSV儲存問題(已解決)

本帖最後由 koala2099 於 2012-5-6 21:14 編輯

自認程式我完全不解
所以~希望有人願意幫幫我
每月不定期有.csv檔案資料進來需整理(近30個)
目前作法是一個一個開啟再做另儲存成.xls相當費時
請求有大大協助是否可使用VBA
將csvdb資料夾內的.csv儲存成.xls
另存後存放位置不變檔名不變
01.csv→01.xls
03.csv→03.xls
04.csv→04.xls
.....
最後csvdb資料來內的檔案會有.csv檔及.xls檔2種
拜託了~

CSVdb.zip (3.67 KB)

樓主熱帖

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^#

發表於 2012-5-6 14:43 | 只看該作者

回復 1# koala2099
Excel 是可以直接開啟 CSV 檔案不一定要另存為 XLS

Option Explicit
Sub Ex()
Dim xlpath As String, xlfile As String
xlpath = "D:\csvdb\"
xlfile = Dir(xlpath & "*.csv")
'Dir 函數傳回一個 String ，用以表示合乎條件、檔案屬性、磁碟標記的一個檔案名稱、或目錄、檔案夾名稱。
'Dir 會傳回第一個符合 pathname 的檔案名稱，若要取得其它符合 pathname 的檔案名稱，請重新呼叫 Dir，且不要使用引數，如果已沒有合乎條件的檔案，則 Dir 會傳回一個空字串 ("")，一旦傳回值為空字串時，如要再次呼叫 Dir ，也必須要再指定 pathname ，否則會產生錯誤
Do While xlfile <> ""
With Workbooks.Open(xlpath & xlfile)
.SaveAs Filename:=xlpath & Replace(xlfile, "csv", ".xls")
.Close SaveChanges:=True '關閉檔案 ,存檔
End With
xlfile = Dir
Loop
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-5-6 15:01 | 只看該作者

回復 2# GBKEE
全部資料都存在A欄上：
A1 -> 業務員,1月,2月,3月,總業績
A2 -> 王大木,678,15,150,843
A3 -> 張小毛,51,99,47,197
A4 -> 李小輝,343,8,50,401
A5 -> 九山林,80,46,505,631
A6 -> 鄭中心,480,65,396,941
A7 -> 王中木,996,33,49,"1,078"
A8 -> 許大山,764,944,994,"2,702"
A9 -> 張小金,503,96,9,608

TOP

koala2099

中學生 Rank: 2

帖子: 58
主題: 21
精華: 0
積分: 97
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-2-28
最後登錄: 2024-10-3

4^#

發表於 2012-5-6 15:12 | 只看該作者

本帖最後由 koala2099 於 2012-5-6 15:15 編輯

回復 2# GBKEE

CSV 檔案可直接開啟我了解
因為連接access執行需使用.xls不久前資料全面改csv
碰上前輩離職
目前待他人修改access連接前每天只好一個一個另存為xls
先解決目前的困難....
您給的資料可以使用但位置全移位了
可以~讓它位置不變嗎?
感謝大大您的幫忙
讓我在工作上可以省下許多時間
您的解釋及資料內容會詳加了解
非常感謝您~感恩^^

TOP

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兔年全勤獎章

5^#

發表於 2012-5-6 16:56 | 只看該作者

回復 3# c_c_lai
回復 4# koala2099
漏了一個參數 FileFormat:=xlNormal

Option Explicit
Sub Ex()
Dim xlpath As String, xlfile As String
xlpath = "D:\csvdb\"
xlfile = Dir(xlpath & "*.csv")
'Dir 函數傳回一個 String ，用以表示合乎條件、檔案屬性、磁碟標記的一個檔案名稱、或目錄、檔案夾名稱。
'Dir 會傳回第一個符合 pathname 的檔案名稱，若要取得其它符合 pathname 的檔案名稱，請重新呼叫 Dir，且不要使用引數，如果已沒有合乎條件的檔案，則 Dir 會傳回一個空字串 ("")，一旦傳回值為空字串時，如要再次呼叫 Dir ，也必須要再指定 pathname ，否則會產生錯誤
Do While xlfile <> ""
With Workbooks.Open(xlpath & xlfile)
.SaveAs Filename:=xlpath & Replace(xlfile, "csv", ".xls"), FileFormat:=xlNormal
.Close SaveChanges:=True '關閉檔案 ,存檔
End With
xlfile = Dir
Loop
End Sub

複製代碼

TOP

koala2099

中學生 Rank: 2

帖子: 58
主題: 21
精華: 0
積分: 97
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-2-28
最後登錄: 2024-10-3

6^#

發表於 2012-5-6 21:12 | 只看該作者

回復 5# GBKEE

:'( 完全符合需求^^非常謝謝你的幫忙

TOP