Tag: vb.net

VB.NET打开并打印一个excel文件

我正在开发一个简单的VB.NET桌面应用程序的一点点印刷业务。 它有一个主要的WinForm，用于打开JPG / PDF / Word / Excel文件的button，打开相关程序，打印文件，捕获卷轴作业，最后根据打印机名称，打印页数，页面大小和每页成本。 没什么大不了。 主机有Win7操作系统。 当用户想要打印XLS文件时，我希望应用程序打开Excel 2010，打开以前用文件对话框select的文件。 当Excel打开时，直接进入打印对话框，然后当作业完成加载到spool中时，我捕获该事件并杀死Excel进程。 我的问题是： 我无法打开Excel直接进入打印对话框。 Excel能够响应“打印”动词。 但它只是用默认的打印机打印。 我想打开它并转到打印对话框。 我不想用默认打印机打印，我需要允许用户select所需的打印机，页面，副本等。 我试图用下面的代码来做到这一点： Dim openFileDialog1 As New OpenFileDialog() Dim filePath As String = "" Dim startInfo As ProcessStartInfo 'openFileDialog1.InitialDirectory = "c:\" openFileDialog1.Filter = "XLS Files (*.xls)|*.xls|XLSX Files (*.xlsx)|*.xlsx|All files (*.*)|*.*" openFileDialog1.FilterIndex = 1 openFileDialog1.RestoreDirectory = True If (DialogResult.OK) […]

数据到Excel中的VB.NET

当我想从vb.net中的数据创buildExcel文件时遇到问题。 代码如下所示。 Dim Data(10, 10) As Integer Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlBook As Microsoft.Office.Interop.Excel.Workbook Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet Data(0, 0) = 1 Data(0, 1) = 2 Data(0, 2) = 3 Data(1, 0) = 4 Data(1, 1) = 5 Data(1, 2) = 6 xlApp = GetObject("", "Excel.Application") xlBook = xlApp.Workbooks.Open("D:\data excel.xls") xlSheet = xlBook.Worksheets("Sheet1") xlApp.Visible […]

将数据从Excel导入到SQL Server 2008

