Tag: vb.net

使用VB.net取消特定的工作表: 我正在使用VB.net删除名称出现在列表框中的工作表列表。在我的研究中，我find了两种删除项目的方法。 1）CType（objWorkBook.Sheets（“sheetname”），Excel.Worksheet）.Delete（） 2）objWorkSheets.Delete（）我将使用的循环如下所示： For i As Integer = 0 To workbook_worksheets.Items.Count – 1 Next 如果我使用1），那么删除不会做任何事情和2）我不知道如何分配名称的function，所以只有特定的工作表被删除。谢谢

用对话框保存生成的excel文件: 我从一个button点击数据表生成一个xls文件。现在保存文件的path在函数中被硬编码以生成文件： Function CreateExcelFile(xlFile As String) As Boolean Try Dim xlRow As Integer = 2 Dim xlApp As New Microsoft.Office.Interop.Excel.Application Dim xlWB = xlApp.Workbooks.Add Dim xlWS = xlApp.Worksheets.Add Dim intStr As Integer = 0 Dim NewFile As String = "" Dim strCaption As String = "PSLF Driver Files Records" xlFile = Replace(xlFile, "Return Files", "Reports") […]

无法从磁盘读取文件: 当我从vb应用上传一个excel文件的时候，第一次没事。如果我再试一次，我有这个错误：进程无法访问文件（path），因为它被另一个进程使用。以下是我的代码： Dim fd As OpenFileDialog = New OpenFileDialog() fd.Title = "Open File Dialog" fd.InitialDirectory = "C:\" fd.Filter = "All files (*.xlsx)|*.xlsx|All files (*.xlsx)|*.xlsx" fd.FilterIndex = 2 fd.RestoreDirectory = True Dim myStream As Stream = Nothing If fd.ShowDialog() = DialogResult.OK Then Try myStream = fd.OpenFile() If (myStream IsNot Nothing) Then workbook = […]

如何将VB.NET中的数据表传输到Excel: 我在VB.net中有一个数据表，我试图发送到Excel电子表格中的特定范围。但是，运行该程序时，我得到的错误： MeasurementFinder.dll中出现“System.Runtime.InteropServices.COMException”types的exception，但未在用户代码中处理附加信息：来自HRESULT的exception：0x800A03EC 下面的子错误警报： Private Sub WriteDataTableToRng(targetWs As Excel.Worksheet, anchor As Excel.Range, tbl As System.Data.DataTable) 'This sub writes the given tbl to the targetWs as a range with its top left cell acting as anchor Dim wRange As Excel.Range = anchor 'wRange = write range. This range represents the cell being written to over […]

VB.NET连接空的Excel单元格 – NullReferenceException是cought: 我在VB.NET中使用Excel连接时遇到问题。当我通过单元格循环查找表单中的最后一个非空行，当涉及到我比较空单元格的值的时刻“”我收到错误： NullReferenceException被捕获。你调用的对象是空的。” 有一段代码： Dim xlApp As New Excel.Application Dim xlWb As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim lRow As Integer = 1 Dim excelFilePath As String Using FileDialog As New OpenFileDialog FileDialog.Title = "Please choose Excel file with XXX" FileDialog.FileName = "" FileDialog.ShowDialog() excelFilePath = FileDialog.FileName End Using xlApp.Visible = True xlWb = […]

如何在vb.net中获得Excel单元格名称？: 我需要列的第一个空单元格的名称，例如“E15”或“A3”我尝试使用worksheet.Cells.Name和worksheet.Rows.Name，但我不认为这是正确的语法。 .. 请帮忙！这是我的代码 Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value xlApp = New Excel.Application xlWorkBook = xlApp.Workbooks.Add(eXe) xlWorkSheet = xlWorkBook.Sheets("sheet1") Dim eColumn As Excel.Range = xlWorkSheet.Range("E2:E15") Dim rCell As Excel.Range For Each rCell In eColumn If rCell Is Nothing Then Dim LastCell As […]

使用VB.NET将特定的数据库数据添加到excel文件: 我想添加数据到一个Excel文件中，我build立了一个连接数据库，并使用SSMS将需要的信息提取到存储过程中。我已经添加了基于我需要的信息的列，一些行将是静态数据这里是我的代码： Private Sub ExcelOutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExcelOutput.Click Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim xlRange As Excel.Range Dim misValue As Object = System.Reflection.Missing.Value Dim rNum As Random = New Random xlApp = New Excel.Application xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") xlRange = […]

如何使用VB.NET从工作簿中提取Excel工作表名称？: 我正在工资单上导入员工出勤率。这是我的代码来导入Excel表。 Dim MyConnection As OleDbConnection = Nothing Dim DtSet As System.Data.DataSet = Nothing Dim MyCommand As OleDbDataAdapter = Nothing With OpenFileDialog1 .Filter = "Excel files(*.xlsx)|*.xlsx|Excel (97-2003) files(*.xls)|*.xls|All files (*.*)|*.*" .FilterIndex = 1 .Title = "Import data from Excel file" End With If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Dim fname As String fname = OpenFileDialog1.FileName MyConnection […]

用VB.NET在Excel工作表中添加不同的随机生成的数字: 所以我有一个Excel表格，我正在添加数据。我已经做了标题 Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim xlRange As Excel.Range Dim misValue As Object = System.Reflection.Missing.Value Dim rNum As Random = New Random xlApp = New Excel.Application xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") xlRange = xlWorkSheet.UsedRange With xlWorkSheet .Range("A1").Value = "col1" .Range("B1").Value = "col2" .Range("C1").Value = "col3" […]