Lấy dữ liệu từ 1 file đang đóng định sẵn

[tuan206791]

Mọi người sửa giúp em đoạn code này không cần phải chọn file mà vẫn lấy được dữ liệu với ạ. Em cám ơn

 

[TongDe]

Chạy thử sub report, sửa đường dẫn nếu file đóng lưu nơi khác.

Sub Report()
 '1. Tao doi tuong muon lay du lieu
 
 Dim cn As Object
 Set cn = CreateObject("ADODB.connection")
 
 '2. Tui chua du lieu
 
 Dim rst As Object
 Set rst = CreateObject("ADODB.recordset")
 
 '3. Tao duong dan
 Dim address As String
 address = "C:\Users\Administrator\Downloads\dang_dong.xlsm"

 '4.Mo ket noi
 cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & address & ";Extended Properties=""Excel 12.0 Xml;HDR=No""")
 
 '5. Cho du lieu vao tui va loc
 rst.Open ("SELECT * FROM [sheet1$A2:I] WHERE f1 is not Null"), cn
 
 '6. Xoa Du lieu cu va gan du lieu moi
 Sheet1.Range("a1:i1000").ClearContents
 Sheet1.Range("a3").CopyFromRecordset rst
 Sheet1.Range("a3").CurrentRegion.EntireColumn.AutoFit

End Sub

 

[tuan206791]

Chạy thử sub report, sửa đường dẫn nếu file đóng lưu nơi khác.

Em không thấy code trong file Excel

 

[TongDe]

Xem và tải lại #2

 

[Hongha0412]

Xem và tải lại #2

Cho tôi hỏi thêm: Nếu file dang_dong.xlsm đang mở thì code phải như thế nào để không bị lỗi.

 

[TongDe]

Control + S (lưu file trước khi chạy code không cần đóng file)

Chụp lại thông báo lỗi thế nào ?

 

[Hongha0412]

Control + S (lưu file trước khi chạy code không cần đóng file)

Chụp lại thông báo lỗi thế nào ?

ok rồi, không còn lỗi nữa. Cảm ơn bạn.

 

[soap1234]

Xin hỏi anh nếu File dang_mo có chứa dữ liệu khi nhập mà không đè dữ liệu củ thì code sửa sao vậy chủ thớt

 

[tuan206791]

Chạy thử sub report, sửa đường dẫn nếu file đóng lưu nơi khác.

Sub Report()
 '1. Tao doi tuong muon lay du lieu
 
 Dim cn As Object
 Set cn = CreateObject("ADODB.connection")
 
 '2. Tui chua du lieu
 
 Dim rst As Object
 Set rst = CreateObject("ADODB.recordset")
 
 '3. Tao duong dan
 Dim address As String
 address = "C:\Users\Administrator\Downloads\dang_dong.xlsm"

 '4.Mo ket noi
 cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & address & ";Extended Properties=""Excel 12.0 Xml;HDR=No""")
 
 '5. Cho du lieu vao tui va loc
 rst.Open ("SELECT * FROM [sheet1$A2:I] WHERE f1 is not Null"), cn
 
 '6. Xoa Du lieu cu va gan du lieu moi
 Sheet1.Range("a1:i1000").ClearContents
 Sheet1.Range("a3").CopyFromRecordset rst
 Sheet1.Range("a3").CurrentRegion.EntireColumn.AutoFit

End Sub

Được rồi anh ạ, e cám ơn nhiều, nếu không muốn ghi ra sheet mà em muốn đưa vào mảng để xử lý tiếp thì sửa sao bác chỉ giúp em thêm tí nhé

 

[soap1234]

Code nhập vào mà không đè vào dữ liệu cũ thì code sửa sao vậy chủ thớt

 

[TongDe]

không muốn ghi ra sheet mà em muốn đưa vào mảng để xử lý tiếp thì sửa sao bác chỉ giúp em thêm tí nhé

Nghiên cứu file này nha.
Xử lý ngay tại file nhưng tại sheet khác.
Chọn số xe tại cell J1.

Bài đã được tự động gộp: 13/7/22

không đè vào dữ liệu cũ

Xác định dòng cuối trước khi ghi.

 

[soap1234]

Ý em là thực hiện trên file của bài 1 anh ạ

 

[TongDe]

Thay đoạn '6 bằng doạn này.

 '6. Tim dong cuoi gan du lieu moi
 DongCuoi = Sheet1.Range("c1000").End(xlUp).Row
 Sheet1.Range("a" & DongCuoi + 2).CopyFromRecordset rst

 

[soap1234]

Dạ em cảm ơn anh ạ

 

[soap1234]

Do hàng ngày em phải nhập liệu và phải sao lưu nên nhờ anh viết em code sao lưu vào file đang đóng nếu có dữ liệu cũ rồi thì lưu vào dòng tiếp theo anh ạ. em xin cảm ơn anh nhiều

 

[TongDe]

Vậy làm sao kiểm tra được dữ liệu nhập vào.
Đầu giờ mở file , mở sheet NhapLieu, Nhập thông tin từ E4,F4,G4, click ThemMoi, check lại thông tin, click Luu
Cuối giờ Control S, control F4 ...

 

[VetMini]

Vậy làm sao kiểm tra được dữ liệu nhập vào.
...

Sao lưu gọi là để ăn tiền cơ quan.
Tự dưng rồi đè cái file ra, chép cả đống vào đó và tự mãn là đã sao lưu chỗ hiện tại vào nó.
Không một dấu hiệu phân biệt, không ngày tháng, tên tuổi dữ liệu gốc. Lấy gì tìm lại mà bảo là đã sao lưu.

 

[thuy2022]

Cảm ơn các anh. Anh Tống Văn Đệ có thể nếu bổ sung thêm chức năng tạo 1 thông báo có muốn ghi đè dữ liệu dữ nếu sheet nhap lieu có tên Nguyễn Văn A, sheet1 cũng có tên Nguyễn Văn A (dựa vào cột họ tên thì sẽ ghi đè vào không anh)

Bài đã được tự động gộp: 14/7/22

Anh việt ơi 2 file này em bố trí các cột giống nhau mà anh. em chỉ cần khi nhập thông tin vào file du lieu nhap hang ngay thì khi luu nó sẽ lưu vào dòng cuối cùng có dữ liệu của file du lieu can sao luu thôi anh ạ

 

[TongDe]

Nếu 3 người trùng tên thì sao ?
Trong cty cũ của tôi có đến 3 cặp trùng cả tên và họ đấy

 

[Hoàng Tuấn 868]

code sao lưu vào file đang đóng

Chẳng may code lỗi không lưu, cuối tháng mở ra thì...