檔案合併後自訂檔案名稱 - Excel程式區

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

帖子: 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直接輸入就完成嗎

TOP

stillfish00

大學生 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

複製代碼

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

TOP

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]