用PB如何调用WINDOWS的API（以播放声音为例）？
问：本人以曾是用VFP 编程的，曾编过VFP&EXCLE的应用如：
Myexcel=createobject('EXCEL.APPLICATION')
MYEXCEL.VISIBLE=.f.
MYEXCEL.WORKBOOKS.ADD
O1=MYEXCEL.ACTIVEWORKBOOK.SHEETS(1)
O1.NAME='IN'
o1.CELLS(1,2).VALUE='abc'
又如：
excel=createobject('excel.application')
EXCEL.VISIBLE=.T.
ExcelFile="D:\MYDOCU~1\DC1999\DC_MDT.XLS"
if not file(ExcelFile)
wait wind 'no file:'+excelfile
return
endif
excel.workbooks.open(ExcelFile)
请问如何用PB实现象上述VFP 的应用，好让我能将资料放到一个电子表格
答：差不多，给个代码：
方法一：
OLEObject ExcelServer
integer ExcelOK
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )
ExcelServer.Workbooks.Open("c:\book.xls")
ExcelServer.ActiveWorkBook.Sheets("Sheet2").Select
ExcelServer.ActiveSheet.Cells(1,1).value = "书名"
ExcelServer.Application.Visible = TRUE
方法二：先启动excel文件
long handle_1
handle_1 = OpenChannel("Excel", "c:\book.xls")
//建立与EXCEL的通道
setremote("r1c1","书号","excel"," c:\book.xls")
setremote("r1c2","书名","excel"," c:\book.xls")
//更改某一行或某一列的值，同时关闭通道
closechannel(handle_1,handle(parent))
- 最新文章
- 用PB开发多媒体播放器[01-04]
- 再谈在Grid数据窗口中，鼠标调整数据宽度时对应的事[01-04]
- 在非PB窗口中实现键盘按键和鼠标点击动作的检测[01-04]
- 在非PB9 JSP Target的jsp网页中调用EASer..[01-04]
- 在程序中打印[01-04]
- 在run语句之后判断该程序是否执行完毕[01-04]
- 相关文章
- 在pb的程序中屏蔽ctrl alt del 和 window..[01-04]
- Windows映射模式及相关问题的解决[01-04]
- 仿 Windows 自带扫雷的小程序[01-04]
- 判断Windows OS 版本类型的方法[01-04]
- PB中用Windows API制作位图菜单[01-04]
- 拦截Windows消息--C++ Builder的API后门[01-03]
