Tag: types

回形针validation不适用于Rails 4应用程序的Excel文件: 所以我允许使用Paperclip上传许多types的文件（pdf，doc，docx，ppt，pptx，xls，xlsx和zip）。到目前为止，一切正常。除了一件事。我注意到没有上传的* .xls文件。这里是我的模型Document class Document < ActiveRecord::Base has_attached_file :file validates_attachment_content_type :file, content_type: [ "application/pdf", "application/vnd.ms-excel", "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet", "application/msword", "application/vnd.openxmlformats-officedocument.wordprocessingml.document", "application/vnd.ms-powerpoint", "application/vnd.openxmlformats-officedocument.presentationml.presentation", "application/zip"] end 我正在使用S3，这个问题发生在本地和生产（heroku）。我听说它可能被链接到浏览器本身; 然而，我没有成功testing（在os x下）Chrome，Safari，Firefox和Opera。这里的日志，当我尝试上传一个xls文件名称this-is-a-test-file.xls文件this-is-a-test-file.xls ： Started POST "/documents" for ::1 at 2016-08-26 01:41:54 +0200 Processing by DocumentsController#create as HTML Parameters: {"utf8"=>"✓", "authenticity_token"=>"GdnkT1Iw8ajORrrSidpQ4Un4qlcN7qzZFk00j3fTTe0VpDO4ZhGQQG0ckO5DmrDzDdqzLw5SXI+O3p72zuP6qQ==", "document"=>{"file"=>#<ActionDispatch::Http::UploadedFile:0x007fdcc5479b78 @tempfile=#<Tempfile:/var/folders/gc/r_620xsx5hs44l70ftvwxpjr0000gn/T/RackMultipart20160826-79534-4kin0o.xls>, @original_filename="this-is-a-test-file.xls", @content_type="application/octet-stream", @headers="Content-Disposition: form-data; name=\"document[file]\"; […]

从Excel中读取DataTable中的错误数据types: 我试图从不同的Excel工作表中获取数据表。我使用OleDbConnection正确获取数据表。但是，某些列被错误地读为String ，但其中一些是Double或DateTimetypes。我正在阅读的Excel中，我已经从一个Access文件创build它，它是用正确的数据types写的。我也validation了Excel表格中没有“存储为文本的数字”单元格消息。当我尝试读取这个Excel文件中大多数行都是空的列时，问题就出现了。从这篇文章中，我得到ADO.NET根据列中的大部分值select数据types。所以我不知道这些字段中的大部分条目都是空的事实在阅读时可能会产生影响。但是，我再说一遍，从Access读取数据表内容时不会发生这种情况，因为Accessdevise中的字段是用相应的DataType定义的，而在Excel中则不是。这是我的function，获取所需的工作表内容为DataTable ： Public Function GetDatatable(sheetName As String, versionFilter As String) As DataTable Try Dim MyConnection As System.Data.OleDb.OleDbConnection Dim ds As System.Data.DataSet Dim MyCommand As System.Data.OleDb.OleDbDataAdapter Dim dbProvider As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;" Dim dbSource As String = String.Format("Data Source={0};", Trim(IExcelValue)) Dim dbProperties As String = "Extended […]

Excel 2010 VSE 2012 C＃dll和tlb – 无法创build对指定文件的引用: 我感兴趣的是如何从Excel中调用C＃代码，并一直遵循这里的方法https://richnewman.wordpress.com/2007/04/15/a-beginner%E2%80%99s-guide-to -calling-a-net-library-from-excel / 。 C＃代码是一个名为DotNetClass.cs的“Hello World”示例 using System; using System.Collections.Generic; using System.Text; namespace DotNetLibrary { public class DotNetClass { public string DotNetMethod(string input) { return "Hello " + input; } } } 构buildconfiguration有“注册COM互操作”和“Make assembly COM-visible”选项。我也有select“.NET Framework 4.5”和“任何CPU”（我在一台64位机器上工作）。我已经尝试了几个NET版本和CPU选项没有成功。我清理并重build了好几次。在Excel 2010中，我无法创build对DotNetLibrary.dll的引用。我可以浏览它，我甚至可以在同一个地方创build一个文件的引用 – DotNetLibrary.tlb。来自Excel的电话是 Private Sub TestDotNetCall() Dim testClass As New DotNetClass MsgBox […]

用户定义的对象在数组VBA中: 正如主题行指出的，我试图存储我写入一个数组类的对象。 VBA给了我令人沮丧的错误： “对象variables或块variables未设置” 我很确定我正确地定义了我的对象，局部variables显示对象是我定义的types，并且所有的字段都被填充了，所以我无法弄清楚我的问题在哪里。 Dim Type1(2 To 250) As myClass Dim Type2(2 To 250) As myClass Dim Type3(2 To 250) As myClass Dim temp_obj As myClass Dim foo As String For i = 2 To 250 Set temp_obj = New myClass With temp_obj .field1 = Worksheets("Sheet1").Rows(i).Columns(2).Value .field2 = Worksheets("Sheet1").Rows(i).Columns(3).Value .field3 = Worksheets("sheet1").Rows(i).Columns(4).Value .field4 = Worksheets("Sheet1").Rows(i).Columns(5).Value […]

