Tag: types

在比较stringvba时input不匹配错误13

这个语法有什么问题吗？ If xlwsIAR.Cells(x, 5).Text <> "FTD-OPEN" Or "FTD-CLOSE" Then ''action ''action ''action End if 因为我试图检查一个单元格，如果它具有特定的标准。

将整数转换为date

我有一列数字，其视觉外观为YYYYMM。 防爆。 我认为Excel是将其识别为一个整数。 我试图将其转换成date格式。 我想要excel认识到这是11-2016我已经尝试创build一个列之间的数字之间的破折号，并试图将该列转换为date，但似乎还没有工作。 防爆。 2016-11。 任何帮助列build议将不胜感激。 我似乎无法find一个解决方法来识别这个数字。 谢谢

我怎样才能得到每个值在一个数组匿名对象在C＃

我有这样的对象的数组 var items = new object[] { new {name= "house",code=1,price= 30}, new {name= "water",code=2,price= 323}, new {name= "food",code=3,price= 45} }; 我想通过一个具有参数是一个对象数组的方法将这些值的每一个添加到数据表行（所以1对象 – 1行）。 我试图做下面的代码，但它只是将我的项目数组中的每个对象添加到excel文件中的表格单元格（我已经添加到我的数据表中的标题） public void Create(object[] items) { // table headers are created before this line……. var table = new DataTable(); table.Rows.Add(items); } 所以我需要做什么，比如如何遍历我的数组，并获得它的每个值分配给一行。 预期的结果在我的文件中： Name Code Price =================== house 1 30 water 2 […]

VBA Excel将string数组元素转换为长“types不匹配”

所以我有一个简单的问题，我试图解决。 我有一串数字，我正在阅读作为一个string。 我然后想要将string转换为一个长，并存储在一个Longtypes的数组中。 我最初尝试了这个： ElseIf stArray(0, i) = "SrcWth" Then Debug.Print "Found the Width Column" For j = 0 To UBound(stArray) whArray(0, j) = CLng(stArray(j, i)) Next j stArray是保存CSV文件信息的二维数组。 它是stringtypes。 whArray是将要保存我想要的两列数字的二维数组。 但是，它抱怨types不匹配。 然后我想也许是看到一些空白，所以我试着修剪它。 ElseIf stArray(0, i) = "SrcWth" Then Debug.Print "Found the Width Column" For j = 0 To UBound(stArray) whArray(0, j) = CLng(Trim(stArray(j, i))) […]

types不匹配VBA

这工作拉斯特罗= 8，但不是9（types不匹配） 如果我删除If Not (myarray = Empty) Then它不适用于8 什么是解决这个最简单的方法？ Public Function GetRowToWriteOn(ByVal SheetName As String, ByVal idnr As Integer) As Integer LastRow = (Sheets(SheetName).UsedRange.Rows.Count) + 1 MsgBox (LastRow) myarray = Sheets(SheetName).Range("d8:d" & LastRow).Value If Not (myarray = Empty) Then For row = 1 To UBound(myarray, 1) If (myarray(row, 1) = idnr) Then GetRowToWriteOn = row […]

VBA帮助文件中的月份函数抛出types不匹配示例代码

我在这里查了一遍，发现了一些我尝试过的解决scheme，包括Now作为一个CDate ，但没有任何作用。 在Win7上使用VBA编辑器w / Excel 2010。 即使帮助部分的示例代码也会引发此错误，并且Month()函数中使用的date以数字forms显式初始化。 在这两种情况下，我试图在month()参数使用CDate() ，它不起作用。 在我原来的代码中，我也尝试过使用Date来代替Now ，也没有效果。 这是我原来的代码，它在If条件上投下错误： Function SetNextTaskNb() Dim seqNb As String seqNb = ThisWorkbook.Worksheets("Persistent").Range("A" & 1).Value Dim Nbs() As String Nbs = Split(seqNb, ".", 2) Dim month, currentNb, nextNb As Integer month = CInt(Nbs(0)) currentNb = CInt(Nbs(1)) If month(Now) = month Then nextNb = currentNb + 1 Else […]

Excelmacros“types不匹配”错误，而循环通过一列

每次调用此函数都会导致运行时错误“13”types不匹配。 为什么会这样呢？ Public Function VersionExists(versionId As String) VersionExists = False For Each cell In Tabelle2.Columns(1) If cell.Value = versionId Then VersionExists = True End If Next End Function

将9位CUSIP码转换为ISIN码

如何将9位CUSIP代码转换为ISIN代码，最好在Excel中？

如何投射形状物体？

我想将一个ComboBox控件分配给ComboBox类的一个类成员。 该控件位于工作表上的一个组中。 问题是通过GroupItems属性，我只能得到一个Shape对象，而不是一个ComboBox 。 所以当分配时，它提示“types不匹配”。 如果控件不在一个组中，我可以通过OLEObjects属性获取OLEObject对象，然后使用Object属性绕过types不匹配。 但是现在呢？

将xsxl转换成csv

我想知道是否有一种方法来将.xsxl文件转换为.csv，同时保留所有内容。 我有一列，有些行有像0738794E5的值，当我通过“另存为”转换它的值变成7.39E + 10。 我知道一些具有“E”的值将被转换为后者的格式，但是这种转换对我来说是没有用的，因为这个“E”并不代表取幂。 有没有一个设置来保存值的方式，即文本/string？