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

iceadagio

想請教專業的大大們

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

問題如下：

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

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

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

請問可用VBA程式寫出嗎

stillfish00

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

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

複製代碼

iceadagio

回復 2# stillfish00


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

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

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

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

iceadagio

回復 2# stillfish00


Stillfish00大大

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

zxcxz

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

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

Kubi

回復 4# iceadagio
這是用2007版寫的，請參考。
合併CSV.zip (16.9 KB)

下載次數: 3

2016-6-9 21:26

Kubi

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

stillfish00

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

下載 (162.53 KB)

2016-6-13 16:41

stillfish00

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

Kubi

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