自动导入到访问 – 强制字段types: 我在Microsoft Access数据库中有一张表，每天从日常的性能报告中导入数据。导入数据中的特定字段（指站点名称）是源数据中的大多数报告的文本字段，但在一个报告的文本字段（例如，站点00415）和数字字段（例如00415）之间是混合的。当数据被存储在Excel中时，我强制将数字网站设为文本，因为其中一些网站的前导零。 Access表的数据types为Text （和格式@应该是相关的），但是在导入包含数字站点的报表时，由于有试图将整列导入为数字而不是导入错误，文本。有没有办法强制字段导入为文本即使当文件的第一行（我相信是什么访问基于字段types）是数字？或者，我应该改变字段types的东西，可以处理文本和数字，但重要的是离开数字，没有任何格式的格式。值得一提的是，我一直通过保存的导入方法导入数据，然后通过使用以下脚本编写脚本，并在两种导入方法中遇到此问题： Option Compare Database Sub import_test() Dim strXls As String strXls = "C:\Users\me\Desktop\IMPORT.xlsx" DoCmd.TransferSpreadsheet acImport, , "ImportDB", _ strXls, True, "A1:Z100" End Sub

for循环中的types不匹配，包括工作表单元格值的testing: 我在我的VBAmacros中收到types不匹配错误。这是我的代码的重要部分： Public Function CalculateSum(codes As Collection, ws As Worksheet) As Double On Error GoTo ErrorHandler If ws Is Nothing Then MsgBox ("Worksheet is necessery") Exit Function End If Dim balanceColumnIndex, codesCulumnIndex As Integer Dim searchStartRow, searchEndRow As Integer balanceColumnIndex = 17 codesColumnIndex = 4 searchStartRow = 7 searchEndRow = ws.Cells(ws.Rows.Count, codesColumnIndex).End(xlUp).Row Dim result As […]

使用xlR1C1公式进行条件格式化: 尝试通过VBA将条件格式应用于将有25K +行的电子表格。没有设置最后一列或最后一行，所以难以应用下面的代码出于某种原因。当我检查每行的条件格式时，它始终指向第3行。如果我把RC“＆lastCol +3＆”= FALSE“它认为这是单元RC25例如： Range(Cells(3, FoundCol), Cells(lastrowRecon, FoundCol)).Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=R[]C" & lastCol + 3 & "=FALSE" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With

Excel VBA“types不匹配：数组或预期的用户定义的types”: 我知道很多人都对这个错误提出了问题，但是根据这些答案，我应该做的都是正确的。我创build了一个名为Variable的类来存储有关variables的多个信息。我有另一个叫做Equipment类，它存储了这些variables的数组。这里是Equipment的相关代码： Public name As String Private variables() As Variable Public Sub setVariables(vars() As Variable) variables = vars End Sub 我也有一个创buildEquipment实例的模块。这里是所有的代码： Public Sub fillEquipment() 'figure out how many units of equipment there are numUnits = 0 atRow = 1 Do Until Range("A" & atRow).value = "" numUnits = numUnits + 1 atRow […]

select多个单元格时，VBA中的Exceltypes不匹配错误13: 我是一个新的VBA，我遇到了一个小问题。当我只select一个单元格时，代码工作正常。但是，当我尝试select多个单元格时，表示types不匹配。我感谢任何帮助:)这里是代码： Sub Asterisk() Dim Cell As Range If Selection.Value = "<.0001" Then Selection.Value = 0.0001 Else Selection.Value = Selection.Value If (Selection.Value < 0.001) Then Selection.Value = "***" ElseIf (Selection.Value >= 0.001) And (Selection.Value < 0.01) Then Selection.Value = "**" ElseIf (Selection.Value >= 0.01) And (Selection.Value < 0.05) Then Selection.Value = "*" Else […]

在VBA中使用命名范围制作图表: 我正在尝试编写一些代码，这些代码将在我的Excel工作簿中已经build立的命名范围内工作。工作簿中的每张表格都有不同的布局，这使得编写名称的代码成为大部分工作的一部分。我已经这样做了，现在想编写代码，循环遍历每张表中的名称，并使用我已经build立的命名范围制作图表。我遇到了以下代码中的一堆错误，并希望得到一些帮助修复它们，使代码更有效率！ ChartName = ActiveSheet.Range(n).Offset(0, -6) & " " & ActiveSheet.Range(n).Offset(0, -5) 我在上面的错误中得到了一个types不匹配，我只是无法弄清楚如何处理。此外， ActiveSheet.ChartObjects.Add绘制一个无效的属性分配！ Sub WEO_DevCharts() Sheets("WEO").Activate Dim objChart As ChartObject Dim n As Name Dim ChartName As String For Each n In ActiveSheet.Names If n.Name <> "DateRange" Then ChartName = ActiveSheet.Range(n).Offset(0, -6) & " " & ActiveSheet.Range(n).Offset(0, -5) Set objChart = […]