麻辣家族討論版版 » Excel程式區 » 檔案合併後自訂檔案名稱

返回列表下一主題上一主題發帖

[發問] 檔案合併後自訂檔案名稱

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: win 7
軟體版本: excel 2010
閱讀權限: 10
註冊時間: 2016-6-6
最後登錄: 2016-7-18

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-6-6 23:10 | 只看該作者

[發問] 檔案合併後自訂檔案名稱

想請教專業的大大們

小的已有先找過了，發現沒有發現解答，特來提問

問題如下：

要合併CSV的檔案，在合併時可以自訂檔案名稱

在Ｃ槽下有4個CSV檔，使用程式執行時，先跳出可輸入檔名的視窗，輸入後合併，完成

合併完的檔案可放在同一個資料夾，並不要刪掉原合併的４個CSV檔

請問可用VBA程式寫出嗎

收藏

大學生 Rank: 4

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

2^#

發表於 2016-6-8 11:14 | 只看該作者

回復 1# iceadagio
直接用command下的 copy 指令串接文字檔

Sub Test()
Dim f1, f2
f1 = Application.GetOpenFilename("CSV Files, *.csv", , "請選擇要合併的檔案", , True)
If TypeName(f1) = "Boolean" Then Exit Sub
f2 = Application.GetSaveAsFilename("合併", "CSV Files,*.csv", , "儲存到...")
If TypeName(f2) = "Boolean" Then Exit Sub
Shell "cmd.exe /C copy " & Join(f1, "+") & " " & f2
End Sub

複製代碼

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

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: win 7
軟體版本: excel 2010
閱讀權限: 10
註冊時間: 2016-6-6
最後登錄: 2016-7-18

3^#

發表於 2016-6-8 15:36 | 只看該作者

回復 2# stillfish00

Stillfish00大大
使用你編寫的會出現選擇要合併的檔案和要命名的檔案
只是最後沒出現合併後的檔案

小的目前只會用到合併
程式碼如下

Sub csv合併（）
Shell "come.exe /c " & " copy c:\*.csv c:\1.csv" , vbnormalfocus
End sub

請問要合併的檔名可以用像inputbox直接輸入就完成嗎

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: win 7
軟體版本: excel 2010
閱讀權限: 10
註冊時間: 2016-6-6
最後登錄: 2016-7-18

4^#

發表於 2016-6-8 23:37 | 只看該作者

回復 2# stillfish00

Stillfish00大大

小的使用2010版確定可以使用
不過公司的是2007版
請問要做什麼修改才可以在2007版使用?

中學生 Rank: 2

帖子: 34
主題: 14
精華: 0
積分: 61
點名: 0
作業系統: Winxp
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-1-25
最後登錄: 2019-3-4

5^#

發表於 2016-6-9 10:11 | 只看該作者

請問 Application.GetOpenFilename，Application.GetSaveAsFilename，join 等一類語法應從何入手才能了解更多(如書藉，關鍵字)？因一般的vba教材都只教授function。如能提點，感激萬分！

回復 iceadagio
直接用command下的 copy 指令串接文字檔
stillfish00 發表於 2016-6-8 11:14

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

6^#

發表於 2016-6-9 21:27 | 只看該作者

回復 4# iceadagio
這是用2007版寫的，請參考。

合併CSV.zip (16.9 KB)

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

7^#

發表於 2016-6-11 19:47 | 只看該作者

回復 7# iceadagio
試試看網路硬碟。
http://www.FunP.Net/32685

大學生 Rank: 4

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

8^#

發表於 2016-6-13 16:42 | 只看該作者

回復 5# zxcxz
已知 function 名稱，到說明內查詢就能了解更多了

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

大學生 Rank: 4

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

9^#

發表於 2016-6-13 16:53 | 只看該作者

回復 4# iceadagio
2007哪個地方出錯?
我沒2007恐怕無法回答。

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

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

10^#

發表於 2016-6-13 20:15 | 只看該作者

回復 10# stillfish00
Stillfish00大大寫的程式碼，我用2007版來Run也沒有問題。

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題