Tag: vb.net

使用VB.Net在Datagridview中导入Excel数据

大家好，下午好。 我有一个程序在VB.Net导出数据到Datagridview这样的Excel文件 导出后，我将编辑Excel文件，并将其返回到我的Datagridview，但可悲的是这里是我的输出 正如你在这两张照片上看到的，他们是不同的。 没有逗号，没有小数位和列Total 0也被添加，但是假设它不是。 我的问题是如何在Excel中实现相同的格式？ 将逗号和小数点放在数字列中，不要包含列Total为0或0.00的行 所有我想要的是，我的Datagridview数据也是相同的格式在Excel中。 这是我在导入代码 Dim conn As OleDbConnection Dim dta As OleDbDataAdapter Dim dts As DataSet Dim excel As String Dim OpenFileDialog As New OpenFileDialog OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls" If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then Dim fi As New FileInfo(OpenFileDialog.FileName) […]

使用VB.NET应用程序将HTML表格从剪贴板粘贴到Excel工作表中

我有一个有7000行和60列的DataTable ，我需要将它保存在Excel文件中。 在DataTable循环需要很多时间，而ClosedXml库是引发了一个我无法解决的exception（几个星期）。 所以我决定从DataTable创build一个HTML表格，将其添加到剪贴板并粘贴到networking上的通用Excel文件中。 问题是所有的string都是用希伯来语写的，当应用程序粘贴数据时，所有的string都不能正确编码，而Excel将它们显示为问号。 注意：当我使用我的鼠标粘贴应用程序在剪贴板上设置的数据时，数据将被粘贴，而不会出现问号。 此外，我试图使用PasteSpecial()方法的所有枚举参数没有成功。 请参阅我添加的相关代码部分。 Public Function LoadDataTableToDivisinReport(ByVal d As DataTable, ByVal pathAndFileNameToSave As String, ByVal DbsheetNameToReplaceData As String, Optional ByVal pathToSaveImages As String = "") As Boolean …….. Dim t As Threading.Thread t = New System.Threading.Thread(AddressOf createHtmlTableToClipBoard) t.SetApartmentState(Threading.ApartmentState.STA) t.Start() ws.Range("a1").PasteSpecial(Excel.XlPasteType.xlPasteFormats) ……… End Function Private Sub createHtmlTableToClipBoard() Dim b As New StringBuilder […]

Vb.net Excel移动到下一行

嘿，我期待看到如何去移动我的电子表格中目前我在哪里。 我努力了： Dim xlsApp As Excel.Application Dim xlsWB As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim xlsCell As Excel.Range xlsCell = xlsSheet.Range("A1", "A100") For Each oRowRange As Excel.Range In xlsCell.Rows For Each oCellRange As Excel.Range In oRowRange.Columns If colorRGB = "252, 213, 180" Then Debug.WriteLine(oCellRange.Text) oCellRange.Offset(0, 1).Select() Debug.WriteLine(oCellRange.Text) etc… End If Next Next 在上面的例子中，它一直保持相同的文本： BOB BOB […]

在vb.net中使用Inner Join合并两个DataTable

我有两个数据表需要合并在一起。 这两个表都有一个名为“代码”的字段，基本上，如果一个表有一个特定的代码，它将与另一个表中的相应代码合并，将这些行的值合并到其中。 我会说它像使用内部连接在SQL中一起合并两个表。 需要在vb.net请！

错误hresult 0x800a03ec试图给excel单元赋值

我想通过使用下面的代码将DataGridView的内容导出到Excel工作表 Dim xlApp As New Microsoft.Office.Interop.Excel.Application Dim xlBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet = CType(xlBook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet) xlSheet.Name = "MySheet" xlApp.Visible = True With xlSheet For C As Integer = 0 To DGV_IntCalc.Columns.Count – 1 .Range(.Cells(1, C + 1)).Value = DGV_IntCalc.Columns(C).HeaderText For R As Integer = 0 To DGV_IntCalc.RowCount – 1 .Range(.Cells(R + […]

打开Excel 2016文件失败，HRESULT：0x800706BE

用于打开现有Excel文件的简单VB.NET代码在打开命令时失败，出现以下错误： 远程过程调用失败。 （从HRESULTexception：0x800706BE） 我已经search堆栈溢出和微软网站的这个错误，它看起来像没有人有一个确定的答案。 但是有一点是一致的，似乎都是在64位Excel中发生的。 无论如何，我在这里要求这个问题的帮助。 下面是我非常简单的代码： Imports Microsoft.Office.Interop.Excel Dim XLApp As Application = New Application() Dim XLWkb as Workbook = XLApp.Workbooks.Open("TestExcel.xlsx") Dim XLSht as WorkSheet = XLWkb.Sheet(1) XLWkb.Close() XLApp.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(XLSht) System.Runtime.InteropServices.Marshal.ReleaseComObject(XLWkb) System.Runtime.InteropServices.Marshal.ReleaseComObject(XLApp) 上面的代码在XLApp.Workbooks.Open行中一直出现这个可怕的消息。 My windows is Windows 7 Enterprise Service Pack 1, 64-bit My Excel is 2016 MSO (16.0.6701.1041) 64-bit version. My MS Office […]

通过interop在excel中打印网格线

我试图导出DataGridView项目到Excel文件和一切都完美，但我希望网格线显示时，客户端要打印表，我可以做到这一点在Excel中，如下所示。 但我怎么能做到这一点从vb.net代码？ 我有一个问题：我不能让文本alignment中心我试过这个代码： wSheet.Range("a2", "z1000").HorizontalAlignment = excel.XlVAlign.xlVAlignCenter 但它显示这个错误： Public member 'XlVAlign' on type 'ApplicationClass' not found. 是否有不同的方式使所有列alignment中心。 这是我的代码： If ((DataGridView1.Columns.Count = 0) Or (DataGridView1.Rows.Count = 0)) Then Exit Sub End If 'Creating dataset to export Dim dset As New DataSet 'add table to dataset dset.Tables.Add() 'add column to that table For i As Integer = […]

select工作表与多个工作簿打开crahses

如果我只创build一个工作簿，以下工作正常 Dim oXl As New Microsoft.Office.Interop.Excel.Application Dim wb_main As Workbook wb_main = oXl.Workbooks.Add …add sheets and data to sheets CType(wb_main.Worksheets(1), Worksheet).Select() wb_main.SaveAs(Filename:=_files(0)._file_path.parentDir.parentDir & "out.xlsx") 但有两个打开，我得到一个错误。 互操作错误不是简单易懂的debugging。 Dim oXl As New Microsoft.Office.Interop.Excel.Application Dim wb_main As Workbook Dim wb_extended As Workbook wb_main = oXl.Workbooks.Add wb_extended = oXl.Workbooks.Add …add sheets and data to sheets in both workbooks, no […]

Excel单元格ADODB.Recordset

我有一个Excel电子表格，我想把它制作成一个ADODB.Recordset 。 我以前用Excel表格做过，但不只是单元格。 Fields在第4行，而Values在第5行。在这之前和之后的所有东西只是标题等视觉垃圾。 通常我只是做一些像getSomething = MyADO.executeQuery("SELECT * FROM [Worksheet$]") ，但我迷失在这里做什么，以及如何testing它的工作原理。

如何：hover在形状显示文本框

我想这样做，当用户hover在一个三angular形如下所示，一个文本框popup与该三angular形有关的某些信息。 三angular形绘制与以下function… Public Sub drawTriangle(theRow As Integer, theColumn As Integer, Optional myColor As System.Drawing.Color = Nothing) myColor = System.Drawing.Color.Black Dim theShape As Microsoft.Office.Interop.Excel.Shape = xlWorkSheet.Shapes.AddShape(MsoAutoShapeType.msoShapeIsoscelesTriangle, (xlWorkSheet.Cells(theRow, theColumn)).Left + 18, (xlWorkSheet.Cells(theRow, theColumn)).Top, 15, 14) theShape.Fill.ForeColor.RGB = ToBgr(myColor) theShape.Line.ForeColor.RGB = ToBgr(myColor) End Sub 我一直没有find任何有关如何做这件事的例子或好的文件，所以我想我会在这里问。 任何和所有的帮助非常感谢！