Tag: vb.net

浮点精度视觉基本

我想知道如何在计算pi时获得更多的视觉基本数字。 这是我的代码： Dim enne, phi As Double phi = 1 Console.WriteLine("Insert numble of cycles") enne = Console.ReadLine For i = 0 To enne phi = 6 + ((2 * enne + 1) * (2 * enne + 1)) / phi enne = enne – 1 Next phi = phi – 3 Console.WriteLine("pi is") Console.WriteLine(phi) Console.WriteLine("normal […]

性能下降设置Excel工作表打印设置

使用用于Excel的Microsoft Office Interop库，我已经在VB.Net中编写了一个例程，它创build了大量的Excel工作表，然后填充它们，然后格式化它们进行打印。 对于每个工作表，我称这个小方法来设置打印设置： Public Sub SetDefaultReportPrintSettings(orientation As ReportSheetOrientation, ws As Excel.Worksheet) CType(ws.Parent, Excel.Workbook).Application.Windows(1).Zoom = 90 With ws.PageSetup Select Case orientation Case ReportSheetOrientation.Portrait : .Orientation = Excel.XlPageOrientation.xlPortrait Case ReportSheetOrientation.Landscape : .Orientation = Excel.XlPageOrientation.xlLandscape End Select .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 .LeftMargin = ws.Application.InchesToPoints(If(orientation = ReportSheetOrientation.Portrait, 0.75, 0.5)) .RightMargin = ws.Application.InchesToPoints(0.5) .TopMargin […]

使用OleDB范围错误从Excel 2013文件中读取非常大的数据

我正尝试使用Visual Basic.NET在OleDB的帮助下阅读Excel 2013文件（.xlsx，大小约为100 MB）。 主要担心的是系统内存exception的系统： da.Fill(dt) 从下面的代码。 Private Function ReadExcelFile() As DataSet Dim ds As New DataSet() Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;;Extended Properties=Excel 12.0 XML;Data Source=C:\file.xlsx;" Using connection As New OleDbConnection(connectionString) connection.Open() Dim cmd As New OleDbCommand() cmd.Connection = connection Dim dtSheet As DataTable = connection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) For Each dr As DataRow In dtSheet.Rows […]

将HTML导出到Excel而不丢失格式

我有一个生成报告的asp.net页面。 无论好坏，整个事情都是使用嵌套表生成的。 我能够导出页面为Excel，但是我失去了我所有的格式（不能设置列宽等）。 有办法解决这个问题吗？ 我打算添加所需的任何愚蠢的MS Office特定标签的HTML一面。 如果这是不可行的，如果任何人有任何其他的想法，要求用户需要一个报告： a）他们可以手动修改某些个性化/区域特定的数据 b）根据用户的位置需要隐藏/显示列 c）需要从网站运行。 任何帮助或build议替代方法将不胜感激。 谢谢乔

试图打开一个Excel模板，并重命名或保存到新的位置

我遇到以下错误信息，当我尝试以下操作： Dim XL As New Microsoft.Office.Interop.Excel.Application XL.Visible = True XL.Workbooks.Open(XLTemplatePath) XL.SaveWorkspace(XLSaveReportPath) XL.Workbooks.Close() XL.Workbooks.Open(XLSaveReportPath) “Excel无法打开”ContactReports.xlsx“文件，因为文件格式或文件扩展名无效，请确认文件没有被破坏，文件扩展名与文件格式相匹配。 我想要做的是打开一个Excel文件XLTemplatePath，并重命名或保存在XLSaveReportPath文件，然后使用该重命名/保存的文件填写报告。 我在VB.NET中使用Visual Studio 2008

键盘快捷方式csv文件列标题宽度自动调整在Excel中

XML到Excel映射

我尝试使用XML将一些数据导出到Excel。 这里是我的代码生成Excel文件的一个例子： Private Sub ExportToExcel() Dim fs As New IO.StreamWriter("exported.xls", False) fs.WriteLine("<?xml version=""1.0""?>") fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>") fs.WriteLine("<Workbook xmlns:ss=""urn:schemas-microsoft-com: Office:spreadsheet"">") ' Create the styles for the worksheet fs.WriteLine(" <Styles>") ' Style for the column headers fs.WriteLine(" <Style ss:ID=""1"">") fs.WriteLine(" <Font ss:Bold=""1""/>") fs.WriteLine(" <Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" " & _ "ss:WrapText=""1""/>") fs.WriteLine(" <Interior ss:Color=""#C0C0C0"" ss:Pattern=""Solid""/>") fs.WriteLine(" </Style>") ' Style […]

