Dữ liệu bị lệc khi truy vấn từ Accsess về Excel - 9,1 = 9,10000038146972 Nhờ mọi người chỉ giúp cách khắc phục.

[ngocbinh.no.kia]

Sử dụng truy vấn SQL để kết nối và lấy dữ liệu từ File AC về Ex; Dữ liệu ở bên AC nhập số thập phân, khi lấy sang EX thì bị thêm số lẻ đằng sau, có cách nào để lấy y nguyên số bên AC sang EX, nhờ mọi người chỉ giúp. xin cảm ơn

Bài đã được tự động gộp: 21/9/21

Sub ADD_Data()
' Lay du lieu tu accsess
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("BAOCAO")

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim qry As String, i As Integer
qry = "SELECT * FROM DIEMSO"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\DIEM.accdb"
rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
sh.Cells.ClearContents
sh.Range("A2").CopyFromRecordset rst
For i = 1 To rst.Fields.Count
sh.Cells(1, i).Value = rst.Fields(i - 1).Name
Next i
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

 

[VetMini]

Viết lại query. Chỗ cột cho kết quả kia thì dùng hàm Fix(100 * [cột cà chớn]) / 100

 

[ngocbinh.no.kia]

Xin cảm ơn! có phương pháp nào với trường hợp số lượng cột nhiều ( tầm 200 cột thì qry rất dài)