Tag: vb.net

命名范围在更新时被删除: 我有一个我用作后端的Excel文件（我无法控制这个select），我创build了我的命名范围。我使用OLEDB来连接到我的应用程序在VB.Net床单。但是，一旦我从我的应用程序更新任何表，所有我的名称范围被删除，应用程序停止工作。如果我只是从工作簿阅读，这不会发生。任何人都经历过这个和任何可能的想法或解

使用VB 2010从Excel中捕获popup窗口，警报和例外: 这是我第一次发布在计算器上。我昨天开始学习VB 2010（虽然我知道一些Ruby），并且已经使用了这个问题了很多，但没有发现太多。我已经编写了一个程序，它接收一个CSV列表的文件path（所有的.XLS文件）并尝试打开它们。这些优秀的工作簿被另一个程序标记为不可读取; 我的程序试图捕获导致错误的警告，popup或exception。它适用于大多数例外（密码保护，无法读取的内容，危险文件等），但一些popup窗口，要求你点击“确定”button继续不被捕获。也许他们没有被归类为例外或者什么，我很想知道。至less能得到他们的文本forms是很好的。这是我的脚本： Private Sub runReportButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles runReportButton.Click Dim Exl As New Excel.Application() Exl.Visible = False Exl.DisplayAlerts = False For Each row As DataGridViewRow In dgvReport.Rows If Not IsNothing(row.Cells(0).Value) Then If row.Cells(0).Value.ToString.Contains(".xls") Then Try 'Open the workbook and attempt to catch […]

如何从COM-AddIn中find安装目录/path: 我有一个从Excel的COM – AddIns的列表，并希望findAddIns的安装path，但对象“Microsoft.Office.Core.COMAddIn”只有以下属性： Application Connect Creator Description Guid Object Parent ProgId 而属性对象是“Nothing / Null”。有没有办法使用Interop？或者我使用guid和searchregistry中？

当从vb.net创build的Excel中的下拉值限制在值超过255个字符时抛出错误: 我正在使用VB.Net和SpreadsheetGear DLLdynamic创build下拉列表，并使用下面的值填充它 worksheet.Range（Range）.Validation.Add（ValidationType.List，ValidationAlertStyle.Stop， ValidationOperator.Between，flatList，“”）我使用validation.add来创build下拉菜单这里flatList是以逗号分隔的string下拉值。它正在使用平面列表字符less于255个字符的FINE，但是如果它是超过255它抛出ERROR消息 **Data Validation lists are limited to 255 characters.** 请帮助Ramesh.T。

将数据从excel导入到使用ms访问表单进行访问: 我有一个包含数据的excel文件，我必须使用ms访问表单UI在excel文件中导入数据。我需要创build以excel文件formsinput并将logging插入到MS访问表中的表单。在将数据插入到MS访问之前，我需要使用VB放置一些逻辑。请引导我如何才能达到这个目标，因为我对这项技术非常天真。

通过HTML将图像从asp.net导出到excel: 我一直在试图将其他数据导出到Excel文件。我宁愿将其导出为Excel格式的HTML文件，因为现有的报告已经以这种方式生成。我试图简单地链接图像，但依赖于在线图像显示在Excel中。我也试图导出图像作为embedded的数据URI，但Excel不parsing它（文件在浏览器中显示正常）。我正在考虑用工作表压缩工作表应该工作，但这会使事情变得复杂，并要求用户打开报告时要经过一个额外的步骤。有更好的方法还是我运气不好？

将多个HTML表格输出到单个Excel表单: 我在vb.net中创build了两个HTML表格，并在运行时将string文本附加到aspx页面的innerhtml。代码如下（这是一个示例代码）： Dim oBuilder as stringbuilder With oBuilder .Append("<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">") .Append("<head>") .Append("<meta http-equiv=""Content-Type"" content=""text/html;charset=windows-1252"">") .Append("<!–[if gte mso 9]>") .Append("<xml>") .Append("<x:ExcelWorkbook>") .Append("<x:ExcelWorksheets>") .Append("<x:ExcelWorksheet>") .Append("<x:Name>Summary</x:Name>") .Append("<div>") .Append("<table style="" border:solid 1px black; "">") .Append("<tr>") .Append("<td>Column 1</td>") .Append("</tr>") .Append("</table>") .Append("</div>") .Append("<div>") .Append("<table style="" border:solid 1px black; "">") .Append("<tr>") .Append("<td>Column 1 – Table 2</td>") .Append("</tr>") .Append("</table>") .Append("</div>") End With LogDetails.InnerHtml […]

在电子表格中使用列名无索引，使用vb，net: 我一直在编写一些代码来从应用程序中提取数据并将其parsing为电子表格。我的电子表格如下所示： Scenario ClientName ClientNumber 5555 Smith s0001 6776 Charles d6666 我有这个代码： Dim ObjExcel As New Excel.Application Dim sWindow As New WinWindow ObjExcel.Visible = False Dim stext As String ObjExcel.Workbooks.Open("c:\data\calcresults.xlsx") Dim ObjWS As Excel.Worksheet = ObjExcel.Worksheets("IP") Dim iNextRow As Integer = ObjWS.UsedRange.End(Excel.XlDirection.xlDown).Row + 1 ObjWS.Cells(iNextRow,1 ) = "d66666" ObjWS.Cells(iNextRow, 2) = "s77898" 想用列名不索引，例如： ObjWS.Cells（iNextRow，“Scenario”）=“新行数据，第一列” 任何想法我怎么能做到这一点？

使用multithreading的excel文件工作时出错: 在Asp.net中使用以下代码通过Excel Interop使用multithreading时： Public Class ImportService Public Function ImportsFiles(ByVal files as list(Of String)) Dim rowEffect As Integer = 0 For j as Integer=0 to files.Count-1 dim fileAddress=files(j) Dim app As New Application Dim Wbook As Workbook Try Wbook = app.Workbooks.Open(fileAddress, [ReadOnly]:=True) For i As Integer = 1 To Wbook.Sheets.Count If Not Wbook.Sheets(i).Name.ToString.ToLower.Contains("partial read of load profile") […]

命令button运行时exception: 我有一个示例代码，用于在Excel表单vb.net代码中创buildbutton，如下所示： Dim button As Microsoft.Office.Interop.Excel.OLEObject button = _xlWorksheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=0, Top:=0, Width:=100, Height:=30) button.Name = "Send Mail" Dim oCommandBar As Microsoft.Office.Core.CommandBar Dim oCommandBarButton As Microsoft.Office.Core.CommandBarControl Dim tb As String = "My Toolbar" Dim _btnCaption As String = "Forward To BSC" 'Dim code As String 'code = "Sub button_Click()" & vbCrLf 'code = code […]