Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
1/ Các vấn đề liên quan đến code cũ:
- Chèn thêm cột, làm thay đổi cấu trúc viết code
- Thay đổi thứ tự cột, cũng làm thay đổi nội dung code
- Nếu tiếp tục thay đổi thêm nữa thì "nghỉ".
2/ Dữ liệu file con từ cột B, Copy sang mẫu vào cột A, Nếu quy luật như vậy thì không cần phải xoá cột A trong file con.
3/ Vì không biết các File của bạn nằm ở đâu trong máy bạn, nên tạm phải mở file con lên, nhập tên file chính xác vào ô A1 của file Mẫu.
Trong Sub có các dòng lệnh Open file con khi nó chưa được mở, (đã bị vô hiệu bằng dấu nháy đơn đầu dòng). Bạn thử bỏ các dấu nháy đó và thử code chạy có bị lỗi không. (Điều kiện: File Mẫu và các file con nằm cùng Folder)
PHP:
Public Sub Copy_Line()
Application.ScreenUpdating = False
'On Error Resume Next'
Dim Wb As Workbook, FName As String, Pat As String, DK As Boolean, Myname As String
'Pat = ThisWorkbook.Path'
Myname = ThisWorkbook.Name
FName = Range("A1").Value
'For Each Wb In Workbooks'
'If Wb.Name = FName Then DK = True'
'Next Wb'
'If DK = False Then'
'Workbooks.Open Filename:=Pat & "\" & FName '
'End If'
Windows(FName).Activate
Range([B2], [B2].End(xlDown)).Resize(, 6).Copy
Windows(Myname).Activate
Range("A4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("K1").Select
End Sub
Lần chỉnh sửa cuối:
