Tag: 对象

Excel对象库文件在哪里？

我正在寻找Excel Object Library文件将其导入到LabVIEW中。 我已经安装了MS Office 2013，可以findMSACC.olb，MSOUTL.olb，MSPPT.olb和MSWORD.olb，但无法确定要导入哪个文件（.olb或.dll）以便在LabVIEW中处理Excel文件。

Access数据库引擎找不到对象 – 对象是Excel命名的范围

这是让我绕圈子转了一会儿，基本上所有我想要做的是将一个Exceldynamic范围的值插入到Access表中。 例如，我已经通过引用范围成功地做到了这一点，但是为了让事情更自我一点，我更愿意使用dynamic范围。 我有的代码如下： Sub ExportDistDatatoSql() Dim cn As ADODB.Connection Dim STRQUERY As String Set cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\uMyDB.accdb;" .Open End With ssql = "INSERT INTO Crude_Prods_DB Select * from [Excel 12.0;HDR=YES;DATABASE=C:\TEST\mysheet.xlsm].[n_range]" cn.Execute ssql End Sub 我看到的错误是附加的，我检查了[n_range]确实存在于工作簿中。 [尝试从Excel命名范围中将数据插入访问表时出现错误] 任何build议将不胜感激。

MsgBox（ActiveWorkbook） – “对象不支持此属性或方法”

美好的一天。 这可能很简单，但我只想知道。 在我的表格的第一个子表格中，我在代码的最开始部分放置了以下行： MsgBox (ActiveWorkbook) 这样的行通常会提示工作簿处于活动状态（如电话所示）。 当放置在项目的其他部分，当然有效，但不在这里。 相反，这个错误出现： Run-time error '438': Object doesn't support this property or method 所以，我只想对这个问题有更多的了解。 谢谢。 PS。 我将这行代码放在一个简单的button_Click（）。 再次感谢。

C＃返回值中的工作表Function.CountIfs（…）是一个2 dim对象数组

我的问题是，我想在Excel中使用C＃中的WorksheetFunction方法CountIf 。 而且我总是从那个函数中得到一个2个暗淡的对象数组 double[,] zn1 = wsf.CountIfs(cSheet.Range[cSheet.Cells[13, 1], cSheet.Cells[20, 1]], sName + sName); （它只适用于double[,] zn1或var zn1 ，否则我会收到一个对象数组obj[,]不能转换为double或double[] ， string[]等的错误。 其中wsf被定义为 Excel.Application xl = new Excel.Application(); Excel.WorksheetFunction wsf = xl.WorksheetFunction; 所以当我运行它时，我得到一个2个暗淡的对象数组，它和Range有相同的长度，我正在寻找，所有的条目都包含相同的数字“-2146826273”。 如果我将数组转换为1 dim double数组，返回值为System.Double[] 。 object[] to = zn1.Cast<object>().ToArray(); object[] res = to as object[]; double[] sRes; sRes = res.OfType<double>().ToArray(); 所有其他WorksheetFunction方法运行良好，没有错误。 所以我的问题是，我如何得到WorksheetFunction方法CountIfs(…) ？ 是的，我必须使用WorksheetFunction方法，我不能像string公式一样input。

接收ActiveX自动化：错误索引错误消息

序幕 我正在开始一个新的项目，基本上我正在使用Excel作为另一个程序的日志。 这就是说，这是VBA（仅在使用Excel对象时）和VB6（主“主”编程语言）的混合。 这就是为什么这两种语言都被贴上标签，因为我预料到使用标签的可恶评论; 我正在寻找两种编程语言的混合解决scheme！ 另外，我知道一些VBA活动人士会说永远不会使用ActiveSheet 。 我不关心这个，我想提前说谢谢 。 我在这个工作簿中有一张纸，因为它的主要function是作为日志。 ActiveSheet将始终是唯一的表单。 我有以下代码，我不太熟悉将工作簿设置为object ，这可能是我收到Bad Index错误的原因。 Sub Test() ' Checking if Excel is open, if not, open it. Dim xL As Object, wBook As Object, iCloseThings As Byte On Error Resume Next Set xL = GetObject(, "Excel.Application") On Error GoTo 0 If xL Is Nothing Then iCloseThings […]

