Ai biết cách truy cập dataset của SAS bằng VBA Excel chỉ giáo hộ mình cái. Mình có đoạn code sau, đã làm đúng hướng dẫn nhưng luôn găp lỗi “ The table could not be found”. Thanks for any help !
Mã:
Sub Sas2excel()
Dim obRecordset As ADODB.Recordset
Dim i As Integer
Set obConnection = New ADODB.Connection
obConnection.Provider = "sas.LocalProvider.1"
obConnection.Properties("Data Source") = "C:\My SAS Files\9.1\"
obConnection.Open
Set obRecordset = New ADODB.Recordset
obRecordset.Open "All.sas7dbdat", obConnection, adOpenDynamic, adLockReadOnly, ADODB.adCmdTableDirect
'format the cells to text
Range(Cells(1, 1), Cells(obRecordset.RecordCount + 1, obRecordset.Fields.Count)).NumberFormat = "@"
'add header row
Cells(1, 1).Select
For i = 0 To obRecordset.Fields.Count - 1
ActiveCell.Offset(0, i).Value = obRecordset.Fields(i).Name
Next i
' add detail rows
obRecordset.MoveFirst
Cells(2, 1).SelectActiveCell.CopyFromRecordset obRecordset
obRecordset.Close
Set obRecordset = Nothing
obConnection.Close
Set obConnection = Nothing
End Sub
Lần chỉnh sửa cuối: