Tag: vb.net

导出到Excel – 将DateTime列设置为Date: 我的应用程序中有导出到Excelfunction。程序本身没有问题，但是在导出数据时，它显示DateTime值为dd/MM/yyyy 00:00:00 ，在导入之前在DataGridView上显示它们时，在某些地方显示空单元格。我需要调整我的导出代码以删除数据的时间部分，并只显示date。当我在Excel中突出显示单元格时，我将它格式化为dd/MM/yyyy格式的“date”。我该如何编程？我的代码 Dim xlapp As Excel.Application Dim xlWorkbook As Excel.Workbook Dim xlWorksheet As Excel.Worksheet Dim misvalue As Object = Reflection.Missing.Value xlapp = New Excel.Application xlWorkbook = xlapp.Workbooks.Add(misvalue) xlWorksheet = xlWorkbook.Sheets.Add xlWorksheet.Name = "SupplierInformation" xlWorksheet.Cells.NumberFormat = "@" For k As Integer = 1 To dgvExport.Columns.Count xlWorksheet.Cells(1, k) = dgvExport.Columns(k – […]

Excel文件（来自DataGridView）不显示值为<1的“零”: 我正在将DataGridView导出到Excel文件。 DGV包含一个带有货币（€）的列，所以我使用此代码格式化Excel表格列： With xlSheet .Range(.Cells(1, C + 1), .Cells(1, C + 1)).EntireColumn.NumberFormat = "€ #,###,###.00" End With 但是，当我打开保存的Excel文件，如果值是<1（即0,25），我得到： 25欧元代替 €0.25 我该如何解决？

Vb.net Excel分类汇总到variables中: 我有Visual Basic应用程序，基于多年来创buildExcel表格，现在在每个Excel表格中都会有已经input到应用程序中的给定期间的小计。总的来说是这样创build的： oSheet.Range("F" & j + 1).Formula = "=SUBTOTAL(9,F" & summaryPosition & ":F" & j & ")" oSheet.Range("G" & j + 1).Formula = "=SUBTOTAL(9,G" & summaryPosition & ":G" & j & ")" oSheet.Range("H" & j + 1).Formula = "=SUBTOTAL(9,H" & summaryPosition & ":H" & j & ")" oSheet.Range("I" & j + 1).Formula = "=SUBTOTAL(9,I" […]

两个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个其他人。

读取一个以前没有读过的随机excel单元格: 我的程序给用户一个基于Excel文件的测验。问题以随机顺序出现。在Excel文件（n，3-7）的每一行中有5个可能的问题，答案总是在该行的第二个单元格（n，2）中。有135行，但前两行与问题无关。用户可以正确地回答问题，他们应该尽量在时限内回答尽可能多的问题，所以当时间到了时，用户将永远不会看到未经询问的问题。我需要帮助的问题是有一个难得的机会（665中的1）可以重复一个问题。我怎样才能防止这个？（另外，我对编程非常陌生）问题生成代码 Private Sub newquestion() 'New Question Randomize() row = CInt(rnd.Next(3, 135)) key = CInt(rnd.Next(3, 7)) lblgametype.Text = "Guess the answer from the hint" lblquestion.Text = worksheet.Cells(row, key).Value End Sub 检查答案的代码 Private Sub OnKeyDownHandler(ByVal sender As Object, ByVal e As KeyEventArgs) Handles txtanswer.KeyDown 'Prevent that annoying ass windows […]

对于循环忽略ELSE存在时的真IF条件: 在循环体中存在一个ELSE条件时，看起来我有一个让我的For循环确认我有一个True IF条件的问题。这是我写的： Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'TEST FIND/SEARCH FEATURES Dim String2Find As String = txtCPUSerial.Text Dim ColumnNumber As Integer = 1 'Access the worksheet Dim xlApp As Excel.Application xlApp = CreateObject("Excel.Application") xlApp = GetObject(, "Excel.Application") Dim xlWB As Excel.Workbook = xlApp.Workbooks.Open("C:\Users\Machine\Desktop\DocDirectory\MyDoc.xls") Dim xWS As Excel.Worksheet xWS = xlWB.Worksheets("Sheet1") […]

Excel进程的打开/closures实例仍在后台运行: 我创build了一个提取excel在我的vb.net applicatino。我写数据，保存，然后询问用户是否打开它。问题是，如果他们select不查看它 – excel正确closures并且不在进程中运行 – 但是，当我在excel中查看并closures它时，它仍然在WTM进程中运行。这是我的代码… Dim FileNam As String = "C:\Me\" & ReportName & Format(DateTime.Now, "yyyyMMddhhmmtt") & ".xlsx" If System.IO.File.Exists(FileNam) Then System.IO.File.Delete(FileNam) End If wBook.SaveAs(FileNam) answer = MsgBox("Your extract has been saved here: " & strFileName & vbCrLf & vbCrLf & "Would you like to view the file?",vbYesNo) If answer = […]

VB.Net：格式化形状: 目标：填写形状并更改/删除其边框。问题：它被填充的颜色变得相反要求（要求红色，它充满蓝色）。 myColor = System.Drawing.Color.Blue Dim theShape As Microsoft.Office.Interop.Excel.Shape = xlWorkSheet.Shapes.AddShape(MsoAutoShapeType.msoShapeRectangle, (xlWorkSheet.Cells(theRow, theColumn)).Left, (xlWorkSheet.Cells(theRow, theColumn)).Top, 25, 14) theShape.Fill.ForeColor.RGB = myColor.ToArgb() 此外，为了改变边界，我发现这… https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.powerpacks.shape.bordercolor.aspx 。我经历了安装PowerPacks并添加Imports Microsoft.VisualBasic.Powerpacks的过程，但它仍然没有给我改变我的形状边框颜色的能力。还有什么我需要做的吗？ theShape.borderColor = myColor.ToArgb 任何和所有的帮助，非常感谢！

在VB.net中使用什么名字空间: 编写一个vb.net脚本（作为SSIS ETL的一部分）将xls转换为tsv文件。我试图使用名称空间Imports Microsoft.Excel来包含下面的代码。但是，它显示没有这样的名称空间！什么名称空间被包含在使用Excel打开closures并保存为function的一部分的vb.net oExcel.Workbooks.Open oBook.SaveAs（sTsvPath，-4158） vb.net代码是 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") […]

禁用Excel保存更改提示: 我已经尝试了所有的方式，我通常这样做，我可以findsearch。 oxl.DisplayAlerts = False不起作用。我仍然被问到是否要保存更改。我本质上是试图使用Excel表格作为模板。完整的脚本导出到pdf，但这足以重新创build问题。顺便说一句我试着将它保存为一个xltx文件（模板），仍然得到保存promt。 Dim oxl As New Excel.Application Dim apppath2 As String = My.Application.Info.DirectoryPath.ToString Dim mywb As Excel.Workbook = oxl.Workbooks.Open(Filename:=apppath2 & "\fuse template.xlsx", [ReadOnly]:=True) oxl.Visible = False Dim mysheet As Excel.Worksheet = mywb.Sheets(1) mysheet.Cells(10, 5) = l_region.Text mysheet.Cells(11, 5) = comb_emc_name.Text oxl.DisplayAlerts = False mywb.Close(False) mysheet = Nothing mywb = […]