Tag: vb.net

MS Access的OLEDBConnection Excel问题

所以我已经search了大约2天了，虽然我可以find很多关于如何将Excel工作表放入GridView的例子，但是没有一个适用于我。 这是我的目标：我需要读取一个Excel文件，其中有一个工作表，它应该始终是一个工作表，在ASP.NET网站中的一个GridView和我使用VB.Net代码后面的文件。 我尝试了一种方法，试图使用表名的Schema（为了获得表名），但是不pipe表的名字是什么，它总是以“Algrip”的forms返回，其中任何一个工作簿中都没有这个名字的表我用一个testing。 所以我放弃了这一点，现在正在使用这个代码：（哪个工作完成，有点） 'Setup Variables Dim xlConnStr As String = "" Dim FileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName) Dim Extension As String = Path.GetExtension(FileUpload1.PostedFile.FileName) Dim FolderPath As String = ConfigurationManager.AppSettings("FolderPath") Dim sheetname As String = InputBox("Enter Sheetname: ", "Excel Worksheet name") 'Adjust Sheetname sheetname = sheetname + "$" 'Set Connection based on Excel File Extension […]

从Datatable下载xls文件到客户端

我正在使用VB开发VisualStudio上的网站。 在我的网站的一部分，我做了一个数据库查询，将结果存储在一个数据表中，并显示它。 我给用户下载信息的选项，我想要做的是用数据表中的信息下载XLS文件到客户端，而不用在服务器端创buildxls。 我目前有以下代码部分将文件发送给用户 Dim fileToDownload = Server.MapPath("~/docs/QuejometroVF.pdf") Response.ContentType = "application/octet-stream" Dim cd = New ContentDisposition() cd.Inline = False cd.FileName = Path.GetFileName(fileToDownload) Response.AppendHeader("Content-Disposition", cd.ToString()) Dim fileData = System.IO.File.ReadAllBytes(fileToDownload) Response.OutputStream.Write(fileData, 0, fileData.Length) 但它需要一个path到本地文件才能发送它。 首先，我想知道如何从数据表（只在内存中）创build一个xls文件，然后将该对象作为文件发送到客户端的计算机。 如果这是不可能的，你能告诉我如何写在我的服务器x​​ls文件，所以我可以发送它使用上面的代码？ 我还没有真正想出如何去做。 我正在考虑这样做，因为我不想在服务器上保留文件，因为我已经拥有数据库上的这些信息，而且我不会假装保留这个文件。 谢谢

VB.Net快速打印Excel模板

