Tag: vb6

如何在没有Excel对象的情况下通过VB6创buildExcel工作表？: 我最近负责更新VB6数据收集应用程序，添加生成Excel报告并通过应用程序打印的function（两者都必须在同一台计算机上完成）。通常情况下，这不会是一个问题，我使用Excel对象之前生成Excel报告与VB6。所以我继续编码，并把它们一起编码，然后告诉我，这个程序将被删除的机器将不会有Excel的完整副本，我必须想出另一个解决scheme。我尝试创build分隔文件（逗号分隔或文本），但是当这些文件打开与Excel，他们不格式很好，即如果一个单元格有20个字符，一半的字符将被切断，由于固定的单元格大小。我有一些更多的想法： 1）我知道openoffice有一个API。这个API可以用来生成一个格式正确的Excel文件吗？有没有我可以使用的COM对象？ 2）我发现这个工具： http : //www.carlosag.net/Tools/ExcelXmlWriter/然而，它是用VB.NET编写的。我仍然可以在VB6中使用这个工具吗？我真的很难过，不知道下一个方向。任何人有关于上面的utitiles的任何想法？另外，我也接受任何其他build议/更好的方法。任何可以帮助我完成这项任务的东西，将不胜感激！注：将用于查看这些报告的Excel版本是Excel 2007

从C＃中的Excel操作 – 设置ActiveCell？: 我目前正在尝试将一些VB6macros移到C＃应用程序中，而我在使用C＃设置活动单元格时遇到了问题。在VB6中它简单地说： ActiveSheet.Range("L1").Select 有谁知道C＃等价物是什么？提前欢呼。

从Excel文件创build有效XML文件的最佳工具: 我需要创build一个脚本，从一个复杂的Excel 2003文件中提取一些数据（在一张纸上有多个工作表和不同的表），并生成需要根据给定的XSD文件进行validation的不同的XML文件。我的首选语言是Python; 创build和validationXML文件，我会去lxml 。你对parsingXLS文件有何build议？ xlrd是用于复杂Excel文件的正确工具吗？或者我需要手动转换所有的CSV表，并逐行读取文件，拆分和获取数据？我也接受C＃，VB6，VBA的build议。

通过VB6以只读方式打开Excel工作簿: 我有一个用VB6编写的应用程序将数据写入电子表格。我正在使用MS Excel 11.0对象库来创build一个Excel的实例并打开这本书： Dim xlApp As Excel.Application, remoteBook As Workbook Set xlApp = New Excel.Application Set remoteBook = xlApp.Workbooks.Open(sheetName) 除了写入工作簿“sheetName”之外，程序还允许用户启动工作簿以查看累积结果。有一个机会，不pipe是微薄的，用户可以打开工作簿查看结果，而其他人正在尝试写入。我想给用户写信给表单优先。有没有办法我可以启动表单以只读方式查看？有一个只读属性的Excel应用程序对象，但（当然）是只读的。即使有人不小心将文件留在办公桌上，我如何设置程序将数据写入工作簿？

VBA从集合中获取值？: 我对VBA很新，我不知道如何从集合中获取值。这是我的代码： Dim p As Object Set p = JSON.parse(Response.Content) Dim links As Object Set links = p.Item("links") 在“链接”的debugging器中，我看到：我正在使用这个库来parsingjson： http : //www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html 我在json中的部分是： "links":[ { "rel":"next", "href":"www.google.com" } ] 我怎样才能在这里得到“rel”的价值？

指向存储为集合/字典项目VBA的数组: 使用变体数组，其中每个元素是一个双数组，我能够做到以下几点： Public Declare PtrSafe Sub CopyMemoryArray Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination() As Any, ByRef Source As Any, ByVal Length As Long) Sub test() Dim vntArr() as Variant Dim A() as Double Dim B() as Double Redim vntArr(1 to 10) Redim A(1 to 100, 1 to 200) vntArr(1) = A CopyMemoryArray B, ByVal VarPtr(vntArr(1)) + […]

没有对象时，Excel的VBA引发“对象variables或块variables未设置”: 在我的代码中，我已经声明了这些variables： Dim Field_Name, Datatype, row As Integer 然后，在For循环中，我有这样的代码： Field_Name = Worksheets(i).UsedRange.Find("Field Name").Column Datatype = Worksheets(i).UsedRange.Find("Datatype").Column row = Worksheets(i).UsedRange.Find("Field Name").row + 1 但是，该代码会抛出“对象variables或块variables未设置”运行时错误。根据API，Range.Column和Range.row属性是一个只读Long。我试图使我的variables的数据types为长，但没有成功。看来，VBA期待着我做 Set Field_Name = Worksheets(i).UsedRange.Find("Field Name").Column Set Datatype = Worksheets(i).UsedRange.Find("Datatype").Column Set row = Worksheets(i).UsedRange.Find("Field Name").row + 1 但是，所述variables不是对象，因此会抛出“Object required”编译错误。任何帮助，将不胜感激。如果您不确定如何解决这个问题，那么任何解决方法或替代方法来获取单元格的列号和行号将不胜感激。

Excel数据到数据网格视图在VB6: 大家好，我是新的！所以，我正在用VB 6.0开发一个简单的软件（是的，我知道很老）。我所要做的就是将Ms Excel表格操作到VB应用程序中。实际的任务是将Excel工作表中提供的数据或表格（无论我们称之为数据）显示在数据网格视图中。我正在使用ADODB。这里是代码： Dim file_name As String Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ file_name & ";Extended Properties=Excel 12.0;" If cn.State = adStateOpen Then MsgBox "Excel File is Connected. ", , "Message" rs.CursorLocation = adUseClient rs.Open "SELECT * FROM [Sheet1$]", cn, 3, […]

类模块types数组不更新: 我已经触及了一些奇怪的数组，我可以为整个数组赋值而不是单个数组成员。这是一个名为Class_E的数据类模块 Public Name As Variant Public Age As Variant 这是body代码，它只是分配和重新赋值给2个数组 Sub main() Dim r As Class_E Set r = Band() End Sub Function Band() As Class_E Set Band = New Class_E 'Part 1: Initialize the variables Debug.Print "Part 1" Band.Name = Array("Edison", "Tesla", "Faraday", "Turing") Debug.Print "Before: Name={" & Band.Name(0) & ", " & […]

我如何通过Excel中的ActiveX控件运行Perl脚本？: 我想通过点击Excel电子表格中的button来运行Perl脚本。由于该button被分配执行一个VBmacros，macros应该有效地执行该程序。作为我的第一个VB脚本，这是我想出了，这引发了一个恼人的Run-time error '424': Object required错误。 Sub RunPerlScript() System.Diagnostics.process.Start ("perlscript.pl") End Sub 我怎样才能让这个脚本去做我想做的事？