Tag: vb.net

如何更改Excel列宽

我正在处理使用Visual Studio 2013，Visual Basic，Windows窗体的Excel文件。 我添加了新的工作表，以Excel名为sheetReport 如何改变b的列width为30？ 我不需要使用autofit ，使它使文本很小，以适应默认宽度的单元格。 xlApp = CreateObject("Excel.Application") xlApp.Visible = False xlBook = xlApp.Workbooks.Open(FileName) SheetReport = CType(xlBook.Sheets.Add(), Excel.Worksheet) SheetReport.Name = "Report" SheetReport.Range("B2").Value = "Agent Name" ' need resize column b

我怎么能覆盖其他Excel文件没有对话框“真的想覆盖”在VB.NET

我如何将一个Excel文件保存到一个已经存在的文件中？ Evertime有一个对话框：文件已经存在。 你真的想覆盖吗？ YES | NO |中止 如何在没有这个对话框的情况下覆盖？

按行NUMBER和列LETTER获取Excel单元格

在VB.NET中，使用Interop.Excel，我需要访问基于行号和列字母的单元格。 我试着运气… pages.title = DirectCast(wksht.Cells(rows, "D"), Excel.Range).Value 由于参数采取types对象，我想这可能会工作，但没有运气。 我也想过把每个字母都列举成一个数字，但是电子表格中的列是不正常的。 意思是，他们不是 ABCDEFG 他们其实是… ABCDET AZ 我不知道这是否会影响列的编号。 这个问题应该是显而易见的，但只是重申一下，我怎么能得到一个基于行号和列字母的单元格？

为什么systemprofile需要Desktop文件夹来打开excel文件

在我们在systemprofile文件夹中创build名为Desktop的文件夹之前，我们无法使用ASP.net打开Excel工作簿。 解决方法是在C:\Windows\SysWOW64\config\systemprofile\创build一个名为“Desktop”的文件夹C:\Windows\SysWOW64\config\systemprofile\ 错误消息是： System.Runtime.InteropServices.COMException（0x800A03EC）：Microsoft Office Excel无法访问文件“c：\ temp \ test.xls”。 有几个可能的原因： ？文件名或path不存在。 •该文件正在被另一个程序使用。 ？试图保存的工作簿与当前打开的工作簿具有相同的名称。 有没有人知道这个解释？ 如果在这里find这个tipp： http ://social.msdn.microsoft.com/Forums/en-US/b81a3c4e-62db-488b-af06-44421818ef91/excel-2007-automation-on-top-of-a-windows- 服务器-2008-64？论坛= innovateonoffice 但我不明白如何将这个桌面文件夹归因于一般的Excel或InteropServices。 一些版本信息： 操作系统：Windows Server 2012 IIS：Internet信息服务（版本8.0.9200.16384）Excel：Excel 2013

使用VB.NET的SQL Server数据库新模式

使用VB.NET，我成功创build了一个新数据库，并将数据从Excel文件导入到SQL Server 2012 Express数据库中。 新表使用默认模式dbo创build。 我想为刚刚创build的数据库（即cad ）创build一个新的模式，并将表分配给这个新的模式。 我很难做到这一点使用VB.NET。 以下是用Excel文件创build数据库的代码。 接下来是将cad模式添加到这个数据库。 一旦创build，我可以导入Excel数据，并将新的模式包含在连接string中。 SQL_Server = Me.TxtServer.Text 'assing variable for the SQL server SQL_DBNam = Me.TxtDbName.Text 'assign variable for the database name in the server SQL_Table = Me.TxtInsertedTableName.Text 'assign variable for the table name in the database in the server SQL_Schema = Me.TxtSchema.Text 'save the schema to registry […]

closuresExcel.exe进程

下面的代码工作，但excel.exe进程仍然运行，即使我退出Excel。 我正在使用Office 2013并引用Office.Interop.Excel的正确导入 我错过了什么 Sub demo() Dim xls As New Excel.Application Dim book As Excel.Workbook Dim oSheet As Excel.Worksheet xls.Workbooks.Open("Test.xlsx") book = xls.ActiveWorkbook oSheet = book.ActiveSheet oSheet.Cells(1, 2).Value = "testing" book.Save() book.Close() xls.Workbooks.Close() xls.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet) System.Runtime.InteropServices.Marshal.ReleaseComObject(book) System.Runtime.InteropServices.Marshal.ReleaseComObject(xls) oSheet = Nothing book = Nothing xls = Nothing GC.Collect() End Sub

