Cách lưu 1 WorkBook thành 1 WorkBook mới (5 người xem)

[a.nguoidensau]

Chào các anh/chị/em
Hiện giờ tôi có 1 WorkBook gồm 5 Sheet từ sheet1 đến Sheet5 ( Các sheets này có chưa công thức).
Bây giờ tôi muốn lưu thành 1 WorkBook mới, chỉ có 2 Sheet( Sheet2 và Sheet5) và không còn công thức( chỉ còn giá trị). Vậy Code như thế nào, mong anh/chị chỉ giúp.
Xin cảm ơn.

 

[a.nguoidensau]

Xin các anh/chị chỉ giúp tôi, câu hỏi của tôi chưa rõ ở chỗ nào?

 

[befaint]

Chào các anh/chị/em
Hiện giờ tôi có 1 WorkBook gồm 5 Sheet từ sheet1 đến Sheet5 ( Các sheets này có chưa công thức).
Bây giờ tôi muốn lưu thành 1 WorkBook mới, chỉ có 2 Sheet( Sheet2 và Sheet5) và không còn công thức( chỉ còn giá trị). Vậy Code như thế nào, mong anh/chị chỉ giúp.
Xin cảm ơn.

Save as thành 1 file mới. Tại 2 sheet2 & 5. Chọn vùng dữ liệu, ctrl + C, {phím phải chuột} + V. Xóa các sheet không cần dùng. Lưu bảng tính. Kết thúc.

 

[a.nguoidensau]

Save as thành 1 file mới. Tại 2 sheet2 & 5. Chọn vùng dữ liệu, ctrl + C, {phím phải chuột} + V. Xóa các sheet không cần dùng. Lưu bảng tính. Kết thúc.

Cái đó thì tôi đã biết, tôi muốn dùng Code xử lý cho nhanh, vì tôi đang "thiết kế 1 phần mềm", mà đến đây phải dùng thao tác thủ công, e rằng không ổn chút nào. Hơn nữa bài toán tôi đặt ra chỉ là ví dụ, thực tế cần nhiều Sheet để lưu. Tôi cũng đã tham khảo Code của bác ndu trước đây, nhưng chỉ cho lưu từng Sheet.
Các anh/chị nào rảnh bớt chút thời gian tìm hiểu giúp tôi. Xin trân trọng cảm ơn.

 

[befaint]

Cái đó thì tôi đã biết, tôi muốn dùng Code xử lý cho nhanh, vì tôi đang "thiết kế 1 phần mềm", mà đến đây phải dùng thao tác thủ công, e rằng không ổn chút nào. Hơn nữa bài toán tôi đặt ra chỉ là ví dụ, thực tế cần nhiều Sheet để lưu. Tôi cũng đã tham khảo Code của bác ndu trước đây, nhưng chỉ cho lưu từng Sheet.
Các anh/chị nào rảnh bớt chút thời gian tìm hiểu giúp tôi. Xin trân trọng cảm ơn.

Code thì cũng thực hiện theo ý đó. Có file thì sẽ có code.

 

[ndu96081631]

Tôi cũng đã tham khảo Code của bác ndu trước đây, nhưng chỉ cho lưu từng Sheet.
.

Bạn tham khảo code của tôi là code nào?
Tôi nhớ không lầm thì trước đây tôi có làm 1 code SaveSheet2File và nó có khả năng lưu nhiều sheet cùng lúc đó nha

 

[a.nguoidensau]

Bạn tham khảo code của tôi là code nào?
Tôi nhớ không lầm thì trước đây tôi có làm 1 code SaveSheet2File và nó có khả năng lưu nhiều sheet cùng lúc đó nha

Em tham khảo Code:
[GPECODE=VB]Sub SaveActiveSh()
On Error GoTo ExitSub
ActiveSheet.Copy
With Application.FileDialog(2)
.Show: .AllowMultiSelect = False
ActiveWorkbook.SaveAs .SelectedItems(1)
End With
ExitSub:
ActiveWorkbook.Close (False)
End Sub [/GPECODE]

Có lẽ Code lưu nhiều Sheets em chưa đọc tới, bác có thể giúp em.
Cảm ơn bác.

 

[a.nguoidensau]

Save as thành 1 file mới. Tại 2 sheet2 & 5. Chọn vùng dữ liệu, ctrl + C, {phím phải chuột} + V. Xóa các sheet không cần dùng. Lưu bảng tính. Kết thúc.

Vậy thì tốt quá, tôi muốn lưu thành 1 WorkBook mới( lấy Sheet1, Sheet5, Sheet6). Với mong muốn:
- Đường dẫn tùy chọn
- Tên tùy chọn
- Chỉ lấy giá tri( Không còn công thức)
Cảm ơn bạn trước nhé.

P/s: Bạn thông cảm File tôi gửi chỉ là ví dụ.

 

[ndu96081631]

