Hi, I'm trying to read a sas dataset using vba. Below is my codes. But it seems something wrong with my codes or some problems with my seeting. "Error 424" always pops up. Anyone could help me out? Thanks in advance. Public Sub GetData() Dim obConnection As Object Dim obRecordset As Object Dim i As Integer Set obConnection = CreateObject("Adodb.Connection") Set obRecordset = CreateObject("ADODB.Recordset") obConnection.Provider = "sas.LocalProvider.1" obConnection.Properties("Data Source") = "D:\Project\" obConnection.Open obRecordset.Open "raw", obConnection, adOpenStatic, adLockReadOnly, ADODB.adCmdTableDirect 'obRecordset.Open "select * from raw", obConnection, adOpenStatic, adLockReadOnly, ADODB.adCmdTableDirect Range(Cells(1, 1), Cells(obRecordset.RecordCount + 1, obRecordset.Fields.Count)).NumberFormat = "@" Cells(1, 1).Select For i = 0 To obRecordset.Fields.Count - 1 ActiveCell.Offset(0, i).Value = obRecordset.Fields(i).Name Next i Set obConnection = Nothing Set obRecordset = Nothing End Sub
... View more