Tag: vb.net 2010

两个Excel表格到一个logging集

我可以成功地将数据从一个Excel工作表放入logging集中，我们将其称为rs ，但是我无法解决如何附加rs以将数据从另一个Excel工作表添加到logging集中。 这甚至有可能吗？ 我搜查了一下，有人说这不是。 这些工作表在同一个工作簿中。 有什么我可以… "SELECT * FROM [Sheet1$A4:BM7]"和"SELECT * FROM [Sheet2$A4:BM7]"在一个查询中导致一个RecordSet？ 提前感谢您的意见！ 编辑： 这两个工作表的第一个字段是一个ID，所以我想的东西就像… "SELECT * FROM [Sheet1$A4:BM7] JOIN [Sheet2$A4:BA7] ON A_ID = A_ID") 但没有任何成功。 首页字段： A_ID是第一个…大约25个人 第二张的字段： A_ID是第一个…大约30个其他人 我希望我的logging集包含A_ID以及从第一张和第二张相应的55个其他人。

VB.net Excel.worksheet（）。cells（）。Value

试图写在Excel工作表中的信息但有一些奇怪的问题;）我看了谷歌信息，但没有结果..所以plz帮助） 我添加引用Microsoft.excel 14.0对象库，也导入Microsoft.Office.interop 我需要从特定单元格获取值，所以我使用命令Checker = shXL.cells（1,1）。 在这里我没有价值….我只得到这个（Equal / GetHashCode / GetType / toString）所以问题是为什么我没有（.Value）的.cells和哪里是一个错误 Dim appXL As Excel.Application Dim wbXL As Excel.Workbook Dim wbsXL As Excel.Workbooks Dim shXL As Excel.Worksheet Dim Checker As Integer appXL = CreateObject("excel.application") appXL.Visible = True wbsXL = appXL.Workbooks wbXL = wbsXL.Open("D:\Некорректные Переключения\Base.xlsx", , , , 12121) shXL = wbXL.ActiveSheet Checker = […]

如何使用VB.net将Excelparameter passing给用户定义的Excel公式？

在vb.net中，我想在Excel中select4个单元格，然后将这些单元格值和1个button标记一起传递给Excel中的公式。 我按下一个月份的button，说“五月”作为文本。 我想在Excel中抓住一个单元格，标记为“May1t”，其值是可能的小时数。 这是我正在使用的代码。 xlsWB.Worksheets（2）.Range（Month1＆“1t”）。Value 我可以用这个值来设置一个variables，但是， 我想通过这个单元格（这将更新作为时间倒计时）和3个其他类似指定的单元格与button标签到Excel公式。 我有这样的东西： Private Sub F_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F.Click xlsWB.Worksheets(4).Range("B2").Formula = "=MyFunction()" xlsWB.Worksheets(1).Range(Month1 & "1t").Select() End Sub 该公式按以下顺序获取参数：MyFunction（Cell，Tag，Cell，Cell，Cell）。

VB.Net，修改现有的Excel而不是replace，并正确closures呼叫

我一直在研究和testing这个问题三天。 我尝试过在其他网站上看到的代码变体，以及我在这里find的变体代码。 我已经看了以下网站的灵感： 在Excel中追加数据 ; 如何在Excel中追加 ; 转移到Excel的方法 ; 在VB网上使用Excel ;以及其他一些网站。 我有几个问题想要在第一个程序中解决。 有了上述工具，我学会了validation用户input并将其应用于Excel工作簿。 但是，每次在尝试创build分辨率时进行更改后进行debugging时，Excel总是询问是否要replace现有文件。 我不。 我想添加从运行程序的每个实例中检索到的数据，并replace以前的数据。 如何在不replace现有工作簿的情况下添加新数据？ 感谢您的时间，考虑和任何build议。 Imports Excel = Microsoft.Office.Interop.Excel 公共类frmLocationECS 'Launches the first stage of the tracking process and removes four characters of the word item to populate the labels with the correct parts at each location. Private Sub frmLocationECS_Load(sender As Object, […]

从新线程处理ExcelDnaUtil.Application