Em tham khảo Code:
[GPECODE=VB]Sub SaveActiveSh()
On Error GoTo ExitSub
ActiveSheet.Copy
With Application.FileDialog(2)
.Show: .AllowMultiSelect = False
ActiveWorkbook.SaveAs .SelectedItems(1)
End With
ExitSub:
ActiveWorkbook.Close (False)
End Sub [/GPECODE]

Có lẽ Code lưu nhiều Sheets em chưa đọc tới, bác có thể giúp em.
Cảm ơn bác.

Chắc code đó thuộc hồi xưa?
Giờ tham khảo topic này xem:
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành

 

[HieuCD]

bạn tham khảo code

Sub CreateNewFile()
    Dim Path As String, FileName As String, i As Byte
    Sheets(Array("Sheet2", "Sheet5")).Copy
    Path = ThisWorkbook.Path
    FileName = "Test"
    With ActiveWorkbook
        .SaveAs Path & "\" & FileName, 50 '18,51,52
        For i = 1 To .Sheets.Count
            .Sheets(i).Activate
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
        Next i
        .Close True
    End With
End Sub

 

[befaint]

Vậy thì tốt quá, tôi muốn lưu thành 1 WorkBook mới( lấy Sheet1, Sheet5, Sheet6). Với mong muốn:
- Đường dẫn tùy chọn
- Tên tùy chọn
- Chỉ lấy giá tri( Không còn công thức)
Cảm ơn bạn trước nhé.

P/s: Bạn thông cảm File tôi gửi chỉ là ví dụ.

Như vầy có được không?

 

[a.nguoidensau]

bạn tham khảo code

Sub CreateNewFile()
    Dim Path As String, FileName As String, i As Byte
    Sheets(Array("Sheet2", "Sheet5")).Copy
    Path = ThisWorkbook.Path
    FileName = "Test"
    With ActiveWorkbook
        .SaveAs Path & "\" & FileName, 50 '18,51,52
        For i = 1 To .Sheets.Count
            .Sheets(i).Activate
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
        Next i
        .Close True
    End With
End Sub

Cảm ơn bạn.
Tôi đã thử vài lần, vẫn chưa loại bỏ được công thức bạn à.

 

[a.nguoidensau]

Như vầy có được không?

View attachment 170082

Thế thì hay quá, ghi File với nhiều sự lựa chọn, bạn giúp tôi nhé.

 

[a.nguoidensau]

Chắc code đó thuộc hồi xưa?
Giờ tham khảo topic này xem:
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành

Em đã tham khảo bài viết của bác, chỗ 3 dòng màu đỏ mà bác lưu ý đó. Nhưng khi áp dụng, em bị lỗi dòng:
FileFormat=xlExcel8

Em không biết tại sao nữa.

 

[HieuCD]

Cảm ơn bạn.
Tôi đã thử vài lần, vẫn chưa loại bỏ được công thức bạn à.

bạn muốn loại bỏ công thức của file nào? file gốc hay file Test. file của mình chạy thử đã loại công thức của file Test
bạn gởi file mẩu lên xem sao

 

[a.nguoidensau]

bạn muốn loại bỏ công thức của file nào? file gốc hay file Test. file của mình chạy thử đã loại công thức của file Test
bạn gởi file mẩu lên xem sao

Tôi muốn loại bỏ công thức trong File mới, File cũ phải giữ nguyên công thức.
File cũ là File xử lý dữ liệu,vì có Sheet "Trang chu", "Huongdan",.....nên không thể lưu những Sheets đó được. Thế nên mới cần nhặt 1 số Sheets để lưu dữ liệu thôi bạn à.
Cảm ơn bạn HieuCD đã quan tâm.

 

[befaint]

Thế thì hay quá, ghi File với nhiều sự lựa chọn, bạn giúp tôi nhé.

Bạn xài thử nha. Nếu ổn thì chuyển sang Addins.

 

[a.nguoidensau]

Bạn xài thử nha. Nếu ổn thì chuyển sang Addins.

Cảm ơn Befaint, tôi chạy thử Code thấy báo lỗi như hình đính kèm, bạn xem lỗi gì nhé.

 

[a.nguoidensau]

Bạn tham khảo code của tôi là code nào?
Tôi nhớ không lầm thì trước đây tôi có làm 1 code SaveSheet2File và nó có khả năng lưu nhiều sheet cùng lúc đó nha

Cảm ơn bác ndu, em cho chạy Code của bác thấy thành công rồi, tuy nhiên vẫn chứa công thức, có lẽ em phải thêm 1 động tác nữa sẽ ổn thôi.

 

[befaint]

Cảm ơn Befaint, tôi chạy thử Code thấy báo lỗi như hình đính kèm, bạn xem lỗi gì nhé.

Cái hình nhỏ quá, không nhìn rõ thông báo gì.

p/s: Đã sửa lại...