VB6，如何将后台Access中的图片导入到相应的Excel表格中
Private xlapp As Excel.Application
Private xlbook As Excel.Workbook
Private xlsheet As Excel.Worksheet
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.application") '创建Excel对像
xlapp.Visible = True '确认文档可见
Set xlbook = xlapp.Workbooks.Open(App.Path + "\Printbook2.xls") '打开现有工作簿
Set xlsheet = xlbook.Worksheets("Print2") '确定活动工作表Sheet
'下面这句应该会出错，我需要导入4组数据，共4个图片
xlsheet.Cells(5, 1)=Adodc1.Recordset.Fields("图片")
请帮帮忙
Access数据库是支持过程存贮的，这也就意味着我们可以在Access中去编写一段导入Excel数据表的程序，关键在于这个导入程序非常好写，只需要调用一下Access的特写方法就行了，用不着一句一句硬写，比如，我写的一个信息系统中，在Access中导入Excel表就有这么一句
DoCmd.TransferSpreadsheet acImport, , "导入选题", "选题.XLS", True, "A1:F100"
你看这多简单 就是Access中DoCmd对象的一个TransferSpreadsheet方法就行了，而且执行效率比自己硬写的高得多
你再研究一下，VB是可以调用Access中的存贮过程的，这样不就解决问题了吗
怎样用VB6.0把Listview中查询到的数据导入到EXCEL
1，打开access，点击工具栏的外部数据，点击excel。2，点击浏览，选择要导入的excel表格，选好后点击确定，在获取外部数据中点击确定。3，点击确定后会弹出导入数据包向导框，点击下一步，然后到另一个步骤。4，点击下一步后，再点击下一步，然后在框里输入要导入的数据表的名称，最后点击完成就可以了。
用vb6 如何把显示的图片放入Excel指定的表格中
xlsheet.Range("10,4").Select ActiveSheet.Pictures.Insert(App.Path & "\\pic1.bmp").Select
VB6.0 连接Access数据库后 如何编写代码使数据库导出到excel、word或htm...
Private Sub Command1_Click() Dim xlapp As Variant Dim xlBook As Variant Dim xlSheet As Variant Dim sum As Long Set xlapp = CreateObject("excel.application") Set xlBook = xlapp.Workbooks.Open(App.Path & "\\data\\报表.xlt") '打开EXCEL模板 'Set xlBook =...
VB6插入图片到 Excel 2007 指定单元格
1、先编制表格：2、在表格里编写触发宏代码：Private Sub Worksheet_Change(ByVal Target As Range)Dim photoname As String If Target.Row = 3 And Target.Column > 3 And Target.Column < 6 Then On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 Application.ScreenUpdating = ...
在VB6中如何将access格式导出成EXCEL格式
Private Function ExportDetail(strFileName As String) As Boolean Dim iRow As Long Dim myExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet On Error GoTo ErrAction ExportDetail = False Set myExcel = New Excel.Application myExcel.Visible = False my...
各位大侠,VB6.0能引进Exl中的数据进行编程不
然后就可以编程了吧！其实我就用Access导入Excel的表格，用的是Access的自带的功能。方法如下：打开Access，文件—>获取外部数据—>导入，然后按部就班做就行。注意，导入Excel的数据表的字段最后与Access的字段相同，免去了许多麻烦。导入数据后，你想怎么处理数据都行！
vb如何将多张图片写入到一个文件中并分别调用?
使用流对象保存和显示图片 打开vb6,新建工程。添加两个按钮,一个image控件 注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image '** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本 ‘2.5版本以下不支持Stream对象 Dim iConcstr As ...
怎么让VB6.0编写的程序计算出的结果输出到excel表中指定的单元格中?
首先要引用EXCELL类（ Microsoft Excel 11.0 Object Library)dim XX as string '这个是你计算出的结果，我以字符类型为例 Dim xltmp As Excel.Application Dim xlBook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xltmp = New Excel.Application xltmp.Visible = False Set xlBook = ...
vb6.0中如何把EXCEL表格中的数据导入到access库中
1,打开access,点击工具栏的外部数据,点击excel。2,点击浏览,选择要导入的excel表格,选好后点击确定,在获取外部数据中点击确定。3,点击确定后会弹出导入数据包向导框,点击下一步,然后到另一个步骤。4,点击下一步后,再点击下一步,然后在框里输入要导入的数据表的名称,最后点击完成就可以了。 已赞过 已踩过<...
用VB6.0新建excel表格,并复制另一个已有的sheet1,复制到新建的表格中...
xlSheet.Range("A:IV").Copy Destination:=xlSheet1.Range("A1") ‘这就是复制到语句 xlBook.Save xlBook1.Save xlBook.Close xlBook1.Close Set xlBook = Nothing Set xlSheet = Nothing Set MyExcel = Nothing Set xlBook1 = Nothing Set xlSheet1 = Nothing Set MyExcel1 = Nothin...
