6,210
社区成员
发帖
与我相关
我的任务
分享
Sub Macro1()
Dim s As String
With CreateObject("ADODB.connection")
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=NO;';Data Source=AAA.XLS"
s = .Execute("SELECT * FROM [sheet1$A1:A1]").GETSTRING
.Close
End With
MsgBox s
End Sub
MsgBox Workbooks("aaa.xls").Sheets("sheet1").[a1]