用"excel"搜索一下以前的贴子吧,有很多这方面的回答。
解决方案 »
- 『急用啊』请用VB设计一个程序,打印指定年份的公历表和农历表
- 【问】如何解析一段网页源码?(比如取出所有超链接)
- 菜鸟问题:vb里如何定义有缺省参数的函数
- 有关combo控件的问题,请教高手,谢谢!
- 一个记录型文件,如何删除某一条记录值
- 一个不难的的问题,但急用,大家帮忙呀。在线等待!!
- WinSock的的连接问题,缓冲区溢出。
- 水晶报表可以发布的免费版
- listview item文本显示不全,省略号的解决方法
- 如何用winsock控件与web服务器交互向其提交web表单???
- vb如何调用ie控件的页面设置和打印这两个菜单?请问是否有这样的方法或者属性,多谢!
- 如何获得Excel的Worksheet中实际写入了数据的Row数?
Private Sub Command1_Click()
Dim xObject As Object
'调用Excel 97
Set xObject = CreateObject("Excel.Sheet")
Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet
xObject.Range("A1").Value = Text1.Text
'将数值送入Excel 97的A1单元格
xObject.Range("A2").Value = Text2.Text
'将数值送入Excel 97的A2单元格
xObject.Range("A3").Formula = "=MAX(A1,A2)"
'将最大值送入A3单元格
xObject.Range("A4").Formula = "=ATAN(A1/A2)*180/PI()"
'将反正切值送入A4单元格
'显示计算的结果
Label1.Caption = xObject.Range("A3").Value
Label2.Caption = xObject.Range("A4").Value
Set xObject = Nothing
End SubPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub
Text2.Text
可以设为查询结果,我向差不多了吧!
给分!!!
dim vbexcel As Excel.Application
dim xlbook As Excel.Workbook '定义Excel工作簿对象
dim xlsheet As Excel.Worksheet '定义Excel工作表对象
Dim row, col As Integer
Set vbexcel = New Excel.Application---这比使用createobject更好!!!
vbexcel.Caption = "拨号计费查询汇总报表"
vbexcel.Visible = True
'根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
Set xlbook = vbexcel.Workbooks.Open(App.Path & "\Month.xls")
Set xlsheet = xlbook.Worksheets("拨号计费查询汇总表")
'拨号计费查询汇总表为Excel模板工作表的名字
xlsheet.Activate
'下面是向单元格中填写数据:
row = xlsheet.Cells(1, 1).End(xlDown).row + 1
If DiaInputMonth.opt1 Then
xlsheet.Cells(row, 1).Value = DiaInputMonth.Combo1.Text & "年" & DiaInputMonth.Combo2.Text & "月"
Else
If DiaInputMonth.opt2 Then
xlsheet.Cells(row, 1).Value = DiaInputMonth.Combo3.Text & "年" & DiaInputMonth.Combo4.Text & "月~" & DiaInputMonth.Combo5.Text & "年" & DiaInputMonth.Combo6.Text
End If
End If
Do While Not DiaInputMonth.rsmonth.EOF
col = 2
xlsheet.Cells(row, col).Value = Str(DiaInputMonth.rsmonth("totalReadbytes").Value)
col = col + 1
xlsheet.Cells(row, col).Value = Str(DiaInputMonth.rsmonth("totalWriteBytes").Value)
col = col + 1
xlsheet.Cells(row, col).Value = Str(DiaInputMonth.rsmonth("totalTime").Value)
col = col + 1
xlsheet.Cells(row, col).Value = Str(Round((DiaInputMonth.rsmonth("totalTime").Value / 60), 1) * CDbl(GetSetting("西航拨号查询系统", "设置", "计费标准", 1)))
row = row + 1
DiaInputMonth.rsmonth.MoveNext
Loop