Tag: vb.net

在Excel表格中使用vb.net进行范围select: 这是我的代码： Dim saveFileDialog1 As New SaveFileDialog() saveFileDialog1.Filter = "Excel files (*.xls)|*.xls" saveFileDialog1.Title = "Save File" saveFileDialog1.RestoreDirectory = True If saveFileDialog1.ShowDialog() = DialogResult.OK Then Try Dim ExcelApp As New Microsoft.Office.Interop.Excel.Application() ExcelApp.Application.Workbooks.Add(Type.Missing) ExcelApp.Cells.HorizontalAlignment = XlHAlign.xlHAlignLeft ' Change properties of the Workbook ExcelApp.Columns.ColumnWidth = 15 ' Storing header part in Excel For i As Integer = 1 To […]

如何插入数据从文本框来使用vb.net excel？: 我卡在这里，我想插入数据从5个文本框到现有的Excel文件的列。我发现代码，但它插入行。我有一个代码，find最后一个非空行，从那一行我想要移动到下一行，并在那里插入数据，例如最后一行是A2，我想插入新的数据到A3，B3，C3，D3 ，E3。我不能得到正确的循环。 Dim lRow As Long = 0 Call OpenExcelFile("C:\Users\PB\Desktop\BookRecords.xlsx", 1) With xlWorkSheet If EXL.WorksheetFunction.CountA(.Cells) <> 0 Then lRow = .Cells.Find(What:="*", _ After:=.Range("A2"), _ LookAt:=Excel.XlLookAt.xlPart, _ LookIn:=Excel.XlFindLookIn.xlFormulas, _ SearchOrder:=Excel.XlSearchOrder.xlByRows, _ SearchDirection:=Excel.XlSearchDirection.xlPrevious, _ MatchCase:=False).Row Else lRow = 1 End If lRow += 1 End With MessageBox.Show("The last row in Sheet1 which has data […]

循环遍历所有单元格并删除任何零单元格（向上移动）: 这似乎应该是一个相当简单的任务，但我似乎无法得到它的工作 – 我只是想要一个简单的macros，将通过我的工作表中的所有单元格循环。如果单元格等于零（或踢空），则删除它，将列中的其他单元格移动一个。我没有在整个文档中尝试做，所以我试图在一个单一的列上做： Sub Macro6() ' ' Macro6 Macro ' ' Keyboard Shortcut: Ctrl+q ' For i = 81 To 1 Step -1 If Range("A" & i) = "0" Then Range("A" & i).Delete Next i End Sub 我不想删除任何行，只是单个单元格，如果他们有值0 。但是显然仍然没有任何进展。

比较date时混乱: 比较date时遇到问题： Sub Main() Dim xlApp, xlApp1, xlApp2 As Excel.Application Dim xlWorkBook, xlWorkBook1, xlWorkBook2 As Excel.Workbook Dim xlWorkSheet, xlWorkSheet1, xlWorkSheet2 As Excel.Worksheet Dim folder, m, n As String Dim subfolders As String() Dim i, j, c, k, l, lastrow As Integer Dim fec,temp As Date Dim nulls As Boolean nulos = False folder = My.Application.Info.DirectoryPath ChDir(CurDir()) […]

VB.net Excel.worksheet（）。cells（）。Value: 试图写在Excel工作表中的信息但有一些奇怪的问题;）我看了谷歌信息，但没有结果..所以plz帮助）我添加引用Microsoft.excel 14.0对象库，也导入Microsoft.Office.interop 我需要从特定单元格获取值，所以我使用命令Checker = shXL.cells（1,1）。在这里我没有价值….我只得到这个（Equal / GetHashCode / GetType / toString）所以问题是为什么我没有（.Value）的.cells和哪里是一个错误 Dim appXL As Excel.Application Dim wbXL As Excel.Workbook Dim wbsXL As Excel.Workbooks Dim shXL As Excel.Worksheet Dim Checker As Integer appXL = CreateObject("excel.application") appXL.Visible = True wbsXL = appXL.Workbooks wbXL = wbsXL.Open("D:\Некорректные Переключения\Base.xlsx", , , , 12121) shXL = wbXL.ActiveSheet Checker = […]

我如何testing函数是否返回成功创build的对象？: 首先，CreateApp（）调用NewAppSheet（）。其次，NewAppSheet（）返回一个对象。第三，CreateApp（）testing对象创build是否成功。我经常遇到这种情况。这种情况的一个好的做法是什么？在这种情况下的细微差别是什么（例如：如果对象从来没有成功创build，或者只是指向什么都没有关系）？下面的代码是我最好的尝试在优雅。不幸的是，CreateApp（）中的Else不会发生，所以我的testing不起作用。 Sub CreateApp() Dim wks As Excel.Worksheet = NewAppSheet() If Not wks Is Nothing Then WriteAppText(wks) Else MessageBox.Show("This never happens") End If End Sub Function NewAppSheet() As Excel.Worksheet Dim sMessage As String = "Message" Dim sTitle As String = "Title" Dim sDefaultValue As String = "" Dim sValue […]

这个查询有什么问题吗？: INSERT INTO tblExcel (ename, position, phone, email) VALUES ('Burton, Andrew', 'Web Developer / Network Assistant', '876-9259', 'aburton@wccs.edu') 我有一个访问表，有五个字段：id，ename，位置，电话和电子邮件…每个是50个字符的纯文本字段，保存位置是255和id这是一个自动增量字段。我正在使用VB.NET从Excel表中读取数据，该数据被推送到用于填写该查询的简单类中。我对另外两个表做了同样的事情，他们的数据是从DB2表和MySQL表中抽取的。另外两个工作，但这个简单的INSERT循环保持失败，所以我不认为这是我的“InsertNoExe”函数处理所有的OleDb的东西。那么，呃，这个查询，字段标题等等是不是伪造的？如果有人想看，我可以发表其他一些代码。编辑：修正。我不确定广泛的图像是否被算作堆栈溢出错误，这就是我为什么离开它的原因。编辑2：我很密集。我使用try … catch来查看伪造查询，甚至不检查ex.messsage。嘎。 INSERT INTO tblExcel (ename, position, phone, email) VALUES ('Burton, Andrew', 'Web Developer / Network Assistant', '876-9259', 'aburton@wccs.edu') at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(Int32 hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) […]

使用Selection.ListObject.QueryTable Intact将Excel VBA转换为VB.Net: 我需要访问Selection.ListObject.QueryTable对象为了保留列的宽度。代码如下： Range("B9").Select() With Selection.ListObject.QueryTable .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .PreserveColumnInfo = True End With 什么是这个Excel的VB.Net版本生成的VBA代码？

Excel单元格格式文本中的更改: 我已经使用微软的Excel表..我跌倒了不同的价值观在Excel表没有问题..但我倒了一些数字像这样的列（00023785678）..在这个列第一个零是不明白的..所以我去改变文本的单元格格式的列。如何在Vb.net代码中创build..已经失败了Excel表单这种方法… Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet Dim columnrange = oSheet.Columns Dim therange = oSheet.UsedRange ' Dim wb As Microsoft.Office.Interop.Excel.Workbook ''Dim style As Microsoft.Office.Interop.Excel.Style oXL = CreateObject("Excel.Application") oXL.Visible = True oWB = oXL.Workbooks.Add oSheet = oWB.ActiveSheet 'oXL.Selection.num() oXL.Selection.NumberFormat = "Text" For c As Integer = 0 To dt.Columns.Count […]