十万火急，送一百分！

[glsoft232]

我从数据库中获取了一个图片文件，利用ADO的方法存成一个本地的文件，然后想把该文件放入EXCEL表格中，显示出来，源程序是这样的：
Dim cnss As New ADODB.Connection

Private Sub cmdToExcel_Click()
Dim rs As New ADODB.Recordset
Dim S As String
Dim exl As Excel.Application
Dim wks As Worksheet
Dim i As Integer
Dim j As Integer
rs.Open "select * from 报价单", cnss, adOpenKeyset, adLockOptimistic

Set exl = New Excel.Application
Set wks = exl.Workbooks.Add.Worksheets(1)
exl.Visible = True
'wks.Cells(1, 1) = "ARTNO"
'wks.Cells(1, 2) = "UPPER"
'wks.Cells(1, 3) = "LINLING"
'wks.Cells(1, 4) = "OUTSOLE"
'wks.Cells(1, 5) = "INSOLE"
'wks.Cells(1, 6) = "LOGO"
'wks.Cells(1, 7) = "PRICE"
'wks.Cells(1, 8) = "REMARK"
'wks.Cells(1, 9) = "PHOTO"
For i = 1 To rs.RecordCount
'For j = 1 To rs.Fields.Count - 1

'wks.Cells(i + 1, j) = rs(j - 1)
wks.Cells(1 + (i - 1) * 9, 1) = "ARTNO:" & rs(0)
wks.Cells(2 + (i - 1) * 9, 1) = "UPPER:" & rs(1)
wks.Cells(3 + (i - 1) * 9, 1) = "LINLING:" & rs(2)
wks.Cells(4 + (i - 1) * 9, 1) = "OUTSOLE:" & rs(3)
wks.Cells(5 + (i - 1) * 9, 1) = "INSOLE:" & rs(4)
wks.Cells(6 + (i - 1) * 9, 1) = "LOGO:" & rs(5)
wks.Cells(7 + (i - 1) * 9, 1) = "PRICE:" & rs(6)
wks.Cells(8 + (i - 1) * 9, 1) = "REMARK:" & rs(7)
'wks.Cells(9 + (i - 1) * 9, 2) = wks.("C:\WINDOWS\Desktop\数据库到Excel\danju.jpg")‘在这一步不能实现文件的插入，问题就在这里，望高手指点主要是EXCEL中提供了什么方法可以把文件插入到表格中？？？
'Next j
'wks.
Next i
End Sub

Private Sub Form_Load()
cnss.CursorLocation = adUseClient
cnss.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\system1.mdb"

End Sub

[SoHo_Andy]

试试，调试通过
Private Sub Command2_Click()
Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

xlapp.Caption = "test"
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(1)

xlapp.ActiveSheet.Pictures.Insert("C:\Documents and Settings\wangbing\桌面\未命名.bmp").Select
xlapp.Visible = True
End Sub

[glsoft232]

但我想把该C:\Documents and Settings\wangbing\桌面\未命名.bmp图片放到特定的网格中比如：wks.Cells(9 + (i - 1) * 9, 2) 这个excel网格中，那该用什么方法呢？望高手再指点一下！先谢谢了！