Coppy/paste file và đổi tên...Mong giúp đỡ...!!!

Liên hệ QC
A

alias1313

Thành viên hoạt động
Tham gia
7/4/17
Bài viết
163
Được thích
13
Em có đoan code...coppy/paste file..
Chay báo ok...nhưng không thấy file coppy đâu
Mã: 
Sub Tao_file()
 
Dim FSO As Object
Dim sFile1 As String
Dim From_path1 As String
Dim To_path As String
Dim path_name As String
      
    'This is Your File Name which you want to Copy

sFile1 = "abc.xlsx"
'Change to match the source folder path

From_path1 = "C:\"
'Change to match the destination folder path

To_path = "C:\"
'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")
'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(From_path1 & sFile1) Then
MsgBox "Specified File Not Found", vbInformation, "Not Found"
'Copying If the Same File is Not Located in the Destination Folder
ElseIf  FSO.FileExists(From_path1 & sFile1) Then
FSO.CopyFile (From_path1 & sFile1), From_path1, True
MsgBox "Specified File Copied Successfully", vbInformation, "Done!"
Else
MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If
End Sub

Có ai biết tại sao..chỉ em với...
Các anh cho em xin đoạn code đổi tên file sau khi coppy...


Chào thân ái....!!!
 

File đính kèm

  • coppyFile.xlsm
    17.5 KB · Đọc: 6
alias1313 đã viết:
Em có đoan code...coppy/paste file..
Chay báo ok...nhưng không thấy file coppy đâu
Mã: 
Sub Tao_file()
 
Dim FSO As Object
Dim sFile1 As String
Dim From_path1 As String
Dim To_path As String
Dim path_name As String
    
    'This is Your File Name which you want to Copy

sFile1 = "abc.xlsx"
'Change to match the source folder path

From_path1 = "C:\"
'Change to match the destination folder path

To_path = "C:\"
'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")
'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(From_path1 & sFile1) Then
MsgBox "Specified File Not Found", vbInformation, "Not Found"
'Copying If the Same File is Not Located in the Destination Folder
ElseIf  FSO.FileExists(From_path1 & sFile1) Then
FSO.CopyFile (From_path1 & sFile1), From_path1, True
MsgBox "Specified File Copied Successfully", vbInformation, "Done!"
Else
MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If
End Sub

Có ai biết tại sao..chỉ em với...
Các anh cho em xin đoạn code đổi tên file sau khi coppy...


Chào thân ái....!!!
Nhấp chuột vào đây để mở rộng...
Dùng code sau thử nhé:

Mã: 
Sub Copy_File()
    Dim src As String, dst As String, fl As String
    Dim rfl As String
    
    'Duong dan file can copy
    src = "D:\"
    'Duong dan file minh can copy den
    dst = "E:\"
    'Ten file can copy
    fl = "HLMT.xlsx"
    'Doi ten file thanh ten file moi
    rfl = "HLMT_New.xlsx"
    FileCopy src & "\" & fl, dst & "\" & rfl

End Sub
 
Hai Lúa Miền Tây đã viết:
Dùng code sau thử nhé:

Mã: 
Sub Copy_File()
    Dim src As String, dst As String, fl As String
    Dim rfl As String
   
    'Duong dan file can copy
    src = "D:\"
    'Duong dan file minh can copy den
    dst = "E:\"
    'Ten file can copy
    fl = "HLMT.xlsx"
    'Doi ten file thanh ten file moi
    rfl = "HLMT_New.xlsx"
    FileCopy src & "\" & fl, dst & "\" & rfl

End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn Anh nhiều...
Em đã test code chạy tốt nếu: scr và dst khac nhau
khi scr va dst giống nhau( nghĩa là cùng địa chỉ) thì báo lỗi path

em co file: abc.xls trong ổ C:\folder1, giờ em muốn tạo một bản sao của nó và đổi tên thành abc03062017.xls được không Anh
Anh sửa code giúp em đi...
 
alias1313 đã viết:
Em có đoan code...coppy/paste file..
Chay báo ok...nhưng không thấy file coppy đâu
Mã: 
Sub Tao_file()
 
Dim FSO As Object
Dim sFile1 As String
Dim From_path1 As String
Dim To_path As String
Dim path_name As String
    
    'This is Your File Name which you want to Copy

sFile1 = "abc.xlsx"
'Change to match the source folder path

From_path1 = "C:\"
'Change to match the destination folder path

To_path = "C:\"
'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")
'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(From_path1 & sFile1) Then
MsgBox "Specified File Not Found", vbInformation, "Not Found"
'Copying If the Same File is Not Located in the Destination Folder
ElseIf  FSO.FileExists(From_path1 & sFile1) Then
FSO.CopyFile (From_path1 & sFile1), From_path1, True
MsgBox "Specified File Copied Successfully", vbInformation, "Done!"
Else
MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If
End Sub

Có ai biết tại sao..chỉ em với...
Các anh cho em xin đoạn code đổi tên file sau khi coppy...


Chào thân ái....!!!
Nhấp chuột vào đây để mở rộng...

bạn khai báo đại khái như này là được

Mã: 
FSO.CopyFile "c:\ten.xlsx", "d:\ten2.xlsx"
 
Mấy anh ơi, em muốn hỏi chủ đề này luôn nhưng cao hơn tí!
Em có file ở data mấy chủ, nhưng mỗi lần lấy phải vào total commander => đăng nhập pass mặc định mới down về được! (Địa chỉ IP cố định)

Làm như bài này thì có thể sửa code như thế nào để auto lấy về khi click không ạ?
 
babyheomoi đã viết:
Mấy anh ơi, em muốn hỏi chủ đề này luôn nhưng cao hơn tí!
Em có file ở data mấy chủ, nhưng mỗi lần lấy phải vào total commander => đăng nhập pass mặc định mới down về được! (Địa chỉ IP cố định)

Làm như bài này thì có thể sửa code như thế nào để auto lấy về khi click không ạ?
Nhấp chuột vào đây để mở rộng...

tôi không chắc có thể giúp ích gì cho bạn, chỉ để lại đây cách tải file trên máy chủ ftp nếu có sẵn tài khoản đăng nhập

Mã: 
Public Sub hello()
Dim myURL As String, oStream As Object, bytes() As Byte, req As Object
myURL = "ftp://192.168.0.96/user-blue.png"
Set req = CreateObject("MSXML2.XMLHTTP")
req.Open "FTPGET", myURL, False, "username", "password"
req.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
bytes = req.responseBody
oStream.Write bytes
oStream.SaveToFile "d:\" & Mid(myURL, InStrRev(myURL, "/") + 1), 2
oStream.Close
End Sub
 
Làm sao sửa code để coppy được 2 file các Anh....
C:\file1 to C:\folfer1
C:\file2 to C:\folfer2
Các anh giúp em với....
Thanks bạn @AutoReply
 
alias1313 đã viết:
Làm sao sửa code để coppy được 2 file các Anh....
C:\file1 to C:\folfer1
C:\file2 to C:\folfer2
Các anh giúp em với....
Thanks bạn @AutoReply
Nhấp chuột vào đây để mở rộng...
Sao hỏi tùm lum vậy trời? Cái nọ xọ cái kia. Đang copy file chưa xong lại vòng sang việc download file từ máy chủ...
Mà bài 6 trả lời rồi cũng không thấy bạn phản hồi, giờ lại copy file tiếp. Rồi topic này thì sao:
http://www.giaiphapexcel.com/diendan/threads/coppy-2-file-tới-2-folder-khác-nhau.125432/
Lan man không đâu ra đâu, thôi thì học lại từ cơ bản cho chắc bạn à!
 
ndu96081631 đã viết:
Sao hỏi tùm lum vậy trời? Cái nọ xọ cái kia. Đang copy file chưa xong lại vòng sang việc download file từ máy chủ...
Mà bài 6 trả lời rồi cũng không thấy bạn phản hồi, giờ lại copy file tiếp. Rồi topic này thì sao:
http://www.giaiphapexcel.com/diendan/threads/coppy-2-file-tới-2-folder-khác-nhau.125432/
Lan man không đâu ra đâu, thôi thì học lại từ cơ bản cho chắc bạn à!
Nhấp chuột vào đây để mở rộng...



Hix! oan cho em....em đang hỏi coppy file mà....( Lấy file từ máy chủ là bạn @babyheomoi hỏi....)
Em coppy 2 file tới 2 folder khác nhau không được Thầy @ndu96081631 giup em với......
 
alias1313 đã viết:
Hix! oan cho em....em đang hỏi coppy file mà....( Lấy file từ máy chủ là bạn @babyheomoi hỏi....)
Em coppy 2 file tới 2 folder khác nhau không được Thầy @ndu96081631 giup em với......
Nhấp chuột vào đây để mở rộng...
Tôi đã trả lời cho bạn rồi mà:
Mã: 
Sub Copy_File()
     FileCopy "C:\MATERIAL LIST.xls", "C:\Folder1\MATERIAL.xls"
     FileCopy "C:\Document.xls", "C:\Folder2\Document123.xls"

End Sub
 
Hai Lúa Miền Tây đã viết:
Tôi đã trả lời cho bạn rồi mà:
Mã: 
Sub Copy_File()
     FileCopy "C:\MATERIAL LIST.xls", "C:\Folder1\MATERIAL.xls"
     FileCopy "C:\Document.xls", "C:\Folder2\Document123.xls"

End Sub
Nhấp chuột vào đây để mở rộng...

Tôi phải lưu ý trước cho ai muốn sử dụng hàm FileCopy cân nhắc trước khi sử dụng :
Hàm FileCopy không hỗ trợ đường dẫn có chứa kí tự tiếng Việt có dấu.
Và đề tài này đã được chủ thớt lập đề tài khác để hỏi, nên không cần thiết phải trả lời gì thêm ở đây.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
Outstanding Сasual Dating - Real-life Females
Trả lời
0
Đọc
23
chua123
C
phanmoi688
[Xin nhờ giúp đỡ] Cách đối chiếu dữ liệu giữa hai biểu
    • Thích
Trả lời
13
Đọc
159
VetMini
V
V
Giúp công thức cộng tổng cột SỐ lượng theo cột STT nếu trùng lấy dòng nằm trên
Trả lời
14
Đọc
459
VetMini
V
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
112
Đọc
19K
Hongngoc710
Hongngoc710
V
  • Question
Tìm kiếm và copy giá trị từ bảng đến bảng khác
Trả lời
5
Đọc
79
BuiQuangThuan
B
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom