Tag: vb.net

如何testing以查看计算机是否安装了Excel（任何版本）？: 我有一个Windows窗体应用程序，当它启动时，需要查看用户是否已安装在计算机上的Excel，如果不显示一条消息，通知用户部分function将被禁用。他们是一个简单的方法来执行此检查？使用VB.Net在Visual Studio 2008中工作

导出Excel范围为图像（VB.NET）: 我有一个工作的Excel VBAmacros，做我想从这里，我想把它转换为VB.NET。来自VBA的代码： Sub bah() ''' Set Range you want to export to file Dim rgExp As Range: Set rgExp = Range("B2:C6") ''' Copy range as picture onto Clipboard rgExp.CopyPicture Appearance:=xlScreen, format:=xlBitmap ''' Create an empty chart with exact size of range copied With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _ Width:=rgExp.Width, Height:=rgExp.Height) .Name = "ChartVolumeMetricsDevEXPORT" .Activate End […]

为vbamacrosexcel 2007优化循环: 我有这个代码工作。它下降一个范围，并删除空的行，将第一个字符分成不同的列，如果它不是一个数字或负号。此代码工作。但是对于需要处理的数据量来说太慢了。谢谢大家对于如何优化代码并使其更快的build议。我已经closures了自动计算。屏幕更新。和应用程序的可见性。 Dim rng As Range Dim i As Long Dim Tracking As Long Dim textval As String Dim limitz As String Dim remaining As String Range("B1").End(xlDown).Offset(0, 5).Select Set rng = Range("G2", ActiveCell).Select i = 1 Range("G2").Select For Tracking = 1 To rng.Rows.Count textval = rng.Cells(i).Value limitz = Left(textval, […]

在查询Excel 2010时诊断OLEDBexception: 要通过SQL查询Excel表格，我曾经使用过： Dim excelConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strPath + ";Extended Properties=""Excel 8.0;IMEX=1;HDR=YES;""" 要么 Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + strPath + ";Extended Properties=""Excel 12.0;IMEX=1;HDR=YES;""" 现在这个工作正常，直到我安装Office 2010。现在我得到一个 Microsoft.Ace.OLEDB.12.0提供程序未在此计算机上注册exception。我怎样才能find正确的连接string/提供者？

使用VB.NET处理Excel COM对象的正确方法是什么？: 我有以下代码（从在线教程获得）。代码正在工作，但我怀疑处理Excel COM对象的方式有点不正确。我们是否真的需要调用GC.Collect？或者什么是最好的方式来处置这个Excel COM对象？ Public Sub t1() Dim oExcel As New Excel.Application Dim oBook As Excel.Workbook = oExcel.Workbooks.Open(TextBox2.Text) 'select WorkSheet based on name Dim oWS As Excel.Worksheet = CType(oBook.Sheets("Sheet1"), Excel.Worksheet) Try oExcel.Visible = False 'now showing the cell value MessageBox.Show(oWS.Range(TextBox6.Text).Text) oBook.Close() oExcel.Quit() releaseObject(oExcel) releaseObject(oBook) releaseObject(oWS) Catch ex As Exception MsgBox("Error: " & […]

将Excel单元格alignment中心VB – xlCenter未声明: 我使用Visual Studio 2013 Visual Basic，MS ACCESS 2013，EXCEL 2013 我的程序另存为我的datagrid中的数据为Excel。我使用访问2013作为我的数据库这是我的代码： Imports System.Data.OleDb Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'AccessdbtestDataSet.country' table. You can move, or remove it, as needed. Me.CountryTableAdapter.Fill(Me.AccessdbtestDataSet.country) End Sub Private Sub Button2_Click(sender As […]

我如何通过索引值寻找字典的关键字？: 如何通过传递索引值来获得字典的关键字？我尝试着： If rs.Fields("NM").Value = dictNM.key(0) 也就是说，我希望它与字典中的第一个键相比较但我得到的错误 Compile error: Invalid use of property 我尝试了谷歌search，但无济于事。我希望这是可能的。

如何在Excel中将区域设置应用于十进制格式？: 我从代码生成excel。我试图通过.net代码自定义单元格。而且我也想添加本地化，以便在用户尝试input小数时生成excel后，应该采用该locale数字格式。如何格式小数与千位分隔符en-US数字看起来像1,000.45和荷兰比利时它变成1.000,45我在我的代码中提到小数作为工作表。Range（Range）.NumberFormat =“###，###。＃＃” 如何为不同的语言环境提供这种格式。 Kinldy帮助我谢谢你Ramesh.T。

EPPlus LoadFromDataTable错误: 我从EPPlus得到最奇怪的错误，并想知道是否有其他人已经得到这个/find一个解决方法… 如果我使用下面的代码，一切都很好： wks.Cells(2, 20).LoadFromDataTable(dtFXData, True) 但是当我改变它到这个： wks.Cells(2, 26).LoadFromDataTable(dtFXData, True) 我得到一个ArgumentOutOfRangeException** – Specified argument was out of the range of valid values. Parameter name: Start cell Address must be less or equal to End cell address ArgumentOutOfRangeException** – Specified argument was out of the range of valid values. Parameter name: Start cell Address must be less […]

在Excel Workbook.BeforePrint事件中检测打印机: 在Excel中处理Workbook.BeforePrint事件时，有什么方法可以确定打印机的目标？我知道事件处理程序签名允许取消该事件，如此处所述，但是我想取消所有打印事件，除非打印机是PDF打印机。我发现，如果用户select“另存为”或“导出”来创buildPDF，它使用PDF打印机驱动程序来执行保存或导出并触发事件处理程序，但不会更新打印机设置为应用程序的活动打印机时，这样做。有没有不同的方式来检测目标打印机？