[發問] VBA請益如何選取多檔後上傳至目的檔

rouber590324

Dear ALL 大大:
1.如圖一目前可以選取單一檔案成功上傳,
2.但是改成多檔後上傳會沒有動作,
2.1目前單檔選曲寫法:
      source = Application.GetOpenFilename
2.2目前多檔選取寫法:
      'source = Application.GetOpenFilename(MultiSelect:=True)
3.請教如何修改為多檔後上傳至目的檔.煩不吝賜教. THANKS

圖一
Sub test()
Dim folder As String '資料
Dim source As String '來源檔
Dim dest As String '目的檔
Dim p As Integer
Dim s As Integer
Dim i As Long

folder = "D:\ABC" '存取目的位置

source = Application.GetOpenFilename '來源

If source = "False" Then: MsgBox "上傳失敗，請選取正確來源檔案。": Exit Sub

p = 1
i = 1
Do Until p = 0
p = InStr(i, source, "\", 1)
If p = 0 Then Exit Do
s = p
i = p + 1
Loop

dest = folder & Mid(source, s, Len(source))

If Dir(dest) <> "" Then
MsgBox msg1
Else
FileCopy source, dest
MsgBox source & " 已上傳。"
End If
Exit Sub
End Sub

naruto018

回復 1# rouber590324

參考看看

1. Sub test()
   
2. Dim folder As String '資料
   
3. Dim source ' As String '來源檔
   
4. Dim source2, source3, source4 As String
   
5. Dim dest As String '目的檔
   
6. Dim p As Integer
   
7. Dim s As Integer
   
8. Dim i As Long
   
9. 
   
10. folder = "D:\ABC" '存取目的位置
    
11. 
    
12. source = Application.GetOpenFilename(MultiSelect:=True)  '來源
    
13. 
    
14. If Not IsArray(source) Then: MsgBox "上傳失敗，請選取正確來源檔案。": Exit Sub
    
15. 
    
16. For Each source2 In source
    
17.     source3 = Split(source2, "\")
    
18.     source4 = source3(UBound(source3))
    
19.         
    
20.     dest = IIf(Right(folder, 1) = "\", folder, folder & "\") & source4
    
21.    
    
22.     If Dir(dest) <> "" Then
    
23.     MsgBox msg1
    
24.     Else
    
25.     FileCopy source2, dest
    
26.     MsgBox source2 & " 已上傳。"
    
27.     End If
    
28. Next
    
29. End Sub

複製代碼

rouber590324

DEAR naruto018  大大
感謝解惑  THANKS*10000