Code copy sheet và tạo folder mới rồi dán sheet (1 người xem)

  • Thread starter Thread starter namkpac
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

namkpac

Thành viên thường trực
Tham gia
25/11/08
Bài viết
279
Được thích
9
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.
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
namkpac đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo link này nhé!
http://www.giaiphapexcel.com/forum/...de-vba-tách-dữ-liệu-ra-thành-từng-sheet-riêng
 
Upvote 0
nnd1988 đã viết:
Bạn tham khảo link này nhé!
http://www.giaiphapexcel.com/forum/...de-vba-tách-dữ-liệu-ra-thành-từng-sheet-riêng
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
Em làm được phần copy rồi còn phần tạo folder mới với tên folder được lấy từ cell A4 trong sheet1 và tên của file cũng được lấy từ cell A4 trong sheet1 luôn nhờ anh chị giúp với
 

File đính kèm

Upvote 0
namkpac đã viết:
Em làm được phần copy rồi
Nhấp chuột vào đây để mở rộng...

Bạn làm được sao không đưa lên đây?
----------------------
namkpac đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Tôi mô tả lại vấn đề:
- Đầu tiên bạn có file GIAYMOI nằm trong thư mục DICH (hay gì gì đó), trong file có Sheet1, trong Sheet1 có cell A4 đang chứa dữ liệu gì đó. Ta sẽ lấy dữ liệu tại cell A4 này để đặt tên cho file và folder, đúng không?
- Bây giờ nếu chạy code, ta sẽ tạo ngay 1 folder có tên là giá trị của cell A4 (trong file là folder Ong A), đồng thời copy sheet1 ra 1 workbook mới, lưu nó với tên cũng là giá trị của cell A4 (trong file là Ong A.xlsx) và cho file nằm trong thư mục vừa tạo (thư mục Ong A)
- Nếu bấm nút chạy code lần nữa, cũng sẽ tạo folder và file tương tự như trên nhưng nếu folder đã tồn tại thì sẽ tạo 1 folder khác với tên là giá trị cell A4 + chuỗi giờ phút + chuỗi ngày tháng năm... ví dụ là folder Ong A 08-30-25-6-2015. Sheet1 vừa copy cũng sẽ được lưu trong folder mới này
- Đoạn chuỗi màu đỏ ở trên mang ý nghĩa 8:30 25/6/2015 <--- Đúng không?
---------------------------------------------
Vậy có câu hỏi cho bạn: Tại thời điểm 8:30 cùng ngày, nếu ta bấm nút chạy code 2 hoặc nhiều lần liên tiếp thì sẽ tạo folder thế nào?
 
Upvote 0
ndu96081631 đã viết:
Bạn làm được sao không đưa lên đây?
----------------------

Tôi mô tả lại vấn đề:
- Đầu tiên bạn có file GIAYMOI nằm trong thư mục DICH (hay gì gì đó), trong file có Sheet1, trong Sheet1 có cell A4 đang chứa dữ liệu gì đó. Ta sẽ lấy dữ liệu tại cell A4 này để đặt tên cho file và folder, đúng không?
- Bây giờ nếu chạy code, ta sẽ tạo ngay 1 folder có tên là giá trị của cell A4 (trong file là folder Ong A), đồng thời copy sheet1 ra 1 workbook mới, lưu nó với tên cũng là giá trị của cell A4 (trong file là Ong A.xlsx) và cho file nằm trong thư mục vừa tạo (thư mục Ong A)
- Nếu bấm nút chạy code lần nữa, cũng sẽ tạo folder và file tương tự như trên nhưng nếu folder đã tồn tại thì sẽ tạo 1 folder khác với tên là giá trị cell A4 + chuỗi giờ phút + chuỗi ngày tháng năm... ví dụ là folder Ong A 08-30-25-6-2015. Sheet1 vừa copy cũng sẽ được lưu trong folder mới này
- Đoạn chuỗi màu đỏ ở trên mang ý nghĩa 8:30 25/6/2015 <--- Đúng không?
---------------------------------------------
Vậy có câu hỏi cho bạn: Tại thời điểm 8:30 cùng ngày, nếu ta bấm nút chạy code 2 hoặc nhiều lần liên tiếp thì sẽ tạo folder thế nào?
Nhấp chuột vào đây để mở rộng...
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 & "\Du lieu luu ngay " & Format(Now(), "dd-mm-yyyy")

