Tự động lấy dữ liệu từ file này sang file khác (1 người xem)
- Thread starter kulyvn
- Ngày gửi
Người dùng đang xem chủ đề này
hungpecc1
Thành viên gắn bó
- Tham gia
- 24/8/12
- Bài viết
- 1,709
- Được thích
- 2,304
- Giới tính
- Nam
Câu 1 : lấy tất cả dữ liệu từ A6:G9 tham khảo code sau :
[GPECODE=vb]
Sub HLMT()
Dim cnn As Object, rst As Object
Dim SQL$
Set cnn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
With cnn
.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data source=" & ThisWorkbook.Path & "\VIDU.xls" & _
";Extended properties=""Excel 8.0;HDR=N0;IMEX=1;"";"
.Open
End With
SQL = "SELECT * FROM [A5:G1000]"
rst.Open SQL, cnn, 3, 1, 1
[A6].CopyFromRecordset rst
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
End Sub
[/GPECODE]
Câu 2: ..................()
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,982
Tại file VIDU1, gõ công thức này vào cell A6:
Mã:
='[VIDU.xls]SỔ THỤ LÝ'!A6Đơn giản vây thôi
Ở cột số thứ tự và ngày tháng năm dù bên file gốc không có dữ liệu nhưng nó vẫn tự động nhảy số thứ tự và ngày tháng năm thì nó tự động điền là 00/01/1900. Làm sao để khắc phục lỗi này và để nó là trống nếu không có dữ liệu vậy>
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
Bạn hỏi ai trong số 2 người trả lời cho bạn? Phải biết hỏi ai thì mới biết bạn muốn giúp theo "kiểu" của người nào chớ.
Bạn nên tập bấm vào nút <trả lời với trích dẫn> dưới bài của người bạn muốn hỏi tiếp hay muốn trả lời bài viết của người đó, như vậy rõ ràng hơn và không làm người khác "bị ức chế".
Ở cột số thứ tự và ngày tháng năm dù bên file gốc không có dữ liệu nhưng nó vẫn tự động nhảy số thứ tự và ngày tháng năm thì nó tự động điền là 00/01/1900. Làm sao để khắc phục lỗi này và để nó là trống nếu không có dữ liệu vậy>
- Tham gia
- 18/3/08
- Bài viết
- 8,314
- Được thích
- 15,884
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
DO cột đó bạn định dạng kiểu dd/mm/yyyy nên nó sẽ ra kiểu ngày tháng năm là đúng, bạn định dạng lại là được. Không có dữ liệu hàm sẽ cho ra số 0, số 0 khi định dạng ngày tháng năm sẽ ra số 00/01/1900.
- Tham gia
- 18/3/08
- Bài viết
- 8,314
- Được thích
- 15,884
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Thì cột STT của bạn là cột số mà, định dạng nó về dạng số cho tương ứng với kiểu dữ liệu của bạn chứ ai lại định dạng về dạng ngày tháng nữa.
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
Thôi thì thêm vào công thức của bạn ndu... như vầy thử xem:
A6=IF('[VIDU.xls]SỔ THỤ LÝ'!A6="";"";'[VIDU.xls]SỔ THỤ LÝ'!A6)
Nó là ô trống khi không có dữ liệu, tính sao thì tính.
thế cột ngày tháng thì sao đây
- Tham gia
- 18/3/08
- Bài viết
- 8,314
- Được thích
- 15,884
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Cột ngày tháng thì bạn chỉnh lại đúng định dạng ngày tháng thôi. Tôi thấy mấy vấn đề này bạn tự làm được mà.
CÓ PHẢI THẾ NÀY: TẠI Ô F6=IF('[VIDU.xls]SỔ THỤ LÝ'!$D6<>0,'[VIDU.xls]SỔ THỤ LÝ'!$D6,"")
riêng cột TT thì bạn nên định dạng kiểu Number thế phải ko ah
Lần chỉnh sửa cuối:
- Tham gia
- 18/3/08
- Bài viết
- 8,314
- Được thích
- 15,884
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Hãy cố tự làm cho ra vấn đề dể để còn tiếp thu cái khó hơn nhé bạn.
Bài viết mới nhất
- Question
- Question
Tải kết quả xổ số 3 miền về excel
(1 người xem)
- Question
Nhờ viết code VBA để thống kê các số hay ra cùng nhau
(1 người xem)
