Copy dữ liệu từ sheet bị ẩn hoặc siêu ẩn (1 người xem)

[Blad01]

Như tiêu đề các bạn cho tôi hỏi có cách nào viết code để copy dữ liệu từ sheet bị ẩn hoặc siêu ẩn không. Nếu được lấy giúp một ví dụ. Cảm ơn nhiều.

 

[giaiphap]

Như tiêu đề các bạn cho tôi hỏi có cách nào viết code để copy dữ liệu từ sheet bị ẩn hoặc siêu ẩn không. Nếu được lấy giúp một ví dụ. Cảm ơn nhiều.

Thì mình viết code như những sheet bình thường thôi mà bạn.

 

[Blad01]

Viết được nhưng không thực hiện lệnh copy được bạn à. Chỉ còn cách trước lệnh copy mình cho hiện sheet sau đó lại ẩn sheet. Tôi thử rồi

 

[giaiphap]

Viết được nhưng không thực hiện lệnh copy được bạn à. Chỉ còn cách trước lệnh copy mình cho hiện sheet sau đó lại ẩn sheet. Tôi thử rồi

Bạn đưa file mà bạn cho là làm không lên đây thử xem. Nếu được bạn thử đoạn code này thử xem.

Sheet1.Range("A1:B2").Copy Sheet2.Range("C3:D4")
[COLOR=#ff0000]'Copy dữ liệu từ sheet1 (Vùng A1:B2) đến sheet2 (Vùng C3:D4), trong đó sheet1 siêu ẩn.[/COLOR]

 

[Blad01]

Đây bác xem giúp em tại sao code không copy được, nó báo lỗi ở phần chữ em bôi đỏ, em có 02 sheet siêu ẩn mầu đỏ, có đặt mật khẩu cho sheet (MK là: 1), Bác xem file đính kèm và tìm nguyên nhân, sửa code giúp em nhé.

Public Sub GPE()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Path As String, oFolder As Object, Arr, Ws As Worksheet, Wb As Workbook
Arr = Array(Sheet3.Name, Sheet5.Name)
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Hay chon thu muc luu file", 0)
If oFolder Is Nothing Then
MsgBox "Chua chon thu muc luu": Exit Sub
End If
Path = oFolder.Items.Item.Path
Sheets(Arr).Copy
Set Wb = ActiveWorkbook
For Each Ws In Wb.Worksheets
Ws.Range("A1", Ws.Range("A65000").End(3)).Resize(, 23).Value _
= Ws.Range("A1", Ws.Range("A65000").End(3)).Resize(, 23).Value
Ws.PageSetup.PrintArea = Ws.Range("A1", Ws.Range("A65000").End(3)).Resize(, 23).Address
Ws.PageSetup.Orientation = xlLandscape
Ws.PageSetup.PaperSize = xlPaperA4
Next Ws
Wb.Close True, Path & "\File New.xlsx"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[Let'GâuGâu]

cái ws đâu tiên của bạn nó trống trơn à
nguyên cái khúc này
Ws.Range("A1", Ws.Range("A65000").End(3)).Resize(, 23)
nó là dòng đầu tiên, mà cell nó bị trộn nữa nên nó báo lổi

 

[Blad01]

cái ws đâu tiên của bạn nó trống trơn à
nguyên cái khúc này
Ws.Range("A1", Ws.Range("A65000").End(3)).Resize(, 23)
nó là dòng đầu tiên, mà cell nó bị trộn nữa nên nó báo lổi

bác sửa giúp em code với ? code này của một bác trong diễn đàn giúp em ở bài này: http://www.giaiphapexcel.com/forum/...ữ-liệu-từ-file-excel-này-sang-file-excel-khác Rất mong các bạn trong diễn đàn sửa lỗi giúp.