求救：急急！！！VB中如何将ACCESS数据库某表的内容转换到WORD、EXCEL或其他

Question

内容转换到EXCEL
    Set appExcel = CreateObject("Excel.Application")
    Set appwbExcel = appExcel.Workbooks.Open(Ee)
    Set Sh = appwbExcel.Sheets("sheet1")
    
      T1 = "北二层西区A、"      '固定内容
      T2 = "B门"
            Sh.Cells(1, 1) = T1
            Sh.Cells(1, 2) = T2
                 
    appwbExcel.Save
    Set Sh = Nothing
    appwbExcel.Close False
    appExcel.Application.Quit内容转换到文本：
Open "d:\xx.txt" For Output As #1
  Print #1, T1
  Print #1, T2;
close 1

Answer 1

内容转换到EXCEL
    Set appExcel = CreateObject("Excel.Application")
    Set appwbExcel = appExcel.Workbooks.Open(Ee)
    Set Sh = appwbExcel.Sheets("sheet1")
    
      T1 = "北二层西区A、"      '固定内容
      T2 = "B门"
            Sh.Cells(1, 1) = T1
            Sh.Cells(1, 2) = T2
                 
    appwbExcel.Save
    Set Sh = Nothing
    appwbExcel.Close False
    appExcel.Application.Quit内容转换到文本：
Open "d:\xx.txt" For Output As #1
  Print #1, T1
  Print #1, T2;
close 1

Answer 2

不好意思 借用地方了 问个问题利用vb操作excel的工作本 使打印时 能按照特定的行数分页 
我录制了宏 是在特定行加注分页符的 意图在特定行分页打印 然后把宏里的代码 复制到vb中可是出错阿
Rows(r).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
以上是出错的代码
您是怎么做的 教教我啊 送分送分 谢谢谢谢！！！！！！！！！

Answer 3

不好意思 借用地方了 问个问题利用vb操作excel的工作本 使打印时 能按照特定的行数分页 
我录制了宏 是在特定行加注分页符的 意图在特定行分页打印 然后把宏里的代码 复制到vb中可是出错阿
Rows(r).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
以上是出错的代码
您是怎么做的 教教我啊 送分送分 谢谢谢谢！！！！！！！！！

Answer 4

这种调用EXCEL的方法太慢,还容易出问题.

Answer 5

http://www.wzjcw.net/vbgood/taishan/mdb2xls.zip

Answer 6

如果导到WORD？？如何建立ACCESS.Application对象，然后使用其接口或什么调节用其的功能以发布表的内容到WORD？？？？？请大家帮帮忙！！！！！！！急急急！！！！！！！！！

Answer 7

同楼上几位的理，创建Word.Document进行处理
在Word中的表格对象好象是Word.Table和单元格Word.Cell