我正在使用ExcelDNA来开发一个XLL。 其中，我有一个生活在一个DLL中的表单，我通过“ExcelDnaUtil.Application”作为成员，以促进表单和运行XLL的Excel实例之间的交互。 如果我使用以下命令在主线程中启动表单： form1.show() 当我closures表单然后closuresExcel时，Process Explorer显示Excel进程已妥善处置。 如果我使用新线程启动表单： Dim workerThread As Thread workerThread = New Thread(Sub() form1.showdialog()) workerThread.Start() 当我closures表单然后closuresExcel时，该进程仍保留在Process Explorer中。 我一直小心不要在任何代码行中使用两个小数点，并在closures表单时将接口成员设置为“无”。 我没有使用“ReleaseCOMObject”，因为其他文章指出这是不好的做法。 问题：如何从一个单独的线程正确地处理Excel进程？

如何将具有多个工作表的Excel文件转换为一组TSV文件？

在下面的代码中，要添加到cconvert的附加clde excel文件与多张到Tsv文件。 注意：下面的代码转换一个excel文件到一张到Tsv.It不处理多张表的Excel表 Public Sub Main() Dim oExcel As Object Dim oBook As Object Dim sFileName As String Dim sFileNameOnly As String Dim sXlsPath As String Dim sTsvPath As String sFileName = CStr(Dts.Variables("User::Xls_File_Name").Value) sXlsPath = "H:\Xls_Files\" + sFileName sFileNameOnly = Path.GetFileNameWithoutExtension(sFileName) sTsvPath = "H:\Xls_Files\" + sFileNameOnly + ".Txt" oExcel = CreateObject("Excel.Application") oBook = oExcel.Workbooks.Open(sXlsPath) oBook.SaveAs(sTsvPath, […]

将导出的值（时间）从datagridview转换为excel

我有一个datagridview有大量的员工从表中检索的时间和超时logging。 现在我可以将数据从datagridview导出到Excel文件，但即时通讯有问题。 列时间和超时的时间格式是非常好的，像“9:00 AM”，但是导出到excel时变成“12/30/1899 9:00:00 AM”。 这也是我在datagridview中的第一个问题，但我使用DGV.Columns（1）.DefaultCellStyle.Format =“t”来解决这个问题。 有人教我

将图片和数据从一个excel文件复制到另一个excel文件

我有一个Excel文件，其中包含前五行的图片，然后开始数据。 我的工作是将文件复制到另一个excel文件中。 首先，我打开文件并复制使用的范围。 接下来我将这些内容粘贴到另一个excel文件中。 lobjCurrentWorkSheet.UsedRange.Copy() lobjTargetExcelWorkSheet.PasteSpecial(XlPasteType.xlPasteAll) 通过这样做，我只能复制数据，而不是图片？ 如何将文件复制到另一个？ 如果我使用SaveAs选项，如果源文件是密码encryption，那么我的目标文件也将被encryption，我不想要的密码。

用户打开Excel文件进​​行数据input后，在Windows中closuresExcel进程

程序打开Excels，读取工作表并填充每张工作表的数据。 对于打开的每个Excel来获取input数据，Windows进程列表中将会有一个Excel进程。 如果用户在运行期间随着时间的推移打开了许多Excels，将会有许多Excel进程在Windows中运行。 问题是，如果你去到一个文件夹，并试图打开一个以编程方式打开的Excel，它将只能被读取，因为在Windows中运行的Excel进程保留着它。 Windows中的每个Excel进程都需要终止才能释放每个以编程方式打开的Excal。 Imports Excel = Microsoft.Office.Interop.Excel ' Create new Application. Dim rXL As New Excel.Application Dim rWB As Excel.Workbook ' Dim rSheet As Excel.Worksheet Dim rRng As Excel.Range Dim buffmatrix(,) As Object rWB = rXL.Workbooks.Open(filename) Dim sheet As Excel.Worksheet For i = 1 To rWB.Sheets.Count To 1 Step -1 ' Get sheet. […]

检查Excel文件表中缺less的列

我有一个ssis包，它需要一个excel文件并导入它，但如果工作表中的任何列丢失，则导入失败。 我试图写一些代码来检查工作表中的列标题，以确保它包含列的集合列表，它不需要检查是否存在正确的顺序，只要它们存在。 我到目前为止的代码如下 Dim strFile As String strFile = Dts.Variables("User::found_file").Value.ToString Dim xlConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & _ strFile & ";Extended Properties=""Excel 12.0 XML;HDR=YES""" Dim xlConnection As New OleDbConnection(xlConnectionString) xlConnection.Open() Dim tablesInFile As DataTable = xlConnection.GetSchema("TABLES") Dim currentTable As String Dim columnsInTable As DataTable Dim columnRestrictions(3) As String Dim columnInTable As DataRow […]