我正在使用VB.Net的网站进行重新devise。 系统会从Excel 97-2003文件中获取相当一部分数据，这些文件由第三方上传，然后上传到SQL 2008.这是问题所在，上传的文件的扩展名为.P。 我已经使用下面的代码尝试获取数据并上传到数据库。 Dim xlApp As New Excel.Application xlApp.Workbooks.Open(Filename:=Server.MapPath("~/ExtractFiles/10-31-13.P")) xlApp.ActiveWorkbook.SaveAs(Filename:=Server.MapPath("~/ExtractFiles/10-31-13.xls"), FileFormat:=51) If Not xlApp Is Nothing Then xlApp.ActiveWorkbook.Close() xlApp.Quit() xlApp = Nothing End If PrmPathExcelFile = Server.MapPath("~/ExtractFiles/10-31-13.P") plmExcelCon = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + PrmPathExcelFile + ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1""") cmdLoadExcel = New System.Data.OleDb.OleDbDataAdapter("select * from [10-31-13]", plmExcelCon) Dim dt As System.Data.DataTable dt = New […]

Visual Studio – 使用资源中的Excel工作簿

我在vb.net程序中遇到问题。 我试图创build一个应用程序，用户将数据插入到窗体中，当单击该button时，应用程序将数据插入到Excel工作簿中。 我希望excel工作簿保留在应用程序中，所以我将其添加为资源，但是当我尝试使用以下代码打开它时： Dim sPath As String = My.Computer.FileSystem.GetTempFileName My.Computer.FileSystem.WriteAllBytes(sPath, My.Resources.exceltemplate, False) 应用程序不会将“exceltemplate”（我已经添加为资源）识别为资源。 我该如何解决？ 有另一种方法去做我想要的吗？

打开Xml Excel“Excel在<文件>中发现不可读的内容。 恢复这个工作簿的内容？“在Excel文件VB.Net写入后

在使用Open XML在excel文件中写入数据后，出现错误 错误是“Excel中发现无法读取的内容。是否要恢复此工作簿的内容？ 这里是我用于使用Open XML读取/写入Excel文件的代码片段。 代码的一部分来自MSDN站点。 Private Function GetWorksheetPartByName(sheetName As String) As WorksheetPart Dim sheets As IEnumerable(Of Sheet) = _document.WorkbookPart.Workbook.GetFirstChild(Of Sheets)().Elements(Of Sheet)().Where(Function(s) s.Name = sheetName) If sheets.Count() = 0 Then ' The specified worksheet does not exist. _logger.Error(String.Format("Worksheet {0} not found in {1}", sheetName, _fileName)) 'Throw New Exception(String.Format("Worksheet {0} not found in {1}", sheetName, _fileName)) […]

错误：使用EPPLUS DLL导出到Excel时未定义types“ExcelPackage”

我是新的Windows窗体，我有一个要求导出到Excel的DataTable。 我发现我需要在我的机器上安装Microsoft Office来使用Microsoft.Office.Interop.Excel但我没有安装。 我遇到了EPPLUS。 我下载并在我的项目中添加了对dll的引用。 但问题是，它仍然显示我的错误。 我用Imports OfficeOpenXml但这个给我一个错误。 当我再次添加引用时，错误消失， ExcelPackage （我得到错误获取颜色，任何关键字相同）。但是，当我构build应用程序或运行该应用程序它再次给我同样的错误。 using (ExcelPackage pck = new ExcelPackage(newFile)) { ExcelWorksheet ws = pck.Workbook.Worksheets.Add("Accounts"); ws.Cells["A1"].LoadFromDataTable(dataTable, true); pck.Save(); }

当打印额外的白纸是通过发送！ 为什么？

在VB.net中得到这个algorithm，它操作和打印一个Excel文档，但每次我打印我得到一张额外的纸张之前，我想打印的文件！ Excel表格上没有额外的页面或类似的东西！ 任何人都可以发现为什么在这个代码或有人知道为什么吗？ 谢谢 Sub Cmd_PrintClick(sender As Object, e As EventArgs) 'print 1 page printDocument.PrinterSettings.Copies = 1 'print document (see Sub PrintDocumentPrintPage below …) printDocument.Print End Sub Sub PrintDocumentPrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs) Dim oApp As New Excel.Application Dim oWB As Excel.Workbook = oApp.Workbooks.Add() Dim oWS As Excel.Worksheet = CType(oWB.Worksheets(1), Excel.Worksheet) Dim oRng1 As […]

在用户窗体中打开应用程序

Scott Beeson曾经在这里发布了以下代码来激发用户表单中的应用程序： Public Class Form1 Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Private Const WM_SYSCOMMAND As Integer = 274 Private Const SC_MAXIMIZE […]

GetOleDbSchemaTable返回空数据表

我想从Excel文件中获取表名。 我正在使用使用下面的代码。 但它返回的空数据表。 我在VB.NET（框架版本2）工作。 请检查我的代码，并提供给我的想法。 Private Sub GetExcelSheetNames(ByVal fileName As String) Dim strconn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";" Dim conn As New OleDbConnection(strconn) conn.Open() Dim dtSheets As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) Dim drSheet As DataRow For Each drSheet In dtSheets.Rows Console.WriteLine(drSheet("TABLE_NAME").ToString()) Next conn.Close() End Sub

Excel工作表名称错误

Dim xl As New Excel.Application Dim xlBook As Excel.Workbook = xl.Workbooks.Open(myExcelFileName) Dim xlSheet As Excel.Worksheet = xlBook.Sheets("Sheet1") 所以我有上面的代码打开excel文件后来执行一些操作，问题是sme页包含空间中的名称例如“sheetx” 当试图读取表格Dim xlSheet As Excel.Worksheet = xlBook.Sheets（“Sheet1”） 它捕获一个错误HRESULT 0x8002000B