用友公司哪个不算
要求功能:
读:能读出想要的单元格的数据.
写:能往相应的单元格里写数据.各位大虾帮帮忙啊,来个好用的啊(救急)
要求功能:
读:能读出想要的单元格的数据.
写:能往相应的单元格里写数据.各位大虾帮帮忙啊,来个好用的啊(救急)
解决方案 »
- 取数字的某位
- [散分]请投我一票!API地图应用 - 新生到校指南
- 新手救急。大虾帮忙
- 怎样在DataGrid控件的某一列中显示一个按钮?
- 编程爱好者网站:http://www.programfan.net
- 在线等待:关于数据的处理
- 用evb做数据库程序一些体会!
- 请问有没有办法提高一下执行以下代码的速度?什麽方法都可以,只要不改库结构!!
- vb中如何调用hlp或者chm帮助文件?(火急)
- 哪位高手做过在莇atagrid或者msflexgrid里能不能做到每一行后面有个checkbox一样的东西,表示是否选中
- 如何用a-z中的任意两个键控制listbox上下翻页(比如用a 和 b )
- 急急急!关于VB与存储过程。
'窗体上2个按钮
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "111" '给单元格1行1列赋值
Command2.Enabled = True
Command1.Enabled = False
End SubPrivate Sub Command2_Click()
MsgBox xlsheet.Cells(2, 1) '取出单元格2行1列的值
xlBook.Save
xlApp.Quit
Set xlsheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End SubPrivate Sub Form_Load()
Command2.Enabled = False
Command1.Enabled = True
End Sub
用Excel是很好,但是当程序打包后,会要求目标机器上必须装有Excel才行!
所以也很不爽!