请教2个导出到Excel的事件问题？（vb6.0）

Question

1、如何把RichTextBox1的文本导出到Excel的文本框1中？ 2、如何把Image1的图片导出到Excel的矩形 1中？ 找了好几本书都没找到相关的例子！也不知道有没有这样的功能...... 请问各位老师能实现这些功能吗？

Answer 1

objExcelSheet1.Range("A2:A2").Select
objExcelSheet1.Range("A2:A2") = objExcelSheet1.Pictures.Insert("图片路径").Select
objExcelSheet1.Range("B3:F3") = "文本"

Answer 2

没看出有“RichTextBox1”or“文本框1”or“矩形 1”的这些对象呀！

Answer 3

你先看下怎么操作Excel文件的帮助吧.不管对EXCEL做什么.就是指定行,列进行附值,插入值的关系.

Answer 4

问题是在Excel中“文本框1”、“矩形 1”的这些对象不在行与列的范围内！
它们可随便落动位置,应该是独立的一个对象!这类语句应该与赋值行列语句有所不同！书上又找不到相关的例子!是不是没有这些功能哦!

Answer 5

Dim hwnd As Long
   Dim i As Integer, j As Integer
    hwnd = FindWindow("XLMAIN", 0)
    If hwnd = 0 Then  '0 表示没有 Excel 在运行。
        GoTo cas
    Else
         MsgBox "请先关闭正在运行的EXCEL！", 64, "提示信息"
         Exit Sub
     End If
cas:
 Set xlapp = CreateObject("Excel.Application")
            Set xlapp = xlapp.Workbooks.Add
            xlapp.Parent.Windows(1).Visible = True        '使父窗体可见
        Set xlsheet = xlapp.application.Worksheets(1) '当前工作簿的第一页
   
For i = 0 To Grid1.Rows - 1
    Grid1.Row = i
    For j = 0 To Grid1.Cols - 1
        Grid1.Col = j
        xlsheet.Cells(i + 1, j + 1).Value = Grid1.Text
    Next
Nextxlsheet.Columns("b:IV").AutoFit 'a到i列自动调整列宽
 Call GetExcel

Answer 6

Range就代表矩形
Excel的文本框1-----  excel_app.ActiveSheet.Cells(1, 1) = RichTextBox1.Text
Excel的矩形 1----- excel_app.ActiveSheet.Range("A1")
保存图片用shapes集合
Call excel_sheet.Shapes.AddPicture(FileName:="E:\image\image\check_member.gif", linktofile:=msoTrue, savewithdocument:=msoTrue, Left:=100, Top:=100, Width:=70, Height:=70)