code VB copy sheet excel sang file excel khác (1 người xem)

[htruongtb911]

Chào mọi người,

Mình có một vấn đề nhờ AE giúp hộ:

- Mình có 2 file excel bây giờ mình muôn mở sẵn file test lên và có sheet tổng hợp khi kích vào open file sẽ chọn file A và sẽ tự động copy các sheet của file A sang sheet của file test (file A có sheet NE và FE khi copy cũng copy vào NE và FE của file test).

Cảm ơn mọi người.

 

[PacificPR]

Chào mọi người,

Mình có một vấn đề nhờ AE giúp hộ:

- Mình có 2 file excel bây giờ mình muôn mở sẵn file test lên và có sheet tổng hợp khi kích vào open file sẽ chọn file A và sẽ tự động copy các sheet của file A sang sheet của file test (file A có sheet NE và FE khi copy cũng copy vào NE và FE của file test).

Cảm ơn mọi người.

Bạn tìm trên dễn đàn ấy. Bài dạng này nhiều lắm

 

[PacificPR]

hic mình không biết và VB code nên tìm xem cũng không hiều.

Cái này thì dễ. Cứ năng vào diễn đàn GPE (Ngày khoảng 4 tiếng đồng hồ gì đó) thì 1 tuần sau mấy bài dạng này bạn làm rèng rẹc ...

 

[PacificPR]

hic Ok thanks

Bạn là thành viên mới chú ý nội quy diễn đàn nhất là mấy từ tiếng nước ngoài như dạng này hic Ok thanks
Mình đang bận sửa cái Máy PhotoCopy. Nó đang đổ bệnh ra rồi. Khi nào xong nếu chưa có ai giúp thì mình làm giúp cho
Chào Bạn./

 

[phulien1902]

Chào mọi người,

Mình có một vấn đề nhờ AE giúp hộ:

- Mình có 2 file excel bây giờ mình muôn mở sẵn file test lên và có sheet tổng hợp khi kích vào open file sẽ chọn file A và sẽ tự động copy các sheet của file A sang sheet của file test (file A có sheet NE và FE khi copy cũng copy vào NE và FE của file test).

Cảm ơn mọi người.

Bạn thử:

Sub CapNhatNE_FE2()
    Dim wb As String
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
    If Not IsArray(wb) Then Exit Sub ' Them dong nay vao
    With Workbooks.Open(wb)
        Sheets("NE").Range("A1:B8").Copy ThisWorkbook.Sheets("NE").Range("A1")
        Sheets("FE").Range("A1:C8").Copy ThisWorkbook.Sheets("FE").Range("A1")
        .Close False
        MsgBox "Du lieu da cap nhat xong!", , "Thong bao"
    End With
End Sub

 

[PacificPR]

Bạn thử:

Sub CapNhatNE_FE()
    Dim wb As String
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
    With Workbooks.Open(wb)
        Sheets("NE").Range("A1:B8").Copy ThisWorkbook.Sheets("NE").Range("A1")
        Sheets("FE").Range("A1:C8").Copy ThisWorkbook.Sheets("FE").Range("A1")
        .Close False
        MsgBox "Du lieu da cap nhat xong!", , "GPE"
    End With
End Sub

Úi. Anh chưa bãy lỗi cho nút "Cancel" mất roài

 

[phulien1902]

Úi. Anh chưa bãy lỗi cho nút "Cancel" mất roài

Vậy anh thêm dòng này vào:

  If Not IsArray(wb) Then Exit Sub

 

[PacificPR]

Vậy anh thêm dòng này vào:

  If Not IsArray(wb) Then Exit Sub

Cái này cũng được anh ạ

If wb = "False" Then Exit Sub

 

[NguyenNgocThuHien]

uổi, wb là string rùi thì cần gì đến cái isarray nữa.
dim wb

vartype(wb)=vbboolean

nhớ mang máng là như vậy
mà nó có chế độ chọn nhiều file thì phải, lúc đó thì dùng thêm isarray

 

[thanhnha12345]

Bạn là thành viên mới chú ý nội quy diễn đàn nhất là mấy từ tiếng nước ngoài như dạng này hic Ok thanks
Mình đang bận sửa cái Máy PhotoCopy. Nó đang đổ bệnh ra rồi. Khi nào xong nếu chưa có ai giúp thì mình làm giúp cho
Chào Bạn./

máy photo bị gì thế bạn PacificPR mình có thể giúp cái máy photo được bạn nhe

 

[PacificPR]

máy photo bị gì thế bạn PacificPR mình có thể giúp cái máy photo được bạn nhe

À cái Cái máy Toshiba E456 xuất ngày nó cứ báo lỗi C450 mà test Mode 400 không được. Vừa rồi họ mới chỉ là Test Mode 2002

 

[phulien1902]

máy photo bị gì thế bạn PacificPR mình có thể giúp cái máy photo được bạn nhe

Khà khà
" Em đi xa quá, em đi xa anh quá..."

 

[huonglien1901]

À cái Cái máy Toshiba E456 xuất ngày nó cứ báo lỗi C450 mà test Mode 400 không được. Vừa rồi họ mới chỉ là Test Mode 2002

Máy bạn bị lỗi sấy rồi đó, xem sấy lại đi.

 

[thanhnha12345]

À cái Cái máy Toshiba E456 xuất ngày nó cứ báo lỗi C450 mà test Mode 400 không được. Vừa rồi họ mới chỉ là Test Mode 2002

bạn tắt nguồn mở lên ấn phím 0& phím 8 vào test mode ấn 400-start-0-enter/ nếu không hết lỗi đợi xíu cho nó nguội rồi làm lại, lỗi đấy là hư bộ sấy, nếu vẫn không hết thay cảm biến nhiệt khoảng 200k/con đó bạn.