怎样用VB设置excel中CELL的颜色和宽度，还有一些EXCEL操作问题

Question

1、怎样用VB设置excel中CELL的颜色？
   oleWorkSheet.Cells(1, 1).Interior.ColorIndex = 42
   oleWorkSheet.Cells.ColumnWidth = 155
   为什么这样没效果？
2、如果想在已经存在的EXCEL中在最上面添加一个空行（用来放标题），代码该怎么写
3、要合并相邻的两个CELL，代码该怎么写

Answer 1

人呢？？？？
再加一个问题
ADOCmd.CommandText = "insert into OPENROWSET('MSDASQL','Excel 11.0;HDR=YES;DATABASE=" & CommonDialog1.FileName & "',sheet1$)select * from newFinnalTemp"
ADOCmd.Execute
我用这个方法往EXCEL中导入数据，但是提示could not find installable isam
MSDN上说是Microsoft Jet 4.0 数据库引擎不对，但是数据库殷勤我其他地方也用的啊，谁帮我判断一下语句是不是对的啊

Answer 2

1、怎样用VB设置excel中CELL的颜色？
   oleWorkSheet.Cells(1, 1).Interior.ColorIndex = 42
   oleWorkSheet.Cells.ColumnWidth = 155
   这样的设置我测试过,OK.2、如果想在已经存在的EXCEL中在最上面添加一个空行（用来放标题），代码该怎么写
  strCol = Right(objWorkSheet.Columns(lngCols).AddressLocal, 2)
  objWorkSheet.Rows("1:1").Insert Shift:=xlDown
  MergeCells objWorkSheet.Range("A1:"& strCol &"1"),strTitle
3、要合并相邻的两个CELL，代码该怎么写
 合并单元格使用MergeCells range

Answer 3

用Execl的记录宏,自己手工在Execl操作,察看宏记录就好了.

Answer 4

ADOCmd.CommandText = "insert into OPENROWSET('MSDASQL','Excel 11.0;HDR=YES;DATABASE=" & CommonDialog1.FileName & "',sheet1$)select * from newFinnalTemp"
ADOCmd.Execute
我用这个方法往EXCEL中导入数据，但是提示could not find installable isam
MSDN上说是Microsoft Jet 4.0 数据库引擎不对，但是数据库殷勤我其他地方也用的啊，谁帮我判断一下语句是不是对的啊
这个问题谁来回答啊
再加一个
已经有数据的表里我在最上面插入一行，然后设置他的颜色和宽度是不是没用的啊？

Answer 5

基本上vba的程序只要录制一下宏问题就可以解决了。

Answer 6

ADOCmd.CommandText = "insert into OPENROWSET('MSDASQL','Excel 11.0;HDR=YES;DATABASE=" & CommonDialog1.FileName & "',sheet1$)select * from newFinnalTemp"
ADOCmd.Execute
我用这个方法往EXCEL中导入数据，但是提示could not find installable isam
MSDN上说是Microsoft Jet 4.0 数据库引擎不对，但是数据库殷勤我其他地方也用的啊，谁帮我判断一下语句是不是对的啊
这个问题谁来回答啊
再加一个
已经有数据的表里我在最上面插入一行，然后设置他的颜色和宽度是不是没用的啊？
这两个问题谁解啊