|
您的位置：学院
>> 编程开发 >>
PowerBuilder >> 利用剪贴板实现PB与Excel的中文数据传输
|
利用剪贴板实现PB与Excel的中文数据传输
|
PowerBuilder是面向对象的数据库开发工具之一，它可以操纵众多大型数据库和桌面数据库，支持多种硬件平台。但由于它提供的打印函数太少，使得制作打印报表很不方便，特别是对中国式报表，为此，我们在PB中常借助 Excel进行制表。但是在PB中用OLE与Excel进行中文数据传输时，数据传到Excel后会出现乱码，原来的中文变成了一堆不可辨认的字符。为解决此问题，我们可以借助Windows的剪贴板。
在PB中，先将数据放入剪贴板中，然后，运行一段事先在Excel中用VBA编写的宏代码，该宏的主要功能是从剪贴板中读取数据，再将数据填入Excel表格中。剪贴板在其中起到了“中介”的作用。具体实现方法如下：
首先，在PB下建立一窗口w—excel，然后在窗口中建立一个单行编辑框sle—text与一个按钮cb—trans，同时在按钮cb—trans的clicked事件中编写脚本，脚本为：
//建立一个与Excel通讯的OLEObject
OLEObject ExcelServer
integer ExcelOK
ExcelServer = CREATE OLEObject
ConnectExcel:
ExcelOK = ExcelServer.ConnectToNewObject( ″excel.application″ )
if ExcelOK<>0 then
answer=MessageBox(″打印报表错误″,″连接不到 Excel″,Exclamation!,RetryCancel!)
if answer=1 then
goto ConnectExcel
elseif answer=2 then
return
end if
end if
ExcelServer.Application.Visible = TRUE
//显示Excel
ExcelServer.WorkBooks.open(″FileName″)
//连接到文件
//选择活动的Excel工作簿
ExcelServer.ActiveWorkBook.Sheets(″sheet1″).Select
clipboard(sle—text) //将数据放入剪贴板中
//运行Excel文档中的VBA宏
//第一个参数为宏名，第二、三个参数为填入Excel表格的行列值
ExcelServer.application.run(″PutExcel″,1,1)
在Excel文档中编写的宏代码为：
Const CF—TEXT = 1
Private Declare Function GetFocus Lib ″user32″ () As Long
Private Declare Function OpenClipboard Lib ″user32″ (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib ″user32″ () As Long
Private Declare Function GetClipboardData Lib ″user32″ (ByValwFormat As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib ″user32″(ByVal wFormat As
Long) As Long
Private Declare Function GlobalLock Lib ″kernel32″ (ByVal hMen As Long) As Long
Private Declare Function GlobalUnlock Lib ″kernel32″ (ByVal hMen As Long) As Long
Private Declare Function GlobalSize Lib ″kernel32″ (ByVal hMen As Long) As Long
Private Declare Function lstrcpy Lib ″kernel32″ Alias ″lstrcpyA″ (ByRef lpString1 As
Any, ByRef lpString As Any) As Long
Sub PutExcel(row As Integer, col As Integer)
Dim ActivesheetName As String
Dim ClipboardText As String
ClipboardText = CLIP—TextGet()
′MsgBox ClipboardText
ActivesheetName = ActiveSheet.Name
Application.Worksheets(ActivesheetName).Cells(row,col).Value=ClipboardText
End Sub
Private Function CLIP—TextGet() As String
Dim lpStr As Long
Dim hGlobal As Long
Dim tTempStr As String
Dim bResult As Boolean
Dim lResult As Long
If OpenClipboard(GetFocus()) Then
If IsClipboardFormatAvailable(CF—TEXT) Then
hGlobal = GetClipboardData(CF—TEXT)
If hGlobal <> 0 Then
lpStr = GlobalLock(hGlobal)
tTempStr = Space＄(GlobalSize(lpStr))
lResult = lstrcpy(tTempStr, lpStr)
bResult = GlobalUnlock(hGlobal)
End If
If Len(tTempStr) <> 0 Then
CLIP—TextGet = Left＄(tTempStr, InStr(tTempStr, vbNullChar)－ 1)
Else
CLIP—TextGet = ″ ″
End If
End If
bResult = CloseClipboard()
End If
End Function
|
|
|
产品库推荐 |
|
还没人留言，抢个先，哈哈!
