Phương Phương mito
Thành viên thường trực
- Tham gia
- 1/5/19
- Bài viết
- 275
- Được thích
- 65
Kính thưa các anh chị,
Đoạn code sau có lỗi gì mà em chạy cứ báo lỗi khai báo biến ạ
Sub sql()
Dim cn As Object, sql As String
Dim FPath As String, FName As String
FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
.Open
End With
sql = "SELECT [Ngay thang], [Thu], [Ten NV],[Dien giai], [So tien] FROM RangeName WHERE Thu <> 'x' and Chi <> 'y' "
Set rs = cn.Execute(sql)
Sheet2.Range("A2").CopyFromRecordset rs
End Sub
Đoạn code sau có lỗi gì mà em chạy cứ báo lỗi khai báo biến ạ
Sub sql()
Dim cn As Object, sql As String
Dim FPath As String, FName As String
FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
.Open
End With
sql = "SELECT [Ngay thang], [Thu], [Ten NV],[Dien giai], [So tien] FROM RangeName WHERE Thu <> 'x' and Chi <> 'y' "
Set rs = cn.Execute(sql)
Sheet2.Range("A2").CopyFromRecordset rs
End Sub
