Xin Code để Copy Sheet1 của file gốc ra file mới

[597335]

Em có 1 file gốc, trong đó Sheet1 của file gốc này sẽ được sử dụng nhân bản Copy tới rất nhiều file khác.

Em xin phép hỏi:

Nếu em mở 1 workbook mới (file mới), chạy Code thì lập tức nó sẽ tự động lấy nguyên nội dung Sheet1 của file gốc copy sang

Trong khi chạy Code thì file gốc không cần mở mà chỉ cần biết đường dẫn (địa chỉ lưu trong máy) thôi.

 

[Quang_Hải]

Em có 1 file gốc, trong đó Sheet1 của file gốc này sẽ được sử dụng nhân bản Copy tới rất nhiều file khác.

Em xin phép hỏi:

Nếu em mở 1 workbook mới (file mới), chạy Code thì lập tức nó sẽ tự động lấy nguyên nội dung Sheet1 của file gốc copy sang

Trong khi chạy Code thì file gốc không cần mở mà chỉ cần biết đường dẫn (địa chỉ lưu trong máy) thôi.

Bạn nêu yêu chưa cụ thể lắm nên không biết có đúng ý của bạn hay không. Mình phải tạm mở và đóng file goc và đóng lại sau khi sao chép dữ liệu
Bạn xem code và sửa lại đương dần , tên file gốc và tên file muốn save as nghen. 3 dòng chữ có màu đỏ bên dưới

Sub saochep()
Dim duongdan
duongdan = "d:\test"
Application.ScreenUpdating = 0
Workbooks.Open duongdan & "\goc.xls"
ActiveSheet.Cells.Copy Cells
Workbooks("goc.xls").Close False
ActiveWorkbook.SaveCopyAs duongdan & "\file.xls"
Cells.Clear
Application.ScreenUpdating = 1
End Sub

 

[namkpac]

Bạn nêu yêu chưa cụ thể lắm nên không biết có đúng ý của bạn hay không. Mình phải tạm mở và đóng file goc và đóng lại sau khi sao chép dữ liệu
Bạn xem code và sửa lại đương dần , tên file gốc và tên file muốn save as nghen. 3 dòng chữ có màu đỏ bên dưới

Sub saochep()
Dim duongdan
duongdan = "d:\test"
Application.ScreenUpdating = 0
Workbooks.Open duongdan & "\goc.xls"
ActiveSheet.Cells.Copy Cells
Workbooks("goc.xls").Close False
ActiveWorkbook.SaveCopyAs duongdan & "\file.xls"
Cells.Clear
Application.ScreenUpdating = 1
End Sub

Chào anh, anh cho em hỏi với, giờ em muốn copy 1 khối cell đựơc định dạng thành trang ví dụ từ A1 tới I52 chẳng hạn là 1 trang giờ em muốn copy trang này xuống bắt đầu từ A52 xuống dưới và copy nhiều lần cứ mỗi lần là xuống 1 trang dưới nữa trên 1 sheet, trên sheet1 đó có 1 combobox chọn số lần copy 1 button ok (đồng ý copy) và 1 button cancel (thoát copy) anh giúp em với, em hỏi nhiều trên dễn đàn rồi nhưng hình như mọi người bận nên không trả lời em. Mong anh giúp.

 

[Quang_Hải]

Đã trả lời rồi nhé, nhưng có file thì dễ làm hơn

 

[thang314]

Chào anh, anh cho em hỏi với, giờ em muốn copy 1 khối cell đựơc định dạng thành trang ví dụ từ A1 tới I52 chẳng hạn là 1 trang giờ em muốn copy trang này xuống bắt đầu từ A52 xuống dưới và copy nhiều lần cứ mỗi lần là xuống 1 trang dưới nữa trên 1 sheet, trên sheet1 đó có 1 combobox chọn số lần copy 1 button ok (đồng ý copy) và 1 button cancel (thoát copy) anh giúp em với, em hỏi nhiều trên dễn đàn rồi nhưng hình như mọi người bận nên không trả lời em. Mong anh giúp.[/QUOTEư
làm với file cụ thể đi, yêu cầu cụ thể luôn để mọi người giúp

 

[Quang_Hải]

Chào anh, anh cho em hỏi với, giờ em muốn copy 1 khối cell đựơc định dạng thành trang ví dụ từ A1 tới I52 chẳng hạn là 1 trang giờ em muốn copy trang này xuống bắt đầu từ A52 xuống dưới và copy nhiều lần cứ mỗi lần là xuống 1 trang dưới nữa trên 1 sheet, trên sheet1 đó có 1 combobox chọn số lần copy 1 button ok (đồng ý copy) và 1 button cancel (thoát copy) anh giúp em với, em hỏi nhiều trên dễn đàn rồi nhưng hình như mọi người bận nên không trả lời em. Mong anh giúp.

Bạn xem file nhé, nhớ đưa file có dư liệu thì mới nhanh được