用ADO连接excel后有没有办法获取excel表格中单元格背景色的信息？ - 编程论坛

#2

约定的童话2021-10-15 11:24

ADO的话也快不了多少，判断单元格背景色必须遍历单元格，这个始终绕不开，慢就慢在遍历过程上...

#3

duzihanghai2021-10-15 17:21

回复楼主 duzihanghai

只有本站会员才能查看附件，请登录

经过测试，如果用程序语句打开源数据所在的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

#4

duzihanghai2021-10-16 08:28

回复 2楼约定的童话

只有本站会员才能查看附件，请登录

经过测试，如果用程序语句打开源数据所在的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