Excel从ASP.net下载页面

我对networking编程相当陌生。 我试图从一个ASP.net网站下载一个excel。 IT不需要身份validation，但是我无法debuggingURL作为萤火虫不会如何请求的URL。 search高低。 任何投入这将是真棒。 先谢谢你。 url： http : //tebb.elpaso.com/ebbmasterpage/Capacity/OperAvailAutoTable.aspx?code=TGP&name=Operationally%20Available%20Capacity&status=Cap&sParam2=M&sParam3=5/4/2012&sParam8=S 操作：我点击“摘要下载”button下载excel。 我不知道onClick（）去哪里。

无法在VB.Net中设置SeriesCollection.Values属性

我试图设置SeriesCollection.Values属性，但是，我得到错误“无法设置Series类的Values属性”。 我已经尝试过Google寻求可能的解决scheme，但还没有任何解决scheme。 我使用了xlNewApp.Sheets（“Synchronized Data”）。Range（“H2：H117”）来代替“Synchronized Data！！$ H $ 2：$ H $ 117”，但这也不起作用。 在我想要绘制的实际数据中键入一个数组（例如“= {58,77,65,106}”），我已经取得了一些成功，但是我想避免遍历所有数据来创build必要的数组。 任何帮助这个问题将不胜感激。 代码如下所示： xlSheetCount = xlNewWorkbook.Worksheets.Count Dim chart As Excel.Chart = xlNewApp.ActiveWorkbook.Charts.Add(After:=xlNewWorkbook.Worksheets(xlSheetCount)) xlNewWorkbook.ActiveChart.Name = "Chart_Efficiencies" xlNewWorkbook.Sheets(xlSheetCount).name = "Chart_Efficiencies" xlNewApp.Charts("Chart_Efficiencies").Select() xlNewApp.ActiveChart.ChartType = Excel.XlChartType.xlXYScatter xlNewWorkbook.ActiveChart.SeriesCollection.NewSeries() With xlNewWorkbook.ActiveChart.SeriesCollection(1) .ChartType = Excel.XlChartType.xlXYScatter .Name = "HgT Removal Efficiency" .XValues = "'Synchronized Data'!$A$2:$A$117" .Values = "'Synchronized Data'!$H$2:$H$117" <———– Problem […]

范围乘法VB.NET（这个代码有什么问题？）

（VB Express等级：初学者） 我想要做下面的事情， 工作簿1中的一列 一个 b C d Workbook2中的一列 Ë F G H 输出到单个单元格 AE + BF + CG + DH （输出是一个Sumproduct。） 工作簿1中有44行，工作簿2中有44行。但是，工作簿1中有3列，工作簿2中有104列。工作簿3中的每列必须与工作簿2中的104列相乘。 以下是我的努力，它在一列的所有单元格中写入相同的值。 我的理解是我的for循环是错误的地方。 但我无法弄清楚什么是错的。 'link to workbooks oWB5 = oXL5.Workbooks.Open("D:\1.xlsx") oWB6 = oXL6.Workbooks.Open("D:\2.xlsx") oWB7 = oXL7.Workbooks.Open("D:\outputs.xlsx") 'link to worksheets oSheet5 = oWB5.Worksheets("Inputs") oSheet6 = oWB6.Worksheets("Coef") oSheet7 = oWB7.Worksheets("Sheet1") ' ranges to be considerd, […]