我正在使用VB.Net ERP应用程序，用于修改客户，产品，库存详细信息和计费产品。 要打印帐单，我使用了预定义的Excel模板。 点击打印button后，只需打开Excel并使用Excel对象传递值，之后就会从应用程序背景中打印活动工作表，而后者不知道这个过程。 打印时，我正面对着慢，完成整个打印操作需要大约1或2分钟时间。 我正在使用下面的代码： Private Function WriteDetailsInfileDOS(BillNumber As String, BillType As String, PrintCopy As Integer) As Boolean 'Define your Excel Objects Dim xlApp As New Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Try Select Case BillType 'Opens Source Workbook. Change path and filename as applicable Case "KAS" xlWorkBook = xlApp.Workbooks.Open(AppDomain.CurrentDomain.BaseDirectory.Replace("\bin\Debug", "") […]

如何修剪空格

我有这样的Excel文本： 120 124569 abasd 12345 左右两边都有空隙。 我从Excel复制并粘贴为文本。 当我检查这个，当我点击button时显示这样。 码： abArray= abArray & "," & gridview1.Rows(i).Cells(2).Text For k = 3 To 17 bArray= abArray& "," & Val(gridview1.Rows(i).Cells(k).Text) Next 在这里显示为： 0, abasd ,12345,0,0,0,0,0 我想从左侧和右侧删除/修剪空格。 我已经尝试过abArray.Trim()但是这仍然显示空格。

在特定的Excel文件上打开一个特定的表。 与GemBox

你能帮我如何链接VBA中的特定工作表与GemBox？ 我已经安装了gembox电子表格和gembox winform工具。 有没有其他的方式来连接Excel和VBA，而不使用Gembox？ 我已经尝试了几个例子，但是它有太多的错误，我甚至不知道如何解决这个问题。 Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet.WinFormsUtilities Imports System.Data.OleDb Public Class Form1 Public Sub New() SpreadsheetInfo.SetLicense("FREE-LIMITED-KEY") InitializeComponent() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim openFileDialog = New OpenFileDialog() openFileDialog.Filter = "XLS files (*.xls, *.xlt)|*.xls;*.xlt|XLSX files (*.xlsx, *.xlsm, *.xltx, *.xltm)|*.xlsx;*.xlsm;*.xltx;*.xltm|ODS files (*.ods, *.ots)|*.ods;*.ots|CSV files (*.csv, *.tsv)|*.csv;*.tsv|HTML […]

VB.net没有提示用户下载使用Response.Flush

我试图让用户使用工作簿/工作表对象下载在VB.net中创build的Excel文件。 excel文件的创build完成，但下一个是允许用户下载它，当他们点击一个button。 我已经使用Response编码了我所期望的方法，但是当我单击button时，下载事件（在Chrome / IE上testing）不会发生。 就好像我从来没有按下button，但它在debugging过程中通过代码运行。 Protected Sub btnMatrixSummary_Click(sender As Object, e As System.EventArgs) Handles btnMatrixSummary.Click Dim refNum As Integer = employee_LB.SelectedValue Dim xlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application() Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") xlWorkSheet.Cells(1, 2) = "1. Displays High […]

SSIS VB.net脚本任务格式化Excel工作表将不会运行

DTS声明被加下划线，因为它们不被识别。 这是一个较旧的生产服务器，所以我们犹豫不决安装，但似乎缺less一些东西。 SQL 2008R2和SQL 2012，VS 2010，Excel 2013，Server 2012 R2。 #Region "Imports" Imports System Imports System.Data Imports System.Math Imports Microsoft.SqlServer.Dts.Runtime Imports System.IO Imports System.Data.OleDb #End Region Public Class ScriptMain Public Sub Main() Dim fileToTest As String fileToTest = Dts.Variables("ExcelFile").Value.ToString If File.Exists(fileToTest) Then Dts.Variables("ExcelFileExists").Value = True Else Dts.Variables("ExcelFileExists").Value = False End If Dts.TaskResult = ScriptResults.Success End Sub […]

vb.net Excel：获取图表分类名称的问题

出于某种原因，我需要我的图表的类别名称。 这是我到目前为止： xlWorkbook = xlApp.ActiveWorkbook Dim wsnat As Excel.Chart = TryCast(xlWorkbook.ActiveChart, Excel.Chart) If Not wsnat Is Nothing Then Dim axxxis As Excel.Axis = DirectCast(wsnat.Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary), Excel.Axis) Dim areyoukiddingme As Object = axxxis.CategoryNames Dim arr As Array = DirectCast(areyoukiddingme, Array) For q As Integer = 0 To arr.GetUpperBound(0) Debug.Print(arr(q).ToString) ' HERE, the array 'arr' has two […]

将Excel工作簿保存为HTML在Windows 10中不起作用

将Excel工作簿保存为HTML在Windows 10中无法正常工作。在Windows 7中工作正常。 码： Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim xlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application() Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") xlWorkSheet.Cells(1, 1) = "Sheet 1 […]

使用特定值从sql导入许多行

我正在写一个应用程序在VB.NET中，我正在寻找最有效的方式从SQL表中导入大量的数据。 我在Excel中有大约10k行，而且我必须将每一行与特定的SQL表行（大约100k条logging）进行匹配。 每行有三列，共同识别特定行。 我的意思是2行不可能在所有3列中有相同的值，我想用这些作为匹配的关键。 我不知道什么是最有效率的技术，因为我认为像“select … where [3 conditions]”这样的陈述可能会大大减慢我的应用程序的速度。 感谢您的任何build议