ActiveWorkbook.Close True
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
namkpac đã viết:
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
Nhấp chuột vào đây để mở rộng...
Tôi thắc mắc:
- Tại sao lại tạo quá nhiều folder trong khi mỗi folder chỉ chứa duy nhất có 1 file?
- Tại sao không lưu toàn bộ file chung 1 folder và đặt tên theo format Range("A4").Value & "_hh.mm.ss_dd-mm-yyyy" & ".xlsx"
???
Bởi nếu lưu theo format như trên, bạn cũng đâu có lo gì chuyện file bị ghi đè
 
Upvote 0
Dạ đúng rồi anh tức là nếu trong A4 mà nội dung không thay đổi thì chỉ lưu file thôi không tạo folder nữa còn nếu trong A4 mà nội dung thay đổi thì lưu lại folder mới và tên file mới theo nội dung của A4 ạ.
 
Upvote 0
namkpac đã viết:
Dạ đúng rồi anh tức là nếu trong A4 mà nội dung không thay đổi thì chỉ lưu file thôi không tạo folder nữa còn nếu trong A4 mà nội dung thay đổi thì lưu lại folder mới và tên file mới theo nội dung của A4 ạ.
Nhấp chuột vào đây để mở rộng...
Tôi thấy bài #8 và bài đầu của bạn mâu thuẫn quá!
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
ndu96081631 đã viết:
Tôi thắc mắc:
- Tại sao lại tạo quá nhiều folder trong khi mỗi folder chỉ chứa duy nhất có 1 file?
- Tại sao không lưu toàn bộ file chung 1 folder và đặt tên theo format Range("A4").Value & "_hh.mm.ss_dd-mm-yyyy" & ".xlsx"
???
Bởi nếu lưu theo format như trên, bạn cũng đâu có lo gì chuyện file bị ghi đè
Nhấp chuột vào đây để mở rộng...
Có anh chị nào giúp e với, e thử mấy cách mà vẫn chưa được
 
Upvote 0
seikoqn đã viết:
Bạn nêu yêu cầu rõ ràng lại 1 lần nữa đi. Mỗi lúc 1 kiểu!
Nhấp chuột vào đây để mở rộng...

ý của em như phần phân tích của anh ndu, anh ndu có nói thêm nếu file thay đổi trong khoảng 1 phút thì sẽ bị ghi chồng vậy thì mình tăng thời gian ghi là tính bằng giây luôn. như bài 5 của anh ndu phân tích em có 1 code xuatdata nhưng chỉ là copy lại sheet1 và lưu với thời gian như đã trình bày còn tạo folder và lưu file này vô folder vừa tạo thì chưa làm được. và nếu có folder bị trùng thì vẫn lưu file vô folder đó nhưng có thêm tên cho file là ngày giờ
 
Lần chỉnh sửa cuối:
Upvote 0
namkpac đã viết:
ý của em như phần phân tích của anh ndu, anh ndu có nói thêm nếu file thay đổi trong khoảng 1 phút thì sẽ bị ghi chồng vậy thì mình tăng thời gian ghi là tính bằng giây luôn. như bài 5 của anh ndu phân tích
Nhấp chuột vào đây để mở rộng...
Nhưng #6 thấy ý bạn lại khác đi rồi!
 
Lần chỉnh sửa cuối:
Upvote 0
ý của em như phần phân tích của anh ndu, anh ndu có nói thêm nếu file thay đổi trong khoảng 1 phút thì sẽ bị ghi chồng vậy thì mình tăng thời gian ghi là tính bằng giây luôn. như bài 5 của anh ndu phân tích em có 1 code xuatdata nhưng chỉ là copy lại sheet1 và lưu với thời gian như đã trình bày còn tạo folder và lưu file này vô folder vừa tạo thì chưa làm được. và nếu có folder bị trùng thì vẫn lưu file vô folder đó nhưng có thêm tên cho file là ngày giờ
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
namkpac đã viết:
ý của em như phần phân tích của anh ndu, anh ndu có nói thêm nếu file thay đổi trong khoảng 1 phút thì sẽ bị ghi chồng vậy thì mình tăng thời gian ghi là tính bằng giây luôn. như bài 5 của anh ndu phân tích em có 1 code xuatdata nhưng chỉ là copy lại sheet1 và lưu với thời gian như đã trình bày còn tạo folder và lưu file này vô folder vừa tạo thì chưa làm được. và nếu có folder bị trùng thì vẫn lưu file vô folder đó nhưng có thêm tên cho file là ngày giờ
Nhấp chuột vào đây để mở rộng...
Nếu dùng teamview thì gửi ID và Pas cho tôi!
 
