COPY DỮ LIỆU (BAO GỒM ĐINH DẠNG) SANG WORKBOOK MỚI

[yamakashi2003]

Em chào ace trong grou ạ,
Anh chị cho em hỏi em muốn copyt dữ liệu từ sheet "EDIT" sang sheet 1 ở 1 file excel mới nên dùng hàm GetDataArray (hàm đã đc tao ở module khác) để copy dữ liệu lên mảng sau đó gán sang sheet 1 ở workbook mới. Nhưng vấn đề là định dạng dữ liệu (font chữ, màu, kẻ bảng, ....) ở sheet mới mới đều mất hết. Giờ em muốn copy cả định dạng của dữ liệu trong sheet "EDIT" ở file excel hiện hành sang file excel mới thì nên sửa đoạn code bên dưới ra sao ạ,
Mong ac chỉ giúp, em xin cảm ơn
Sub abc()

Dim sh As Worksheet

Dim ArrSrc As Variant

Dim rngFirtsDest As Range

Set sh = ThisWorkbook.Sheets("EDIT")

ArrSrc = GetDataArray(sh, "A3", "K", "A")

Workbooks.Add

Set rngFirtsDest = Range("A2")

rngFirtsDest.Resize(UBound(ArrSrc, 1), UBound(ArrSrc, 2)).Value2 = ArrSrc

End Sub

 

[Huyyeu99999]

Em chào ace trong grou ạ,
Anh chị cho em hỏi em muốn copyt dữ liệu từ sheet "EDIT" sang sheet 1 ở 1 file excel mới nên dùng hàm GetDataArray (hàm đã đc tao ở module khác) để copy dữ liệu lên mảng sau đó gán sang sheet 1 ở workbook mới. Nhưng vấn đề là định dạng dữ liệu (font chữ, màu, kẻ bảng, ....) ở sheet mới mới đều mất hết. Giờ em muốn copy cả định dạng của dữ liệu trong sheet "EDIT" ở file excel hiện hành sang file excel mới thì nên sửa đoạn code bên dưới ra sao ạ,
Mong ac chỉ giúp, em xin cảm ơn
Sub abc()

Dim sh As Worksheet

Dim ArrSrc As Variant

Dim rngFirtsDest As Range

Set sh = ThisWorkbook.Sheets("EDIT")

ArrSrc = GetDataArray(sh, "A3", "K", "A")

Workbooks.Add

Set rngFirtsDest = Range("A2")

rngFirtsDest.Resize(UBound(ArrSrc, 1), UBound(ArrSrc, 2)).Value2 = ArrSrc

End Sub

bạn phải đổi GetDataArray thành CopyDataPasterToRange

 

[yamakashi2003]

bạn phải đổi GetDataArray thành CopyDataPasterToRange

CopyDataPasterToRange là tạo hàm mới phải k bác, do em k biết nhiều code lắm nên nhờ bác viết giúp em với ạ

 

[Huyyeu99999]

Đúng rồi chứ cái hàm GetDataArray y ở đâu ma có?

 

[yamakashi2003]

Đúng rồi chứ cái hàm GetDataArray y ở đâu ma có?

là hàm e tạo ra có chức năng copy dữ liệu vào chuỗi, nhưng sẽ mất định dạng của dữ liệu bác ạ,
em không biết viết hàm copy mà dữ được định dạng dữ liệu
bác chỉ em vói

 

[batman1]

Chắc là thế này.

Sub abc(ByVal srcRange As Range, ByVal destCell As String)
'    sao chep vung srcRange sang tap tin tao moi vao o destCell
Dim wb As Workbook
    srcRange.copy
    Set wb = Workbooks.Add
    With wb.Worksheets(1).Range(destCell)
        .PasteSpecial
        .PasteSpecial xlPasteColumnWidths
    End With
    Application.CutCopyMode = False
End Sub

Ví dụ về sử dụng sub abc

Sub test()
'    sao chep vung A26:K44 tu sheet EDIT trong tap tin co code sang tap tin moi vao o A2
    abc ThisWorkbook.Worksheets("EDIT").Range("A26:K44"), "A2"
End Sub

 

[yamakashi2003]

Chắc là thế này.

Sub abc(ByVal srcRange As Range, ByVal destCell As String)
'    sao chep vung srcRange sang tap tin tao moi vao o destCell
Dim wb As Workbook
    srcRange.copy
    Set wb = Workbooks.Add
    With wb.Worksheets(1).Range(destCell)
        .PasteSpecial
        .PasteSpecial xlPasteColumnWidths
    End With
    Application.CutCopyMode = False
End Sub

Ví dụ về sử dụng sub abc

Sub test()
'    sao chep vung A26:K44 tu sheet EDIT trong tap tin co code sang tap tin moi vao o A2
    abc ThisWorkbook.Worksheets("EDIT").Range("A26:K44"), "A2"
End Sub

em cám ơn bác hướng dẫn, nhưng code trên là dùng range thì em biết rồi ạ,
ý em là muốn hỏi về code đưa giữ liệu vào mảng để copy cho nhanh, nhưng khi dán dữ liệu vẫn có thể giữ nguyên định dạng của dữ liệu ạ

 

[Huyyeu99999]

Hihi nhu cầu của mỗi người ngày 1 cao anh @batman1 ơi hihi. Cái vấn đề này em cũng đang thắc méc đây tuy là em đã làm được nhưng thấy chưa hài lòng lắm

 

[yamakashi2003]

Chắc là thế này.

Sub abc(ByVal srcRange As Range, ByVal destCell As String)
'    sao chep vung srcRange sang tap tin tao moi vao o destCell
Dim wb As Workbook
    srcRange.copy
    Set wb = Workbooks.Add
    With wb.Worksheets(1).Range(destCell)
        .PasteSpecial
        .PasteSpecial xlPasteColumnWidths
    End With
    Application.CutCopyMode = False
End Sub

[/code]

Bác ơi cho em hỏi dòng code trên báo lỗi : The picture is tô large and will be truncated
nếu bỏ dòng lệnh: Application.cutcopymode = false, thì không bị báo lỗi nữa,
Cho em hỏi sao nó lại báo lỗi này ạ

 

[batman1]

Bác ơi cho em hỏi dòng code trên báo lỗi : The picture is tô large and will be truncated
nếu bỏ dòng lệnh: Application.cutcopymode = false, thì không bị báo lỗi nữa,
Cho em hỏi sao nó lại báo lỗi này ạ

google + "the picture is too large and will be truncated"