VB.Net的Excel插件，如何将数据写入特定的工作表名称？

所以这是我的问题。 我正在将一个旧的Excelmacros转换成一个Excel添加，所以我可以更容易地与我的同事分享。 我是VB.net的新手，但我正在尽我所能，所以请容易对我。 我有一个Windows窗体，允许用户input数据，当他们击中input数据button时，数据应该从表单形成一个特定的工作表。 代码如下： Imports Excel = Microsoft.Office.Interop.Excel Public Class Form_CutListEntry Dim xApp As New Excel.Application Dim wss As Microsoft.Office.Tools.Excel.Worksheet Private Sub Btn_InsertJobInfo_Click(sender As Object, e As EventArgs) Handles Btn_InsertJobInfo.Click wss = xApp.Worksheets("Job Info") 'Check that all data is entered If Trim(TxtBx_CustomerName.Text) = "" Then TxtBx_CustomerName.Focus() MsgBox("Please enter a Customer Name") Exit Sub End […]

如何以编程方式从Excel单元拖放到启用拖拽的任务窗格？

我正在使用Excel 2007，VS2008 Pro。 我正在构build一个需要“从Excel单元格拖放到启用了拖动的任务窗格”的VSTO加载项。 到目前为止，我注意到我只能在单元格内拖放。 它不允许我拖放到任务窗格或拖过表单限制。 （http://www.computerimages.com/tip_xl.html） 注：任务窗格已启用拖放，我已经testing过，我可以从任务窗格拖放到Excel，但我需要这样做，反过来呢？

从Excel范围有效地分配单元格属性到VBA / VB.NET中的一个数组

在VBA / VB.NET中，您可以将Excel范围值分配给数组，以便更快地访问/操作。 有没有办法有效地将其他单元格属性（例如，顶部，左侧，宽度，高度）分配给一个数组？ 也就是说，我想要做一些事情： Dim cellTops As Variant : cellTops = Application.ActiveSheet.UsedRange.Top 该代码是程序的一部分，以编程方式检查图像是否与工作簿中使用的单元格重叠。 我目前使用UsedRange中的单元格的方法很慢，因为它需要反复轮询单元格的顶部/左侧/宽度/高度。 更新：我将继续接受道格的答案，因为它的确工作得比天真的迭代更快。 最后，我发现一个非天真的迭代工作更快，我的目的是检测重叠内容填充单元格的控件 。 步骤基本上是： （1）通过查看每行中第一个单元格的顶部和高度来find所使用的范围中有趣的一组行（我的理解是行中的所有单元格必须具有相同的顶部和高度，宽度） （2）迭代感兴趣的行中的单元格，并仅使用单元格的左侧和右侧位置执行重叠检测。 查找有趣的一组行的代码看起来像这样： Dim feasible As Range = Nothing For r% = 1 To used.Rows.Count Dim rowTop% = used.Rows(r).Top Dim rowBottom% = rowTop + used.Rows(r).Height If rowTop <= objBottom AndAlso rowBottom >= objTop Then If feasible […]

使用vb.net在大型excel文件上执行SQL Query的最佳方法是什么？

安装环境： 我正在开发一个Excel 2010应用程序级插件，使用.NET框架4使用vb.net。 我的目标： 让用户键入多个名称进行search 使用名称列表在大电子表格上执行SQL查询（30,000多行） 返回logging集并粘贴到新的工作表中 性能是我的首要任务。 我想知道利用.NET框架来做到这一点的最快方法。 在我的代码中使用ADO连接对象的工作，但过程需要太长时间（5 – 8秒）。 这是我在名为wells的表上使用的SQL查询： SELECT * FROM wells WHERE padgroup in (SELECT padgroup FROM wells WHERE name LIKE 'TOMCHUCK 21-30' OR name LIKE 'FEDERAL 41-25PH') 以下是表格的一部分： 我现在使用这个代码来创build一个ADO连接对象来检索我的结果： 'Create Recordset Object rsCon = CreateObject("ADODB.Connection") rsData = CreateObject("ADODB.Recordset") rsCon.Open(szConnect) rsData.Open(mySQLQueryToExecute, rsCon, 0, 1, 1) 'Check to make sure […]