Code copy sheet và tạo folder mới rồi dán sheet

[namkpac]

Em mở 1 top mới chứ bài viết bên kia không đúng chỗ
Các anh chị giúp em 1 trường hợp này với; em có 1 file excel tên GIAYMOI nằm trong 1 folder tên DICH, bây giờ em muốn copy sheet1 trong file excel GIAYMOI đồng thời tạo 1 folder mới với tên của folder được lấy từ cell A4 của sheet1 và khi copy xong là đưa sheet1 này vào chính folder mới tạo có tên được lấy từ cell A4 của sheet1 đó và tên file mới sau khi copy đó cũng tên được lấy từ cell A4 luôn. thêm điều kiện là nếu có trùng thì báo và lưu mới cũng gồm tên được lấy tại cell A4 và thêm thời gian, ngày tháng năm sau tên đó. Em gửi kèm ví dụ luôn trong đó GIAYMOI là file gốc.

 

[namkpac]

Từ hồi đó đến giờ tham gia GPE bạn học được bao nhiêu và đã từng trả phí lần nào chưa? Nếu chưa thì đừng nên nói câu này ---> Mích lòng lắm
Bởi nếu có ai đó muốn bạn trả phí thì không có nghĩa là tất cả thành viên trên GPE này đều như vậy!
Nếu người ta chưa giúp được cũng có nhiều nguyên nhân lắm, đơn giản là chưa rảnh (như tôi chẳng hạn)
Ngoài ra cũng đừng nên "hối thúc". Tôi ghét nhất việc này và với tôi: Càng hối thúc tôi càng.. chạy!

Hic sory, ý em ko phải vậy mà là cũng có cố gắng để làm nhưng chưa được và có lẽ mọi người bận nên chưa quan tâm. Em có sưu tầm 1 cái trên mạng cũng gần như thế nhưng chỉ tạo thêm được folder trong folder thôi còn cái file thì ko vô được. em post lên luôn có gì nhờ mọi người chỉ giúp.

 

[ndu96081631]

Hic sory, ý em ko phải vậy mà là cũng có cố gắng để làm nhưng chưa được và có lẽ mọi người bận nên chưa quan tâm. Em có sưu tầm 1 cái trên mạng cũng gần như thế nhưng chỉ tạo thêm được folder trong folder thôi còn cái file thì ko vô được. em post lên luôn có gì nhờ mọi người chỉ giúp.

Khẳng định với bạn rằng: Yêu cầu này chẳng khó khăn tí nào cả. Vì vậy bạn cứ "vọc" thoải mái hoặc yên tâm.. chờ, sẽ có người giúp bạn
Vậy nha!

 

[namkpac]

Hic em tưởng anh sẽ giúp chứ em chờ và post bài mấy ngày rồi và cũng tìm cách giải quyết rồi nhưng chưa được, mà có người giải quyết được vấn đề nhưng lại có 1 đề nghị phải được trả phí. Hic ko biết phải nhờ ai?

 

[belukn]

Khẳng định với bạn rằng: Yêu cầu này chẳng khó khăn tí nào cả. Vì vậy bạn cứ "vọc" thoải mái hoặc yên tâm.. chờ, sẽ có người giúp bạn
Vậy nha!

Thôi bạn giúp được người ta thì giúp, không giúp được thì thôi đừng vòng vèo nữa! Nếu "Không khó khăn tí nào" thì viết đoạn code chắc chỉ 10-20 phút là xong thôi nhỉ. Vậy mà bạn lại viện lí do là bận trong khi bạn vẫn có thời gian trả lời bao nhiêu bài cũng trong khoảng thời gian bạn nói là bận đó. Người ta lên diễn đàn để nhờ sự chia sẻ, giúp đỡ mà cứ như đi van xin vậy!

 

[namkpac]

Thôi bạn giúp được người ta thì giúp, không giúp được thì thôi đừng vòng vèo nữa! Nếu "Không khó khăn tí nào" thì viết đoạn code chắc chỉ 10-20 phút là xong thôi nhỉ. Vậy mà bạn lại viện lí do là bận trong khi bạn vẫn có thời gian trả lời bao nhiêu bài cũng trong khoảng thời gian bạn nói là bận đó. Người ta lên diễn đàn để nhờ sự chia sẻ, giúp đỡ mà cứ như đi van xin vậy!

E tạo được folder và file rồi đấy nhưng ko biết cách nào để save as cái file vào thư mục mói tạo mà dùng .path thì nó lưu vào folder hiện hành ma ko lưu được vào cái folder mới. A chị nào có thể chỉ giúp với thanks

 

[ndu96081631]

Thôi bạn giúp được người ta thì giúp, không giúp được thì thôi đừng vòng vèo nữa! Nếu "Không khó khăn tí nào" thì viết đoạn code chắc chỉ 10-20 phút là xong thôi nhỉ. Vậy mà bạn lại viện lí do là bận trong khi bạn vẫn có thời gian trả lời bao nhiêu bài cũng trong khoảng thời gian bạn nói là bận đó. Người ta lên diễn đàn để nhờ sự chia sẻ, giúp đỡ mà cứ như đi van xin vậy!