对象必需 – VBA Excel

挣扎着这个错误 – 我不太熟悉面向对象的编程，所以我可能只是搞乱语法或什么的。 我简化了我的代码，只显示了导致问题和相关variables的原因： Type layer Step As Variant End Type Sub PullData() j = 6 Do While a <= j steps(1, a) = Sheets("Sheet2").Range("B" & a) a = a + 1 Loop a = 1 For a = 1 To j If steps(1, a) = 0 layer.Step = steps(1, a) 'From here there is […]

非连续行的Excel范围到剪贴板

我有一个FindRange在我的Excel工作表中查找带有文本“€”（lblValutaTeken.Text）的行。 我需要做的是获取包含文本的行（多个！）并将其复制到剪贴板。 我的范围不是连续的行，这是我绝望的基础。 到目前为止我得到了这个 object[,] cellValues = null; try { Excel.Range currentFind = null; Excel.Range firstFind = null; var missing = Missing.Value; Excel.Range RangeWithValutaSigns = xlApp.ActiveSheet.Range("g1", "g500"); currentFind = RangeWithValutaSigns.Find(lblValutaTeken.Text, missing, Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, false, missing, missing); while (currentFind != null) { if (firstFind == null) { firstFind = currentFind; } else if (currentFind.get_Address(Excel.XlReferenceStyle.xlA1) […]

对象集合在通过数组循环时将新的UDT传递给每个对象

我的aMRecon数组是2500行x 65列。 我需要在每一行中评估多达10列，因此我相信我需要创build一个代表每行的对象。 我已经创build了一个UDT并在下面的基本过程中，我试图创build每个对象具有.EntityID属性（这是Column B Column 2或Column 2 Column B中的每行中的单元格值）的每个对象。 Public Type BreakInfo EntityID As String IssueName As String ValDate As Date LedgerAMT As Long NetAMTL As Long PriceDiff As Long End Type Sub Fill_Objects() Dim aMrow As Integer, aMcol As Integer Dim BI As BreakInfo For aMcol = LBound(aMRecon, 2) To UBound(aMRecon, 2) For […]

VBA范围问题 – 设置和dynamic

更新：只需要学习如何使fullrngdynamic 大图：我试图根据列中的数据自动创build命名范围。 我发布的子过程将数组的元素作为参数。 所有的这种逻辑工作正常..我可以创build数组的每个元素的命名范围。 我想出了如何在我的范围内获得我想要的值的逻辑。 对于rownum = 2将下一行敲定 包含这个逻辑。 问题是，我有问题的范围。 如果我不使用设置范围=范围（单元格），那么我得到一个对象的错误..这是有道理的，对象已被宣布，但没有设置任何东西。 我只是不知道如何获得这些范围初始化，然后将其更改为我想要的单元格组 fullrng还需要dynamic的将是2格高，然后3，然后4，等等。 Sub Createranges(ByVal TableName As String) If TableName <> "" Then Debug.Print TableName Dim fullrng As Range Dim temprng As Range Dim thiscell As Range Dim nextcell As Range Set fullrng = Range("H1") fullrng.Name = TableName For rownum = 2 To finalrow 'Checking […]

不能在PHP中使用对象作为数组？

我试图从这个代码读取Excel中的数据 $row['name'] = $objPHPExcel->getActiveSheet()->getCellByColumnAndRow(3, $l)->getCalculatedValue(); var_dump返回string（4）“CCC3” 但我有一个奇怪的问题 码 $row['name'] = 返回不能使用PHPExcel_Worksheet_Rowtypes的对象作为数组如果我使用简单的 $row_name = 没关系…. 使用phpExcel读取数据。 当然，我可以把它换成第二种select，但我不知道，为什么它不工作 感谢帮助