Lần chỉnh sửa cuối:
Upvote 0
Mình đang cài teamview mình chưa có nên đang tải về
ID 717 224 893
Pass 2704
 
Upvote 0
100k đó bạn mình ko đùa đâu; mình thấy học hỏi mà kiểu này thì pó tay; anh ta đóng gói file thành exe thế mới nói.
 
Upvote 0
Có lẽ phải mất tiền thì mới học hỏi được
 
Upvote 0
Em dựa theo file mẫu này làm nhưng vẫn chưa được, có anh chị nào giúp với dạng như back up dữ liệu nhưng chưa làm được
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
namkpac đã viết:
Mình cũng đang làm nhưng vẫn chưa được.
Nhấp chuột vào đây để mở rộng...
Vậy bạn tham khảo Code sau, hàm TV tôi lấy từ module của bạn
Mã: 
Sub CreateFolder()
    Dim FSO As Object
    Dim DataRange
    Dim i As Long
    Dim RootFolder As String
    Dim HFolder As String
    Dim WFolder As String
    Dim Tmp As String
    DataRange = [E2:J11]    'Ban tuy bien vung du lieu cho hop ly
    RootFolder = ThisWorkbook.path
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Tao Folder H & W - kieu gi cung phai tao 2 thu muc nay
    With FSO
        HFolder = .BuildPath(RootFolder, "H")
        WFolder = .BuildPath(RootFolder, "W")
        If Not .FolderExists(HFolder) Then
            FSO.CreateFolder (HFolder)
        Else
            MsgBox "Thu muc H da ton tai"
        End If
        If Not .FolderExists(WFolder) Then
            FSO.CreateFolder (WFolder)
        Else
            MsgBox "Thu muc W da ton tai"
        End If
        For i = 1 To UBound(DataRange, 1)
            If DataRange(i, 5) = "H" Then
                Tmp = HFolder & "\" & DataRange(i, 1) & "_" & UCase(TV(DataRange(i, 2)))
                If Not .FolderExists(Tmp) Then
                    FSO.CreateFolder (Tmp)
                Else
                    MsgBox "Thu muc " & Tmp & " da ton tai"
                End If
            End If
            If DataRange(i, 6) = "W" Then
                Tmp = WFolder & "\" & DataRange(i, 1) & "_" & UCase(TV(DataRange(i, 2)))
                If Not .FolderExists(Tmp) Then
                    FSO.CreateFolder (Tmp)
                Else
                    MsgBox "Thu muc " & Tmp & " da ton tai"
                End If
            End If
        Next
    End With
End Sub
 