Vâng! Nếu đã nói thế thì tôi trả lời rằng: TÔI KHÔNG GIÚP ĐƯỢC. Bạn giúp được thì xin mời
vậy đi nha!

 

[namkpac]

Vâng! Nếu đã nói thế thì tôi trả lời rằng: TÔI KHÔNG GIÚP ĐƯỢC. Bạn giúp được thì xin mời
vậy đi nha!

Hic các anh các chị đừng nói qua nói về vậy. E chỉ mong được giúp đỡ những gì mình ko hiểu và chưa làm được. Diễn đàn đã giúp ko những em mà rất nhiều người học được nhiều vì vậy em mong các anh chị giúp em và cũng la giúp nhiều người hiểu thêm được cách thức lưu dữ liệu với những cách thức khác nhau em cam ơn mọi người.

 

[namkpac]

Anh ndu96081631 và mọi người giúp e giải quyết vấn đề nay với

 

[thanhtratt]

Em cảm ơn anh mô tả đúng như ý em rồi, còn về cùng 1 thời điểm thì có thể thêm tới ss luôn được không anh
Sub Xuatdulieu()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Sheets(Array(sheet1.Name)).Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path

 

[Hau151978]

Hic các anh các chị đừng nói qua nói về vậy. E chỉ mong được giúp đỡ những gì mình ko hiểu và chưa làm được. Diễn đàn đã giúp ko những em mà rất nhiều người học được nhiều vì vậy em mong các anh chị giúp em và cũng la giúp nhiều người hiểu thêm được cách thức lưu dữ liệu với những cách thức khác nhau em cam ơn mọi người.

Nếu nick belukn là của bạn thì mình khuyên bạn không nên làm vậy. Một nick vừa tạo chỉ để post 1 bài, bác ndu là smod có thể scan IP để xem 2 nick có chung 1 IP hay không.
Trở lại vấn đề của bạn, mấy cái code save file vào folder thì mình làm được nhưng nếu tiếng Việt có dấu thì mình chịu.

 

[namkpac]

Nếu nick belukn là của bạn thì mình khuyên bạn không nên làm vậy. Một nick vừa tạo chỉ để post 1 bài, bác ndu là smod có thể scan IP để xem 2 nick có chung 1 IP hay không.
Trở lại vấn đề của bạn, mấy cái code save file vào folder thì mình làm được nhưng nếu tiếng Việt có dấu thì mình chịu.

Mình ko biết nick belukn là ai và mình cũng ko có ý khích tướng ai cả mình mong nhận được sự giúp đỡ từ mọi người. Còn vấn đề của mình là folder ko lưu bằng tiếng việt cái đó sẽ rất phức tạp, mong nhận được sự giúp đỡ.

 

[namkpac]

E có mượn 1 đoạn code để học thêm cách lưu file ngoài khi tạo folder mới. Tất nhiên là e hiểu hihi chỉ là học thôi a.

 

[Hau151978]

Tinh thần không phải vậy. Tức là từ file GIAYMOI ta tạo một button lưu và khi bấm thì nó sẽ copy sheet1 trong file excel GIAYMOI đồng thời tạo 1 folder mới với tên của folder được lấy từ cell A4 của sheet1 và khi copy xong là đưa sheet1 này vào chính folder mới tạo có tên được lấy từ cell A4 của sheet1 đó và tên file mới sau khi copy đó cũng tên được lấy từ cell A4 luôn. thêm điều kiện là nếu có trùng thì báo và lưu mới cũng gồm tên được lấy tại cell A4 và thêm thời gian, ngày tháng năm sau tên đó. và toàn bộ cùng nằm trong 1 thư mục chung l à thư mục DICH

Option Explicit
Private fso As FileSystemObject
Function TaoFolder(ByVal FolderPath$, ByVal FolderName$) As Boolean
    Dim Path$
    Path = FolderPath & "\" & FolderName
    If Not fso.FolderExists(Path) Then
        fso.CreateFolder (Path)
        TaoFolder = True
    End If
End Function
Function SaveWorkbook(ByVal FilePath$, ByVal FileName$) As Boolean
    Dim FullFileName$
    FullFileName = FilePath & "\" & FileName & ".xlsx"
    If Not fso.FileExists(FullFileName) Then
        ThisWorkbook.ActiveSheet.Copy
        Workbooks(Workbooks.Count).SaveAs FullFileName
        Workbooks(FileName & ".xlsx").Close True
        SaveWorkbook = True
    End If
End Function
Sub Main()
    Dim FolderPath$, FolderName$, FilePath$, FileName$
    Application.ScreenUpdating = False
    Set fso = New FileSystemObject
    FolderPath = ThisWorkbook.Path
    FolderName = Cells(4, 1).Text
    If Not TaoFolder(FolderPath, FolderName) Then MsgBox "Folder existed!"
    FilePath = FolderPath & "\" & FolderName
    FileName = FolderName & Format(Now, "hh-mm-ss dd-mm-yyyy")
    If Not SaveWorkbook(FilePath, FileName) Then MsgBox "File existed!"
    Set fso = Nothing
    Application.ScreenUpdating = True
End Sub

 

[chuot0106]

Option Explicit
[COLOR=#ff0000]Private fso As FileSystemObject[/COLOR]
Function TaoFolder(ByVal FolderPath$, ByVal FolderName$) As Boolean
    Dim Path$
    Path = FolderPath & "\" & FolderName
    If Not fso.FolderExists(Path) Then
        fso.CreateFolder (Path)
        TaoFolder = True
    End If
End Function
Function SaveWorkbook(ByVal FilePath$, ByVal FileName$) As Boolean
    Dim FullFileName$
    FullFileName = FilePath & "\" & FileName & ".xlsx"
    If Not fso.FileExists(FullFileName) Then
        ThisWorkbook.ActiveSheet.Copy
        Workbooks(Workbooks.Count).SaveAs FullFileName
        Workbooks(FileName & ".xlsx").Close True
        SaveWorkbook = True
    End If
End Function
Sub Main()
    Dim FolderPath$, FolderName$, FilePath$, FileName$
    Application.ScreenUpdating = False
    Set fso = New FileSystemObject
    FolderPath = ThisWorkbook.Path
    FolderName = Cells(4, 1).Text
    If Not TaoFolder(FolderPath, FolderName) Then MsgBox "Folder existed!"
    FilePath = FolderPath & "\" & FolderName
    FileName = FolderName & Format(Now, "hh-mm-ss dd-mm-yyyy")
    If Not SaveWorkbook(FilePath, FileName) Then MsgBox "File existed!"
    Set fso = Nothing
    Application.ScreenUpdating = True
End Sub

Chỗ màu đỏ chắc anh nhầm thì phải.

 

[Quang_Hải]

Mình ko biết nick belukn là ai và mình cũng ko có ý khích tướng ai cả mình mong nhận được sự giúp đỡ từ mọi người. Còn vấn đề của mình là folder ko lưu bằng tiếng việt cái đó sẽ rất phức tạp, mong nhận được sự giúp đỡ.

Mình mong là MOD sẽ gởi IP của 2 nick lên để minh oan cho bạn. Nhưng cá nhân mình cũng cho là 2 nick là 1 người. Vì lẽ đó nên mình không viết code. Chứ dạng code này thật sự là không khó lắm.

 

[Let'GâuGâu]

Mình mong là MOD sẽ gởi IP của 2 nick lên để minh oan cho bạn. Nhưng cá nhân mình cũng cho là 2 nick là 1 người. Vì lẽ đó nên mình không viết code. Chứ dạng code này thật sự là không khó lắm.

làm sao biết được anh?
tôi thường xuyên truy cập IP ở cty, về nhà truy cập ở nhà, ra quán cafe thì "free wife" của quán
thì làm sao biết ai là ai...hihihih
thôi thì cái gì bỏ qua được thì bỏ, bỏ hỏng được thì xử
.......hihihihi

 

[Hau151978]

Chỗ màu đỏ chắc anh nhầm thì phải.

File chạy tốt mà chuot, có thể đặt tên file và folder tiếng Việt.
2 IP trùng nhau có thể do 2 người dùng chung mạng. 2 IP khác nhau ở cùng 1 địa điểm có thể do dùng mạng 3G hoặc mạng có dây nhưng IP động đã bị reset.

 

[namkpac]

làm sao biết được anh?
tôi thường xuyên truy cập IP ở cty, về nhà truy cập ở nhà, ra quán cafe thì "free wife" của quán
thì làm sao biết ai là ai...hihihih
thôi thì cái gì bỏ qua được thì bỏ, bỏ hỏng được thì xử
.......hihihihi

E cũng đề nghị làm rõ bởi vì em cũng ko biết người đó là ai. Em biết a quanghai và a ndu lâu rồi. Có lẽ cần tới ban quản trị web để minh oan cho e thôi. Hơn nữa e cũng chẳng có gì để nói khích khi có người đề nghị e nạp card mobi cho 1 đoạn code như vậy.

 

[namkpac]

A quanghai có thể coi lại các bài a giúp e. Thôi dẫu sao tự mình minh oan cho mình là khó tuy nhiên những a chị nào có quyền super add thì sẽ biết liền. E là Nam ở Buôn Ma Thuột công tác tại krông păc nên e lấy nick là namkpac mong mọi người đừng hiểu lầm

 

[Kiều Mạnh]

E cũng đề nghị làm rõ bởi vì em cũng ko biết người đó là ai. Em biết a quanghai và a ndu lâu rồi. Có lẽ cần tới ban quản trị web để minh oan cho e thôi. Hơn nữa e cũng chẳng có gì để nói khích khi có người đề nghị e nạp card mobi cho 1 đoạn code như vậy.

Bạn thử code sau xem thế nào nha Thay đổi tên Folder tại A4

Public Sub Backup_File()
    Dim MyFolder As String
    MyFolder = "D:\" & Range("A4").Value
    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(MyFolder) Then .CreateFolder MyFolder
    End With
    With ThisWorkbook
        .SaveCopyAs MyFolder & "\" & Format(Now, "hh-mm-ss dd-mm-yyyy") & .Name
    End With
End Sub