Tag: powerbuilder

打开Excel文件并从PowerBuilder调用macros: 我试图用PowerBuilder的某些参数来调用一个macros，但它不工作。这是我使用的代码： OLEObject ole_object ole_object = CREATE OLEObject string ls_reportInPath = "C:\Prevalidador_DIAN_Tributario_2011_v1.4\Prevalidador.xls" string ls_macroname = "Prevalidador.xls!modXML.cargarXML_General" string ls_xml = "C:\Users\…\Desktop\010100107201100000001.xml" string ls_file = "C:\Users\…\Desktop\excel_file.xls" IF ole_object.ConnectToNewObject("excel.application") = 0 THEN ole_object.Object.Application.DisplayAlerts = "False" ole_object.workbooks.Open(ls_reportInPath) //Open the .xls file Else MessageBox('OLE Error','Unable to start an OLE server process!',Exclamation!) END IF ole_object.Object.Application.Run (ls_macroname) ole_object.Application.Quit() ole_object.DisconnectObject() DESTROY ole_object 另外，我想显示Excel表格的用户。 […]

如何在PowerBuilder 6.5中将文件保存为文本: 问题是如何在powerbuilder 6.5中打开.xls文件并将其保存为.txt文件。例如以下不起作用，我卡在开头： oleobject testexcel testexcel= Create oleobject testexcel.ConnectToNewObject("excel.application") testexcel.workbooks.Open("something.xls") testexcel.ActiveWorkbook.saveas("something.txt") testexcel.disconnectobject() Destroy testexcel

Excel导入错误: 我正在尝试将大约1500个Excel文件导入到我的系统中。代码工作在一个循环中，我可以打开并导入大约600个Excel文件。之后，我得到一个错误消息，如：错误调用外部对象函数在55行打开….. 我真的坚持这个问题，如果有人能帮助，将不胜感激。代码发表回复评论： For ll_LoopCnt = 1 To Dw_1.rowcount( ) Ls_File_Name = Dw_1.getitemstring( ll_LoopCnt, "file_name") Ls_Path =Dw_1.getitemstring( ll_LoopCnt, "file_path") ll_Sr_No= Dw_1.getitemNumber( ll_LoopCnt, "sr_no") ldt_File_Date= Dw_1.getitemDateTime( ll_LoopCnt, "file_date") Excel.Application.DisplayAlerts = "False" Excel.WorkBooks.Open( Ls_Path ) Excel.Application.Visible = False Excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize Excel.Application.CutCopyMode = False Lb_sheet_rtn […]

如何在Powerbuilder中运行SQL语句，并在Excel中显示结果？: 是否有可能在powerbuilder中有一个SQL语句，而不是显示在数据窗口的结果，它显示在Excel中？我无法find关于这个主题的任何东西，而且我对powerbuilder和编程还是比较陌生的。提前致谢。

将Excel文件加载到Powerbuilder: 我有这个buttonclicked事件的代码来加载excel和文本文件到powerbuilder和excel数据不复制，即ll_return_xls <= 0，因此当我想要加载到数据库我会得到错误，因为它没有价值或数据…这里的问题是我从文本文件获取数据，但不是从Excel文件中…任何帮助将不胜感激 long ll_return long ll_return_xls OLEObject excel IF rb_file.checked then IF dwo.Name = "b_browse_meters" THEN // Browse Button Clicked for Text ll_return = GetFileOpenName ( "Select Meter File", is_fullname, is_filename, "TXT", & "Text Files (*.txt), *.txt" ) if ll_return < 1 then gnv_msg.f_mensaje("EX28", "", "", OK!) return end if END IF // Browse […]

如何通过PowerBuilder在Excel的单元格中设置WrapText？: 我们现在使用PowerBuilder 11.5将数据对象保存为Excel文件。数据对象中的一列是近年来客户的购买日志，每个日志应该显示在一行中。但是使用SaveAsfunction，我发现没有办法来包装文本。我试图输出'〜r〜n'，' '，'\ r \ n'但没有任何作用。我也尝试使用OLEObject的方法。但是，这种方法不能在没有Excel的PC上工作，所以我的主pipebuild议我不要使用这种方法。是否有任何方法来包装Excel的单元格中的文本？

Powerbuilder saveas xlsx，170000行后不工作，返回-1或崩溃: 使用DataWindow SaveAs函数时遇到问题。以前函数使用Excel8格式，行数不超过65536.但是现在DW中可能有300000行或更多的行需要导出。我已经将SaveAs格式更改为XLSX !,我已经成功保存了170000行66列。但是并没有保存180000或更大的rowcount DW-s。有时它坠毁或刚刚返回-1。但是之后我只能重新启动Powerbuilder才能导出更小的dw-s。这台机器正在使用Windows 8，有16GB的RAM，并且已经安装了办公室，而且我正在使用Powerbuilder 12.5.2版本。我已经在Windows 7和3GB内存的不同机器上做了一个小的testing程序，再加上Powerbuilder 12.5。我已成功保存了一个具有990000行和15列的.xlsx格式的DW，尽pipe我添加了另一列，并再次崩溃。我已经阅读了Excel的局限性，但是他们似乎对我一直试图保存的内容感到满意。任何想知道在上述情况下要检查什么或做什么？

Excel对象的语法。更改数字格式: 我做了一个从SQL Select中提取logging到Excel的应用程序。我想在保存之前更改excel列的数字格式。我创build了EXCEL OLE对象，然后将数据写入它 Excel_Sheet.Cells[i + j,k] = s_col 我想根据列types更改数字格式。我已经知道如何获得列types，但没有运气改变数字格式。我用这些：使标题粗体和改变宽度取决于数据使用AutoFit ..所有我在互联网上find： Excel_Sheet.Range(s_into_row + String(j) + ":" +s_into_col + String(j)).Select Excel_Obj.Selection.Font.Bold = True Excel_Sheet.Range("A"+String(j)+":A"+String(j)).Select Excel_Sheet.Columns(s_into_row + ":" + s_into_col ).EntireColumn.AutoFit 我正在使用powerbuilder