Upvote 0
dhn46 đã viết:
Vậy bạn tham khảo Code sau, hàm TV tôi lấy từ module của bạn
Mã: 
Sub CreateFolder()
    Dim FSO As Object
    Dim DataRange
    Dim i As Long
    Dim RootFolder As String
    Dim HFolder As String
    Dim WFolder As String
    Dim Tmp As String
    DataRange = [E2:J11]    'Ban tuy bien vung du lieu cho hop ly
    RootFolder = ThisWorkbook.path
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Tao Folder H & W - kieu gi cung phai tao 2 thu muc nay
    With FSO
        HFolder = .BuildPath(RootFolder, "H")
        WFolder = .BuildPath(RootFolder, "W")
        If Not .FolderExists(HFolder) Then
            FSO.CreateFolder (HFolder)
        Else
            MsgBox "Thu muc H da ton tai"
        End If
        If Not .FolderExists(WFolder) Then
            FSO.CreateFolder (WFolder)
        Else
            MsgBox "Thu muc W da ton tai"
        End If
        For i = 1 To UBound(DataRange, 1)
            If DataRange(i, 5) = "H" Then
                Tmp = HFolder & "\" & DataRange(i, 1) & "_" & UCase(TV(DataRange(i, 2)))
                If Not .FolderExists(Tmp) Then
                    FSO.CreateFolder (Tmp)
                Else
                    MsgBox "Thu muc " & Tmp & " da ton tai"
                End If
            End If
            If DataRange(i, 6) = "W" Then
                Tmp = WFolder & "\" & DataRange(i, 1) & "_" & UCase(TV(DataRange(i, 2)))
                If Not .FolderExists(Tmp) Then
                    FSO.CreateFolder (Tmp)
                Else
                    MsgBox "Thu muc " & Tmp & " da ton tai"
                End If
            End If
        Next
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Nó không phải như thế, nó như thế này file đó là mình copy sửa code mà chưa được:
- Đầu tiên bạn có file GIAYMOI nằm trong thư mục DICH (hay gì gì đó), trong file có Sheet1, trong Sheet1 cócell A4 đang chứa dữ liệu gì đó.
- Bây giờ nếu chạy code, ta sẽ tạo ngay 1 folder có tên là giá trị của cell A4 (tức là ta sẽ lấy dữ liệu tại cell A4 này để đặt tên cho file và folder). (trong file là folder Ong A), đồng thời copy sheet1 ra 1 workbook mới, lưu nó với tên cũng là giá trị của cell A4 (trong file là Ong A.xlsx) và cho file nằm trong thư mục vừa tạo (thư mục Ong A)
- Bấm nút chạy code lần nữa, Nếu giá trị cell A4 ko thay đổi vẫn là Ong A thì ko cần tạo folder nữa mà sẽ tạo file (cụ thể là backup cái file đó và lưu tên mới có gắn tên là: giá trị cell A4 + chuỗi giờ phút + chuỗi ngày tháng năm...
Tiếp tục tạo ra folder và file mới nếu giá trị cell A4 thay đổi
 

File đính kèm

Upvote 0
Em tạo được folder và file với mong muốn rồi nhưng em không lưu được file vào cái folder vừa tạo đó. Vd: em tạo folder cô và file là cô+(time) nhưng em không lưu được file co+(time) vào được folder cô anh chị nào giúp em lưu vô cái folder vừa tạo với
 

File đính kèm

Upvote 0
dhn46 đã viết:
Vậy bạn tham khảo Code sau, hàm TV tôi lấy từ module của bạn
Mã: 
Sub CreateFolder()
    Dim FSO As Object
    Dim DataRange
    Dim i As Long
    Dim RootFolder As String
    Dim HFolder As String
    Dim WFolder As String
    Dim Tmp As String
    DataRange = [E2:J11]    'Ban tuy bien vung du lieu cho hop ly
    RootFolder = ThisWorkbook.path
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Tao Folder H & W - kieu gi cung phai tao 2 thu muc nay
    With FSO
        HFolder = .BuildPath(RootFolder, "H")
        WFolder = .BuildPath(RootFolder, "W")
        If Not .FolderExists(HFolder) Then
            FSO.CreateFolder (HFolder)
        Else
            MsgBox "Thu muc H da ton tai"
        End If
        If Not .FolderExists(WFolder) Then
            FSO.CreateFolder (WFolder)
        Else
            MsgBox "Thu muc W da ton tai"
        End If
        For i = 1 To UBound(DataRange, 1)
            If DataRange(i, 5) = "H" Then
                Tmp = HFolder & "\" & DataRange(i, 1) & "_" & UCase(TV(DataRange(i, 2)))
                If Not .FolderExists(Tmp) Then
                    FSO.CreateFolder (Tmp)
                Else
                    MsgBox "Thu muc " & Tmp & " da ton tai"
                End If
            End If
            If DataRange(i, 6) = "W" Then
                Tmp = WFolder & "\" & DataRange(i, 1) & "_" & UCase(TV(DataRange(i, 2)))
                If Not .FolderExists(Tmp) Then
                    FSO.CreateFolder (Tmp)
                Else
                    MsgBox "Thu muc " & Tmp & " da ton tai"
                End If
            End If
        Next
    End With
End Sub
Nhấp chuột vào đây để mở rộng...

Cái "\" thay bằng Application.PathSeparator ... cho nó đẹp anh ạ :D
 
Upvote 0
Nhờ mọi người xem hộ bài 27 với vẫn ko đưa file vào được
 
Upvote 0
doveandrose đã viết:
ủa bạn nạp card mobi rồi mà . lấy file .exe của người ta mà xài thôi . nếu file .exe không xài được bạn phải liên hệ đối tác yêu cầu nâng cấp chứ
Nhấp chuột vào đây để mở rộng...
Mình đăng bài để học hỏi và nhờ được chỉ dẩn chứ đâu có như 1 số người mang vấn đề này ra thương mại hoá chứ. Cái gì ko làm đc thì hỏi mọi người chỉ thì tôi cảm ơn cái file exe đó bạn học được gì trong đó ko? Bài tôi gửi lên tôi làm được 2 vấn đề rồi còn 1 vấn đề là đưa file đó vào cái folder nhờ mọi người chỉ giúp
 
Upvote 0
namkpac đã viết:
Mình đăng bài để học hỏi và nhờ được chỉ dẩn chứ đâu có như 1 số người mang vấn đề này ra thương mại hoá chứ. Cái gì ko làm đc thì hỏi mọi người chỉ thì tôi cảm ơn cái file exe đó bạn học được gì trong đó ko? Bài tôi gửi lên tôi làm được 2 vấn đề rồi còn 1 vấn đề là đưa file đó vào cái folder nhờ mọi người chỉ giúp
Nhấp chuột vào đây để mở rộng...
Biết dở dở đôi khi cũng phải tiếp tục mày mò sẽ giỏi hơn đó bạn. Bài 32 anh Ninh chỉ rõ, bạn bám theo đó coi ra vấn đề cho bạn không? Mình mới tham gia diễn đàn, hỏi phát nào cũng đều có người nhiệt tình giúp đỡ. Mình chỉ trả công họ bằng tấm lòng và "Cảm ơn" bạn à.
 
Upvote 0
namkpac đã viết:
Mình đăng bài để học hỏi và nhờ được chỉ dẩn chứ đâu có như 1 số người mang vấn đề này ra thương mại hoá chứ. Cái gì ko làm đc thì hỏi mọi người chỉ thì tôi cảm ơn cái file exe đó bạn học được gì trong đó ko? Bài tôi gửi lên tôi làm được 2 vấn đề rồi còn 1 vấn đề là đưa file đó vào cái folder nhờ mọi người chỉ giúp
Nhấp chuột vào đây để mở rộng...
Cái thứ dùng tiền để mua cũng chưa chắc đã ngon hơn cái miễn phí, nhất là phải ai là người bán! Tầm cở Lê Văn Duyệt, Nguyễn Duy Tuân hay Hai Lúa Miền Tây mà bán thì chắc là yên tâm về chất lượng rồi... còn lại thì... ẹc... ẹc... ai mà biết cái giống gì trong trái ổi
--------------
Trở lại vấn đề chính: Mấy hôm nay định làm giúp bạn bằng cách sửa lại tí code theo cái "sườn" đã viết sẵn tại topic này:
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành
nhưng mà cũng hơi bận... với lại tôi có thắc mắc về việc tại sao phải tạo ra quá nhiều thư mục thế chứ? (nên chưa bắt tay vào làm)
Dù sao bạn cũng nên xem qua các bài viết ở topic nêu trên rồi ta tính tiếp nhé
 
Upvote 0
THANHTRUNGT đã viết:
Biết dở dở đôi khi cũng phải tiếp tục mày mò sẽ giỏi hơn đó bạn. Bài 32 anh Ninh chỉ rõ, bạn bám theo đó coi ra vấn đề cho bạn không? Mình mới tham gia diễn đàn, hỏi phát nào cũng đều có người nhiệt tình giúp đỡ. Mình chỉ trả công họ bằng tấm lòng và "Cảm ơn" bạn à.
Nhấp chuột vào đây để mở rộng...
Mình cũng có thử rồi nhưng vẫn chưa đc. Mình thì cũng ko có y gì, chỉ có những người khác ko muốn chỉ mà chỉ muốn được trả công. Ai cũng phải học rồi mới làm đc nhưng có người làm đc rồi thì lại nghĩ cần phải kinh doanh. Code này có thể dễ với người biết nhiều về code nhưng khó với người đang tìm tòi hoc hỏi.
 
Upvote 0
ndu96081631 đã viết:
Cái thứ dùng tiền để mua cũng chưa chắc đã ngon hơn cái miễn phí, nhất là phải ai là người bán! Tầm cở Lê Văn Duyệt, Nguyễn Duy Tuân hay Hai Lúa Miền Tây mà bán thì chắc là yên tâm về chất lượng rồi... còn lại thì... ẹc... ẹc... ai mà biết cái giống gì trong trái ổi
--------------
Trở lại vấn đề chính: Mấy hôm nay định làm giúp bạn bằng cách sửa lại tí code theo cái "sườn" đã viết sẵn tại topic này:
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành
nhưng mà cũng hơi bận... với lại tôi có thắc mắc về việc tại sao phải tạo ra quá nhiều thư mục thế chứ? (nên chưa bắt tay vào làm)
Dù sao bạn cũng nên xem qua các bài viết ở topic nêu trên rồi ta tính tiếp nhé
Nhấp chuột vào đây để mở rộng...
Em cảm ơn vì anh đã quan tâm. Em muốn tạo thư mục mỗi khi cell e2 thay đổi. Anh xem giúp trong bài 27 em sửa lại và code em làm nó chưa chạy đúng ý. Nhờ a chỉ bảo
 
Upvote 0
ndu96081631 đã viết:
Cái thứ dùng tiền để mua cũng chưa chắc đã ngon hơn cái miễn phí, nhất là phải ai là người bán! Tầm cở Lê Văn Duyệt, Nguyễn Duy Tuân hay Hai Lúa Miền Tây mà bán thì chắc là yên tâm về chất lượng rồi... còn lại thì... ẹc... ẹc... ai mà biết cái giống gì trong trái ổi
--------------
Trở lại vấn đề chính: Mấy hôm nay định làm giúp bạn bằng cách sửa lại tí code theo cái "sườn" đã viết sẵn tại topic này:
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành
nhưng mà cũng hơi bận... với lại tôi có thắc mắc về việc tại sao phải tạo ra quá nhiều thư mục thế chứ? (nên chưa bắt tay vào làm)
Dù sao bạn cũng nên xem qua các bài viết ở topic nêu trên rồi ta tính tiếp nhé
Nhấp chuột vào đây để mở rộng...
Em có xem cái bài viết tại topic trên nhưng function và sub main cũng chỉ rõ đường dẫn để lưu file. vấn đề của em là cũng sẽ chỉ rõ đường dẫn để đưa file vào nhưng mà là sau khi tạo xong cái folder rồi đưa file vào là em bị tịt ngòi hic. Chưa nghĩ ra được cách giải quyết vấn đề.
 
Upvote 0
namkpac đã viết:
Em có xem cái bài viết tại topic trên nhưng function và sub main cũng chỉ rõ đường dẫn để lưu file. vấn đề của em là cũng sẽ chỉ rõ đường dẫn để đưa file vào nhưng mà là sau khi tạo xong cái folder rồi đưa file vào là em bị tịt ngòi hic. Chưa nghĩ ra được cách giải quyết vấn đề.
Nhấp chuột vào đây để mở rộng...
<br>Sao không ai giúp mình hết nhỉ hay là cũng vấn đề phải trả phí ta
 
Upvote 0
namkpac đã viết:
Sao không ai giúp mình hết nhỉ hay là cũng vấn đề phải trả phí ta
Nhấp chuột vào đây để mở rộng...
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!
 
Lần chỉnh sửa cuối:
Upvote 0
ndu96081631 đã viết:
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!
Nhấp chuột vào đây để mở rộng...
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.
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
namkpac đã viết:
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.
Nhấp chuột vào đây để mở rộng...

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!
 
Upvote 0
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?
 
Upvote 0
ndu96081631 đã viết:
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!
Nhấp chuột vào đây để mở rộng...
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!
 
Upvote 0
belukn đã viết:
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!
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
belukn đã viết:
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!
Nhấp chuột vào đây để mở rộng...

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!
 
Upvote 0
ndu96081631 đã viết:
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!
Nhấp chuột vào đây để mở rộng...

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.
 
Upvote 0
Anh ndu96081631 và mọi người giúp e giải quyết vấn đề nay với
 
Upvote 0
namkpac đã viết:
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
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Upvote 0
namkpac đã viết:
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.
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
Hau151978 đã viết:
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.
Nhấp chuột vào đây để mở rộng...
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 đỡ.
 
Upvote 0
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.
 
Upvote 0
namkpac đã viết:
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
Nhấp chuột vào đây để mở rộng...
Mã: 
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
 
Upvote 0
Hau151978 đã viết:
Mã: 
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
Nhấp chuột vào đây để mở rộng...
Chỗ màu đỏ chắc anh nhầm thì phải.
 
Upvote 0
namkpac đã viết:
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 đỡ.
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
quanghai1969 đã viết:
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.
Nhấp chuột vào đây để mở rộng...

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
 
Upvote 0
chuot0106 đã viết:
Chỗ màu đỏ chắc anh nhầm thì phải.
Nhấp chuột vào đây để mở rộng...
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.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Let'GâuGâu đã viết:
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
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
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
 
Upvote 0
namkpac đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Bạn thử code sau xem thế nào nha Thay đổi tên Folder tại A4
PHP: 
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
 
Lần chỉnh sửa cuối:
Upvote 0
Em cảm ơn rất nhiều, rất đúng với nội dung bài đặt ra. xin cảm ơn mọi người và một lần nữa em xin khẳng định em không phải là belu gì đó đâu.
 
Upvote 0
chuot0106 đã viết:
Chỗ màu đỏ chắc anh nhầm thì phải.
Nhấp chuột vào đây để mở rộng...

Cái chỗ màu đỏ không bị nhầm đâu ạ, nếu máy anh chị cài office mà không khai báo thư viện thì khi chạy code nó có báo lỗi thiếu thư viện thôi. em cũng từng bị và vào tools\references...\tích chọn microsoft scripting runtime hay là microsoft office scripting runtime x.x type library em cũng ko rõ vì em chọn cả 2 luôn.
 
Upvote 0
Hau151978 đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Nếu là tiếng việt có dấu thì dùng FileSystemObject

đường link : tại đây
 
Upvote 0
Good-Luck đã viết:
Nếu là tiếng việt có dấu thì dùng FileSystemObject

đường link : tại đây
Nhấp chuột vào đây để mở rộng...
FileSystemObject thì mình biết rồi và đã làm ở bài 53, 55; mình hỏi vì thấy bài trả lời 23 của dhn46 có nhắc đến hàm tiếng Việt. Mà cũng không hiểu tác giả còn yêu cầu thêm gì nữa?
 
Upvote 0
Hau151978 đã viết:
FileSystemObject thì mình biết rồi và đã làm ở bài 53, 55; mình hỏi vì thấy bài trả lời 23 của dhn46 có nhắc đến hàm tiếng Việt. Mà cũng không hiểu tác giả còn yêu cầu thêm gì nữa?
Nhấp chuột vào đây để mở rộng...

Anh (chị) cho em hỏi thêm tý nữa được không ạ? với bài trên là copy sheet hiện tại là sheet1 được lấy tên là các ký tự ở cell A4. giờ nếu muốn copy thêm 1 sheet nữa ví dụ là copy thêm sheet3 với tên được lấy cũng tại cell A4 và cũng là hình thành 1 file khác cũng với tên file lấy từ cell A4 và cũng có thời gian phía sau lưu cùng 1 folder đuợc tạo từ ban đầu thì thêm code thế nào ạ? hoặc là copy sheet1 và sheet3 đó vào cùng 1folder với tên file được lấy là cell A4 và cũng có thời gian phía sau
 
Lần chỉnh sửa cuối:
Upvote 0
A Hau151978 có thể coi giúp e xíu nữa với e ko biết khi copy 2 sheet thì thêm code thế nào.
 
Upvote 0
namkpac đã viết:
A Hau151978 có thể coi giúp e xíu nữa với e ko biết khi copy 2 sheet thì thêm code thế nào.
Nhấp chuột vào đây để mở rộng...
Bạn sửa lại sub Main():
Sub Main()
Dim FolderPath$, FolderName$, FilePath$, FileName$,i&
Application.ScreenUpdating = False
Set fso = New FileSystemObject
FolderPath = ThisWorkbook.Path
For i=1 to 2
If i=1 then sheet1.activate else sheet3.activate
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!"
Next
Set fso = Nothing
Application.ScreenUpdating = True
End Sub
 
Upvote 0
Hau151978 đã viết:
Bạn sửa lại sub Main():
Sub Main()
Dim FolderPath$, FolderName$, FilePath$, FileName$,i&
End Sub
Nhấp chuột vào đây để mở rộng...
Anh ơi nó báo lỗi run-time erro ‘1004’
The file could not be accessed. Try one….
· Make sure the specified folder exists.
· Make sure the folder that….
Em chạy Debug thì nó chỉ tới dòng lệnh Workbooks(Workbooks.Count).SaveAs FullFileName trong Function SaveWorkbook
Vậy là sao anh nhỉ
 
Upvote 0
Em xin lỗi cái này là do em chưa đọc hết, do cell A4 của sheet3 chưa có dữ liệu nên chưa copy ra được. tuy nhiên em muốn là gom 2 sheet này vô 1 workbook và cùng chung 1 folder thôi chứ không tách ra làm 2 folder và 2 file nằm ở 2 folder đó.
 
Upvote 0
namkpac đã viết:
Em xin lỗi cái này là do em chưa đọc hết, do cell A4 của sheet3 chưa có dữ liệu nên chưa copy ra được. tuy nhiên em muốn là gom 2 sheet này vô 1 workbook và cùng chung 1 folder thôi chứ không tách ra làm 2 folder và 2 file nằm ở 2 folder đó.
Nhấp chuột vào đây để mở rộng...
Trường hợp cell A4 trống thì mình sửa được nhưng ở đây có phải bạn muốn copy sheet1 và sheet3 vào chung 1 file không? Vậy đặt tên file và folder thế nào, hay là dựa theo A4 của sheet1?
 
Upvote 0
Hau151978 đã viết:
Trường hợp cell A4 trống thì mình sửa được nhưng ở đây có phải bạn muốn copy sheet1 và sheet3 vào chung 1 file không? Vậy đặt tên file và folder thế nào, hay là dựa theo A4 của sheet1?
Nhấp chuột vào đây để mở rộng...
đúng rồi ạ, mình copy sheet1 v à sheet3 nhưng tên file và folder đều dựa theo A4 của sheet1
 
Upvote 0
Hau151978 đã viết:
Trường hợp cell A4 trống thì mình sửa được nhưng ở đây có phải bạn muốn copy sheet1 và sheet3 vào chung 1 file không? Vậy đặt tên file và folder thế nào, hay là dựa theo A4 của sheet1?
Nhấp chuột vào đây để mở rộng...
A xem giúp e sửa code copy sheet1,3 vào cùng 1 file và lấy tên file la cell a4 của sheet1 và lưu 1 folder thôi ạ khi cell a4 thay đổi thì lưu tên mới đúng như bài #71 đó a
 
Upvote 0
Hàng miễn phí bao giờ cũng chậm, bạn chịu trả giá xuống còn thẻ 50k cho ai đó thì chắc xong lâu rồi!
Mã: 
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$, Wb As Workbook
    FullFileName = FilePath & "\" & FileName & ".xlsx"
    If Not fso.FileExists(FullFileName) Then
        ThisWorkbook.Sheets("sheet1").Copy
        Set Wb = Workbooks(Workbooks.Count)
        ThisWorkbook.Sheets("sheet3").Copy after:=Wb.Sheets("sheet1")
        Wb.SaveAs FullFileName
        Wb.Close True
        SaveWorkbook = True
        
    End If
End Function
Sub Main()
    Dim FolderPath$, FolderName$, FilePath$, FileName$
    Application.ScreenUpdating = False
    Set fso = New FileSystemObject
    Sheet1.Activate
    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!"
    FileName = Sheet3.Cells(4, 1).Text & 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
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (5 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
49K
ongke0711
ongke0711
B
Sau 1 tháng Mã Lại reset về 1 trở lên (2 người xem)
Trả lời
1
Đọc
34
ongke0711
ongke0711
H
Đánh số thứ thự phiếu thu chi (1 người xem)
Trả lời
11
Đọc
146
HangktGTN
H
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp
Trả lời
1
Đọc
44
LOGANWover
L
N
  • Question Question
Cho em hỏi về mail merge bằng vba (1 người xem)
Trả lời
3
Đọc
68
Hoàng Tuấn 868
H
T
Xin hỏi về bảng lương
Trả lời
0
Đọc
37
tuandovn
T
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau
Trả lời
6
Đọc
95
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến
Trả lời
20
Đọc
9K
nguyendang95
N
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao (1 người xem)
Trả lời
22
Đọc
706
Phan Thế Hiệp
Phan Thế Hiệp
B
Dùng button trên forrm để gọi bàn phím ảo win 10(OSK) (1 người xem)
Trả lời
5
Đọc
115
huhumalu
H
P
VẼ ĐƯỜNG TẦN SUẤT (DTS) TRÊN EXCEL
Trả lời
8
Đọc
183
ptm0412
ptm0412
P
GOAL SEEK NÂNG CAO TRONG EXCEL (1 người xem)
    • Thích
Trả lời
4
Đọc
191
Hoale85
H
B
Gán Phím Tắt Gọi Form
Trả lời
7
Đọc
92
HeSanbi
HeSanbi
K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
2
Đọc
123
LOGANWover
L
G
Chia sẻ các bạn File vẽ kèo Zamil từ excel
    • Thích
    • Yêu thích
Trả lời
11
Đọc
903
trqt82
T
T
Xin trợ giúp cách lọc trùng về khoảng thời gian
Trả lời
10
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
L
Xin hàm trích xuất chuỗi trong ô
Trả lời
12
Đọc
195
LINH7979
L
H
[Xin giúp đỡ] Tìm thời gian trùng ở nhiều khoảng thời gian khác nhau.
Trả lời
14
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
N
Thuế thu nhập cá nhân
    • Chấp nhận
Trả lời
3
Đọc
265
ngouyen1505
N
D
Lọc các ô có dữ liệu trùng nhau trong một cột. Xin chỉ giúp
Trả lời
7
Đọc
305
Gà Công Nghệ
Gà Công Nghệ
Xem thêm…

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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom