Tag: vb.net

我不断收到System.Runtime.InteropServices.COMException（0x80028018）：旧的格式或无效的types库。 错误

我尝试使用ListView – objLv中的相应行颜色来更新Excel工作表行 objLv = ListView 我添加了一个参考System.Drawing.dll – 运行版本v2.0.50727 – 版本2.0.0.0 该错误发生在“workbook.Styles.Item（i）.Interior.Color …所以这是下面的代码的第六行。 我应用了一些解决scheme，但无法解决问题。 Dim oldCI = New System.Globalization.CultureInfo("en-US") 'Me.sCloseDoc(strXLSFile) Dim workbook As Excel.Workbook = Me.fOpenXlsFile(strXLSFile) For i As Int32 = 0 To objLv.Items.Count – 1 workbook.Styles.Item(i).Interior.Color = objLv.Items(i).BackColor Next workbook.Save()

将vb.net列表导出为ex​​cel

我在vb.net有一个列表，我需要知道如何将这个列表导出为ex​​cel，它只需要显示只有11列，行数在每个产品im改变，但它不工作。 这是我的代码 Dim objApp As Excel.Application Dim objBook As Excel.Workbook Dim objBooks As Excel.Workbooks Dim objSheets As Excel.Sheets Dim objSheet As Excel.Worksheet Dim Rng As Excel.Range Dim StartRow, StartCol objApp = New Excel.Application() objBooks = objApp.Workbooks objBook = objBooks.Add objSheets = objBook.Worksheets objSheet = objSheets(1) listaReporte = ProcesarKardex() 'this is my list selectedValues = listaReporte.OrderBy(Function(x)x.fechaOperacion).ToList()) […]

将数据值通过Vb.Net实时logging到Excel

我遇到了困难，从Excel文件中logging文本框中的所有数据值。 我只想知道如何在Excel中logging不同单元格中的数据？ 它就像我需要做的一个监控系统。 有人可以帮助我如何在Excel中loggingdate和时间的值？ 谢谢 ：） 这里是我的示例代码： Dim OpenExcelFile As String =("C:\Users\RoseAnnMarey\Documents\TRYMUNA.xlsx") Dim oExcel As Object oExcel = CreateObject("Excel.Application") oExcel.workbooks.open(OpenExcelFile) Dim oBook As Excel.Workbook Dim oSheet As Excel.Worksheet oBook = oExcel.ActiveWorkbook oSheet = oExcel.worksheets(1) ' update the value oSheet.Range("c5:c15").Value = TextBox1.Text oSheet.Range("d5:d15").Value = TextBox2.Text oSheet.Range("b5:b15").Value = Label4.Text 'save oExcel.DisplayAlerts = True oBook.SaveAs(OpenExcelFile, 51) '51 == […]

如何获得Epplus中的空白单元格作为范围？

我想从一个范围使用Vb.net中的epplus 4的所有空白单元格C＃使用Excel.Interop，我用这个： Dim otherCells As ExcelRange = ExcelRangeV3.SpecialCells(XlCellType.xlCellTypeBlanks) otherCells.Select() otherCells.FormulaR1C1 = "Other" 我怎样才能使用vb.net或c＃代码在Epplus 4中做同样的事情？ 任何帮助表示赞赏。

获取Excel图表数据源

使用Visual Studio为Excel图表设置数据源很容易 Chart.SetSourceData(Source:=SomeRange) 但是，如何获取（检索）一个Excel文件中已经存在的图表的数据源（范围）？

多个用户从应用程序更新Excel

