原excel数据表格中，数据所在单元格的背景色代表着不同的含义，现在需要检测数据所在单元格的背景色，以做出相应的判断。
如果用VB直接调用打开excel工作簿，这样虽然能够判断单元格背景色，但程序运行会很慢，同时如程序运行过程中再单独打开其它excel工作簿很容易出错，很不方便。
现在想用ADO连接excel工作簿后，进行数据操作，想知道用ADO的话，有没有办法判断出数据所在表格的背景色呢？哪位老师知道的话烦请帮忙解答，谢谢！

经过测试，如果用程序语句打开源数据所在的excel工作簿后，将excel界面隐藏显示，那么只要程序中没有关闭并释放excel进程，那么在电脑上手动再打开其它excel工作簿，再点击保存并退出其它工作簿时，便会同时提示保存程序本身调用的那个excel文件。也就是说存在程序调用的工作簿和电脑上新打开的工作簿相互干扰的情况，所以想通过ADO访问excel工作簿来避免此类情况。
例子程序代码如下：
代码写到这里不知道怎么写了，已经建立了程序与excel的连接，我想取得工作簿中第一个工作表cells（1,1）的背景色颜色值，或取得单元格cells（1,1）的值，往下该怎么写？请指教，谢谢！

Private Sub Command1_Click()
Dim a
Dim Mycon As New ADODB.Connection
Dim Myrec As New ADODB.Recordset
Dim Mycom As New Dim f1 As ADODB.Field
Mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Administrator\Desktop\例子.xls;Extended Properties=excel 8.0;Persist Security Info=False"
Mycon.Open

End Sub

经过测试，如果用程序语句打开源数据所在的excel工作簿后，将excel界面隐藏显示，那么只要程序运行过程中没有关闭并释放excel进程，那么在电脑上手动再打开其它excel工作簿，再点击保存并退出其它工作簿时，便会同时提示保存程序本身调用的那个excel文件。也就是说存在程序调用的工作簿和电脑上新打开的工作簿相互干扰的情况，所以想通过ADO访问excel工作簿来避免此类情况。
例子程序代码如下：
代码写到这里不知道怎么写了，已经建立了程序与excel的连接，我想取得工作簿中第一个工作表cells（1,1）的背景色颜色值，或取得单元格cells（1,1）的值，往下该怎么写？请指教，谢谢！

Private Sub Command1_Click()
Dim a
Dim Mycon As New ADODB.Connection
Dim Myrec As New ADODB.Recordset
Dim Mycom As New Dim f1 As ADODB.Field
Mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Administrator\Desktop\例子.xls;Extended Properties=excel 8.0;Persist Security Info=False"
Mycon.Open

End Sub