VB对把数据库数据生成到WORD或者EXCEL··问题··高分求助。。···

Question

现在数据库已经绑定好了。数据也已经录入成功了。 图片二进制传入ACCESS数据库了 但是现在要生产WORD表格。EXCEL也行。只要能达到效果
我已经知道了 EXCEL操作的代码是  问题是这种只是已经有确定要写入哪些数据的操作了。问题是数据库里数据如何写入？这是EXCEL的。
Dim Application As Object   '建立excel
Dim WorkBook As Object
Dim Sheet As Object
Set Application = CreateObject("Excel.Application") '建立EXCEL对象
Set WorkBook = Application.Workbooks.Add() '建立一个新的Excel文档
Set Sheet = WorkBook.Sheets.Add() '建立一个新表单
Sheet.Cells(1, 1).Value = "Hello,Excel!" '填写表单的第一行第一列的值 ,你可以用循环,写入Excel的不同行就行了.
Application.Visible = True 'EXCEL使之可见WORD。我在网上也搜索了。确实没什么好的办法。或者比较详细的解答才来求助的。网上的办法是 有的是VBA什么的。但是VBA也仅是对WORD操作。生成制表等等。 我现在要求是数据库中的数据直接录入到WORD里。像直接生成。 我看有的做法是，用模板 然后把固定位置留出来。然后生成。这方法挺好。解决VBA操作WORD画那么复杂的表格。 这样用模板的话。就直接调用模板。但是后续例如一个页面绑定了一些数据，然后点击按钮，即可生成WORD文件。同时这个页面的数据也写入固定模板的位置 该如何操作？这个例子我操作了下。http://topic.csdn.net/u/20091023/15/7FB87578-2F2F-4E83-95C8-F3F408032062.html#r_60629821
老提示：Set Appword = New word.Application 类不支持自动化，自动化接口上面那个例子里面也虽然有了数据可以录入。但是还有个关键问题。就是数据库中的图片是二进制图片存储的， 如何也读出来并漂浮的格式设置于WORD上？  这个状态不是凭空想的。而是通过一个例子里面操作来的。具体看以下代码。他这种方式是用标签录制了宏。然后再没个宏下面绑定数据么？  Dim moban As String, linshi As String
  Dim ifieldcount As Integer, irecordcount As Integer
  Dim wdapp As Word.Application
  Dim wddoc As Word.Document
    Dim iFileNumber As Integer
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    Dim mymrc As ADODB.Recordset
    Dim mrs As ADODB.Recordset
  Dim D1 As String
  Dim D2 As String
  Dim D3 As String
  
  D1 = "第一阶段"
  D2 = "第二阶段"
  D3 = "第三阶段"
  On Error Resume Next
  '创建word应用程序，这一句话打开word2000
  Set wdapp = CreateObject("Word.Application")
  '在word中添加一个新文档
  
  moban = App.Path & "\电子档案模板.doc"
  
'模版文件linshi = App.Path & "\电子档案.doc"FileCopy moban, linshi '将模版文件拷贝到一个临时文件
  
  
  
  
  Set wddoc = wdapp.Documents.Open(linshi)
  With wdapp
  '.Visible = True
  .Activate
    End With
    
     txtSQL = "select * from student_Info where student_Name = '" & StudentName & "' "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
   
   Call ReadImage(mrc.Fields("zhaopian"))                   '读取照片
   
   Shengcheng = True       wdapp.Selection.Goto wdGoToBook, , , "编号"
    wdapp.Selection.TypeText mrc!student_id
    wdapp.Selection.Goto wdGoToBook, , , "姓名"
    wdapp.Selection.TypeText mrc!student_Name
        wdapp.Selection.Goto wdGoToBook, , , "曾用名"
    wdapp.Selection.TypeText mrc!cengyongming
    wdapp.Selection.Goto wdGoToBook, , , "出生日期"-----哪位给整理下。 具体该怎么做。不操作生成WORD 生成EXCEL也行。  只要能满足从ACCESS数据库里调取了数据并支持图文混排到这两个文件即可。。----------------

Answer 1

不好意思，本人确实知道怎么做，无奈对CreateObject过敏

Answer 2

不用这个。createobject换个也行。 只要能搞定。····

Answer 3

如果是单纯的文本或数据写入Excel文档，直接新建一个.xls文件，每行用chr(9)隔开列，一行一行写入就行了。
用Excel打开该文件就是表格。

Answer 4

EXCEL文件那个写入的我到是可以写入了。 但是只是文本文件。哪数据库中如果是二进制图片文件 有办法提出出来并显示到EXCEL么。 我看有个例子里面做到了。并且是在WORD里面 所以现在来求助一下。 

Answer 5

股沟下这个试试“vb excel 插入图片”

Answer 6

既然图片二进制写入数据库，那么就二进制读出重新生成临时的图片文件。
然后用 Excel 的 “插入\图片\来自文件”功能添加图片。
最后临时文件就可以清除了。