Cách copy toàn bộ các sheet của 1 file excel sang 1 file excel khác

[caodung1989]

Hiện tại em đang làm đồ án tốt nghiệp, phải lập 1 bảng tính bằng excel để thực hiện việc tính toán.
Nhưng trước đó em đã có lập 1 số bảng tính nhỏ để tính về cái này, bây giờ em không muốn thực hiện việc chuyển đổi số liệu bằng thủ công nữa.
Các bác có ai giúp em copy toàn bộ sheet của file 2,3,4 sang file 1 giùm e với =.=
Cảm ơn các bác nhiều

 

[viehoai]

Hiện tại em đang làm đồ án tốt nghiệp, phải lập 1 bảng tính bằng excel để thực hiện việc tính toán.
Nhưng trước đó em đã có lập 1 số bảng tính nhỏ để tính về cái này, bây giờ em không muốn thực hiện việc chuyển đổi số liệu bằng thủ công nữa.
Các bác có ai giúp em copy toàn bộ sheet của file 2,3,4 sang file 1 giùm e với =.=
Cảm ơn các bác nhiều

Bạn tham khảo link này nhé

 

[thuhacoi]

Hiện tại em đang làm đồ án tốt nghiệp, phải lập 1 bảng tính bằng excel để thực hiện việc tính toán.
Nhưng trước đó em đã có lập 1 số bảng tính nhỏ để tính về cái này, bây giờ em không muốn thực hiện việc chuyển đổi số liệu bằng thủ công nữa.
Các bác có ai giúp em copy toàn bộ sheet của file 2,3,4 sang file 1 giùm e với =.=
Cảm ơn các bác nhiều

Không biết tớ có hiểu đúng ý bạn không:Mở file 1.xlsx, Bạn vào file 2,3,4 kích chuột phải vào tên sheet chọn Move or copy trên mục To book bạn chọn 1.xlsx tại mục before sheet bạn chọn tên sheet mà bạn muốn copy sau đó chọn create copy OK

 

[scooby]

1- Kỵ dowload
2- Con nhà nghèo nên dùng Xl 2003

Try this

Sub cop_pee()     
   Dim wb1 As Workbook     
   Dim wb2 As Workbook 
         
   Set wb1 = Workbooks.Open("C:\Source_copy.xls")     
   Cells.Select     
   Selection.Copy          

   'Change the name of the destination workbook here     

   Set wb2 = Workbooks("Dest_Paste.xls")     
   wb2.Activate       
   For Each Sheet In wb1.Sheets         
       If Sheet.Visible = True Then             
   ' copy all sheets in Source             
          Sheet.Copy After:=wb2.Sheets(wb2.Sheets.Count)        
      End If     
   Next Sheet      

   Set wb1 = Nothing     ' free mem  

   ' save & close 

   Workbooks.Open("C:\Source_copy.xls").Close SaveChanges:=False  

   ActiveWorkbook.Save 
   ActiveWorkbook.Close  

End Sub

Ghi chú :
- Nếu Worksheet mà Hide thì ko copy đươc
- Muốn Unhidenó thì

Sub UnhideAllSheets()      
‘   Unhide all sheets in workbook.     
   Dim ws As Worksheet   
   
  For Each ws In ActiveWorkbook.Worksheets          
       ws.Visible = xlSheetVisible     
  Next ws 
End Sub

 

[scooby]

Có nhiều cách viết tùy theo hưng mà viết , ví dụ

If Destwb.Sheets(1).ProtectContents = False Then
    With Destwb.Sheets(1).UsedRange
           .Cells.Copy
           .Cells.PasteSpecial xlPasteValues
            Cells(1).Select
     End With
    Application.CutCopyMode = False
End If

or

With
  SourceRange.Copy
    With destrange
       .PasteSpecial xlPasteValues
       .PasteSpecial xlPasteFormats
       Application.CutCopyMode = False
End With

w1.Columns.AutoFit

or

With sourceRange
     destrange = destrange. Resize(.Rows.Count, .Columns.Count)
 End With

Muốn copy đoạn nào, bỏ vào đau cũng được
ThisWorkbook.Sheets(1).Range("F50").Value = Workbooks(excelFile).Sheets(1).Range("A1").Value

Muốn dùng AutiFill hay Destination cũng được
With .AutoFilter.Range
RwCount = .Columns(1).Cells. SpecialCells(xlCellTypeVisible).Cells.Count - 1


Muốn hoa lá cành

Application.EnableEvents = True

Application.ScreenUpdating = True

 

[ptanh15]

Hiện tại em đang làm đồ án tốt nghiệp, phải lập 1 bảng tính bằng excel để thực hiện việc tính toán.
Nhưng trước đó em đã có lập 1 số bảng tính nhỏ để tính về cái này, bây giờ em không muốn thực hiện việc chuyển đổi số liệu bằng thủ công nữa.
Các bác có ai giúp em copy toàn bộ sheet của file 2,3,4 sang file 1 giùm e với =.=
Cảm ơn các bác nhiều

cái này dùng thế nào đây