怎么让VB6.0编写的程序计算出的结果输出到excel表中指定的单元格中?

比如说输出到C5格中?

首先要引用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 = xltmp.Workbooks.Add
Set xlsheet = xlBook.Worksheets(1)
xlBook.Worksheets(1).Cells(5,3) =xx
xlBook.Close True
Set xlsheet = Nothing
Set xlBook = Nothing
xltmp.Quit
Set xltmp = Nothing
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-06-03
实际上在EXCEL中,XX格是有坐标的,比如你说的C5格,就是.cell(5,3),即前一个参数为第几行,后一个参数为第几列。这样就可以定位了。

怎么让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用编程编写如何获得数值在Excel单元格的哪行哪列
建议用find函数,并给定范围,以提升效率。举例如下:With Sheets(1).[A:Z] ‘范围为Sheet1 A到Z列当然更小更好 Set c = .Find("F001", LookIn:=xlValues) ‘找到包含目标的单元格 myrow = c.Row ‘给出单元格行数 mycol = c.Column ‘给出单元格列数 End With ...

VB6.0怎么把记事本里面的数据导入到EXCEL中并且一个单元格装一个...
比较简单的办法就是复制粘贴,前提是每个数字之间有空格或者分隔符 以下假设你的分隔符是一个空格:把记事本中的数据全选,复制,粘贴到word 在word中,选择替换,(注意,如果你在记事本中的分隔符是不规则的空格的话,先在这里把多个空格替换成一个空格),把空格替换成【^t】(不包括【】),然后全...

怎样用VB6.0把Listview中查询到的数据导入到EXCEL
1,打开access,点击工具栏的外部数据,点击excel。2,点击浏览,选择要导入的excel表格,选好后点击确定,在获取外部数据中点击确定。3,点击确定后会弹出导入数据包向导框,点击下一步,然后到另一个步骤。4,点击下一步后,再点击下一步,然后在框里输入要导入的数据表的名称,最后点击完成就可以了。

vb6.0如何读取excel指定某行单元格内容?
bb = Range("a1:d1").Value debug.print "a1=",bb(1,1)debug.print "b1=",bb(1,2)debug.print "c1=",bb(1,3)debug.print "d1=",bb(1,4)

vb6.0里datagrid里的数据怎么导到excel里?
myval = MsgBox("是否保存该Excel表?", vbYesNo, "提示窗口")If myval = vbYes Then mystr = InputBox("请输入文件名称", "输入窗口")If Len(mystr) = 0 Then MsgBox "系统不允许文件名称为空!", , "提示窗口"Exit Sub End If On Error GoTo ErrSave newsheet.SaveAs App.Path &...

...如何编写代码使数据库导出到excel、word或html上?
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.0怎么从excel中随机读取某一行某一列单元格的内容到text.text里...
先确定好行数和列数的范围,再用随机函数产生行数和列数,最后用赋值语句直接读取单元格的值就可以了。

VB6.0 把LISTBOX输入到EXCEL单元格
'先引用Excel '下面是基础代码,创建Excel对象并操作Excel表格,后面就看你自己发挥了 Dim myexcel As New Excel.Application Dim mybook As New Excel.Workbook Dim mysheet As New Excel.Worksheet Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK Set mysheet = mybook.Worksheets.Add '...

vb6.0如何操作excel
lap1 'objExcel.ActiveWindow.SelectedSheets.PrintOut , , , False '直接通过默认打印机打印这个表 objexcel.Application.Dialogs(8).Show '调出excel打印设置窗口 lap1:objexcel.Application.Quit '退出excel程序 Set xlsheet = Nothing Set xlBook = Nothing Set objexcel = Nothing End Sub ...

相似回答