pb資料視窗匯出word模板后 在另存為 重命名
dw_list.accepttext( )
if dw_list.find("flag='T'",1, dw_list.rowcount())<=0 then
gn_msg.of_messagebox( "系統提示", "請選擇生成記錄!")
end if
long i,li_FileNum
string ls_rollnumber,ls_file,ldt_value
datetime ldt_jfqx
datetime ldt_server
long yzbm //郵政編碼
string sjr,zlqr,dah,fmmc,sqh,sqr,jfzl
datetime riqiz,jxr
decimal jegf,dlf,heji
for i=1 to dw_list.rowcount()
if trim(dw_list.object.flag[i])='T' then
date riqiy
riqiy=date(gnv_cfp.inv_dbserver.of_return_serverdatatime( ))
dlf=dw_list.object.代理費[i]
heji=dw_list.object.合計[i]
end if
next
OLEObject myword
myword = Create oleObject
li_FileNum = myword.connecttonewobject("word.Application")
if li_FileNum < 0 then
messagebox("錯誤","不能啟動Word!")
else
myword.visible = false
myword.Documents.open("C:\Users\Administrator\Desktop\年費提醒馬姐.doc")
myword.Documents.item(1).Bookmarks.Item("riqiy").Range.Text = riqiy
myword.Documents.item(1).Bookmarks.Item("dlf").Range.Text = dlf
myword.Documents.item(1).Bookmarks.Item("heji").Range.Text = heji
end if
//myword.SaveAs("C:\Users\Administrator\Desktop\11.doc", doc!, false)
//myword.activate(inplace!)
string docname,named
int value
value=https://bbs.csdn.net/topics/GetFileSaveName("另存為",docname, named,"DOC","Word檔案(*.DOC), *.DOC")
//IF value<>1 THEN return
//end if
//if FileExists(docname) then
//if messagebox('提示','檔案已經存在要覆寫嗎？',question!,yesno!,2) = 1 then
// filedelete(docname)
//
//end if
//end if
后面的就不會寫了
只能帶出到word 里 不知道怎么另存為了 ？？
uj5u.com熱心網友回復：
有saveas函式,引數如下,PB呼叫要翻譯一下ActiveDocument.SaveAs FileName:="XXXXXXX.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/40009.html
標籤：DataWindow