我在Visual Studio 2013中创build了一个表单，用于同时在多个用户的Excel中input数据。 除非两个用户同时打开表单，或者点击了提交并且表单仍在处理，否则它工作得很好。 然后显示对方的以下错误。 在您的应用程序中发生未处理的exception。 来自HRESULT的exception：0x800A03EC 任何帮助，我可以如何纠正这一点？ Imports excel = Microsoft.Office.Interop.Excel Imports System.Runtime.InteropServices Public Class Form1 Dim xlapp As New excel.Application Dim workbook As excel.Workbook Dim worksheet As excel.Worksheet Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load workbook = xlapp.Workbooks.Open("2.xlsx") xlapp.Visible = False worksheet = workbook.Sheets("sheet1") End Sub Private Sub Button1_Click(sender As […]

OpenXmlReader不是从一个excel .xlsx表格VB网页中提取所有的单元格内容

OpenXmlReader不从Excel .xlsx表单中提取所有单元格内容 我有一些原来从SO采取的代码，并转换为VBnetworking： 使用OpenXmlReader 我的代码在工作表的前14行循环，没有任何问题，但是不会再find任何单元格。 reader.ElementType似乎查找行 14（如果reader.ElementType是GetType（Row）Then），但没有更多的单元格 （GetType（单元格）） 最后提取的单元格是L14，但是excel文件的单元格内容最多为L29。 源代码： Public Shared Function fncParseXLSXorXLSM(strFileName As String, sbTxtFromFile As StringBuilder) As StringBuilder sbTxtFromFile.Length = 0 Dim intFirst As Integer = 1 Try Using spreadsheetDocument__1 As SpreadsheetDocument = SpreadsheetDocument.Open(strFileName, False) Dim workbookPart As WorkbookPart = spreadsheetDocument__1.WorkbookPart Dim sharedStringItemsArray As SharedStringItem() = workbookPart.SharedStringTablePart.SharedStringTable.Elements(Of SharedStringItem)().ToArray() Dim sheets As DocumentFormat.OpenXml.Spreadsheet.Sheets […]

如何通过vb.net代码在不同的Excel实例上打开每个Excel文件？

以下链接介绍了如何通过手动设置打开不同excel实例上的每个excel文件。 https://support.microsoft.com/en-in/kb/2636670 我需要通过vb.net代码打开不同的excel实例上的每个excel文件。 如何testing; 比方说，你有两个excel文件在你的桌面上。 双击打开这两个excel文件，然后看任务pipe理器。 如果您看到2个EXCEL.EXE正在任务pipe理器中运行，这意味着您已经成功打开了不同的Excel实例上的每个Excel文件。 顺便下面的代码不起作用; .IgnoreRemoteRequests = True

在VB.Net中使用密码保护文件的ACE驱动程序访问Excel文件

我试图以编程方式访问Excel工作表中包含的数据。 我想这样做而不显示Excel应用程序，并使用ACE OLEDB驱动程序与工作簿进行通信。 当Excel文件不受密码保护时，以下代码工作： Dim fDialog As New OpenFileDialog() With fDialog .Title = "Seleccionar archivos"; .Filter = "Archivo Excel (*.xls;*.xlsx;*.xlsm)|*.xls;*.xlsx;*.xlsm" .Multiselect = False .InitialDirectory = System.Environment.CurrentDirectory & "\Datos" .FilterIndex = 1 .RestoreDirectory = True If .ShowDialog = Windows.Forms.DialogResult.OK Then Call Ver_Datos_Excel(.FileName) End If End '… Private Sub Ver_Datos_Excel(sFichero_Excel As String) Try Dim cadconex As String […]

Word邮件合并SQL语句不起作用

我有一个VB.NET项目，我正在尝试合并Excel文档与Word文档（包含合并域）。 代码在我的代码的其他部分的相同的过程中工作得很好（以稍微修改的forms），但是这个完全不起作用。 RecordCount保持返回-1，这似乎表明合并问题。 这是我到目前为止的代码，它已经破裂了： Dim wdECASuitApp As New Word.Application Dim wdECASuitDoc As New Word.Document Dim Records As Integer wdECASuitDoc = wdECASuitApp.Documents.Open("X:\My Template.doc") wdECASuitApp.Visible = False 'Set this to False before going live — true for debugging wdECASuitDoc.MailMerge.OpenDataSource(Name:=SourceFile, SQLStatement:="SELECT * FROM [Sheet1$] WHERE [Client Short] = 'ABC'") 上面的代码最后一行运行后， wdECASuitDoc.MailMerge.DataSource.RecordCount返回-1，我的邮件程序跳过这一节，因为没有logging。 我主要工作在SQL Server，所以我知道我的SQL语句的语法是正确的，如果这是一个SQL Server查询，但我不知道在这种情况下使用SQL的任何特定约定。 在同一个程序中执行的其他合并很好，但是他们的SQL语句不包括任何单引号。 我想知道是否单引号需要以某种方式逃脱。 问题是在上面代码块的最后一行OpenDataSource 。 […]