Tag: vb.net

等待函数结束VB

我开始一个ne项目,在VB中。 我有一个问题。 所以也许我不明白逻辑 – 你能解释一下吗? 在我的函数Feuil1_BeforeDoubleClick我想等待Button1_Click结束。 但我不知道如何做到这一点。 以下是相关的代码: 我的Sheet1 : Imports System.Threading.Tasks Imports Microsoft.Office.Interop.Excel Public Class Feuil1 Friend actionsPane1 As New ActionsPaneControl1 Public list As String Public Sub Feuil1_BeforeDoubleClick(Target As Range, ByRef Cancel As Boolean) Handles Me.BeforeDoubleClick If Target.Column <> 1 Then If Target.Row = 16 Then Globals.ThisWorkbook.ActionsPane.Controls.Add(actionsPane1) Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True 'marche pas SendKeys.Send("{ESC}") ' […]

VB.Net – 缓慢读取Excel文件中的数据

我一直在试图写一个可以从Excel文件中读取数据的程序。 经过几个小时的努力,终于可以工作了。 不过,我注意到它的运行速度非常慢,特别是当涉及到大量的行和列时。 尝试在我的其他电脑只是为了检查也许这是一个个人电脑的问题,但不幸的是,其他人也肯定是缓慢的。 有什么我需要改变或删除或添加? 这是我的代码: Public Sub LoopExcel() Dim colfrom As Integer = Asc(txtColFrom.Text) Dim colto As Integer = Asc(txtColTo.Text) Dim rowfrom As Integer = Integer.Parse(txtRowFrom.Text) Dim rowto As Integer = Integer.Parse(txtRowTo.Text) For rowindex = rowfrom To rowto For colindex = colfrom To colto Dim str As String = OpenExcelGetData(txtFileName.Text, rowindex, Convert.ToChar(colindex)).ToString Console.WriteLine(str) Next […]

Excel Styles.xml应该是什么样子 – OpenXML

我正在生成一个大型的Excel文件,我试图使数据的标题加粗。 如果我注释掉所有的CellFormat代码并创build电子表格,那么文件将正确创build,但如果我不注释行,那么Excel会给我一个错误: Repaired Records: Format from /xl/styles.xml 。 (很明显,我点击Yes来修复文件。) 这是我的代码看起来像: Public Function Create_Spreadsheet_Stylesheet(ByRef stylePart As WorkbookStylesPart) As WorkbookStylesPart Dim font1Id As UInt32Value, font2Id As UInt32Value Dim font1 As New Font With { .FontName = New FontName With {.Val = "arial"}, .FontSize = New FontSize With {.Val = 9} } Dim font2 As New Font With […]

vb.net:如何检索编辑后的combobox元素的索引?

您好我正在使用visual basic编写一个程序,将编辑数据库的内容。 用户可以input他们想要更改的内容,然后程序将在数据库中覆盖此内容。 除了编辑combobox的内容之外,这一切都可以正常工作。 当我尝试然后检索combobox中编辑的索引时,我得到-1。 如果这没有意义,那么我的代码如下: Sub DatabaseWriteSpecific(array, filePath, row) Dim objExcel As New Excel.Application Dim objWorkbook As Excel.Workbook Dim objSheet As Excel.Worksheet objWorkbook = objExcel.Workbooks.Open(filePath) 'opens specified database objSheet = objWorkbook.Worksheets(1) For i As Integer = 1 To array.length objSheet.Cells(row, i).value = array(i – 1) 'adds each user input to database Next objWorkbook.Save() 'saves […]

杀死最后在任务pipe理器vb.net中创build的Excel实例

你能帮我解决我的问题吗? 我有几个Excel实例打开(任务pipe理器EXCEL.EXE),我想杀死最后打开的实例。 现在我可以杀死一审,但我想杀死最后一个: Sub Main() Dim dictExe As Object dictExe = CreateObject("Scripting.Dictionary") Dim oServ As Object Dim cProc Dim oProc As Object oServ = GetObject("winmgmts:") cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc If oProc.Name = "EXCEL.EXE" Then dictExe.Add(oProc, oProc.CreationDate) End If Next For Each oProcCatia In dictExe If oProcCatia.Name = "EXCEL.EXE" […]

Windows服务不启动 – Excel – 邮件互操作

我的Windows服务将无法启动。 正确安装没有错误,现在它不会启动。 标准的UI消息 该服务没有及时响应启动或控制请求。 我的服务使用Excel.Interop创build.xls文件并将其转换为PDF。 然后使用System.Net.Mail将.pdf发送出去 是否有任何日志文件找出它为什么不能? 注意:在debugging模式下一切正常,但一旦安装不起作用Realese.exe不能正常工作

我怎样才能将两个excel列在导入到数据库?

我想在excel中结合date和时间列,并使用sqlbulkcopy将其映射到数据库中的一列。 我收到一个错误: date] [时间不匹配任何列映射 看到我下面的示例代码。 任何想法如何做到这一点,而不复制到数据表? Dim sSourceConstr As String = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties=""Excel 12.0 Xml;HDR=YES;""", sPath) Dim sDestConstr As String = ConfigurationManager.ConnectionStrings("SolCards").ConnectionString Dim sSourceConnection As New OleDbConnection(sSourceConstr) Using sSourceConnection Dim sql As String = String.Format("Select [Customer Cod],[Customer],[PAN],[Vehicle],[Date],[Station],[Driver],[Authorized],[Product]" & ", [Pump], [Tran No], [Odo], [Metric], [UPrice], [Qty], [Amount], [TimeFormat] FROM [{0}$]", "trans") Dim command As […]

将DateTime.Now转换为在设置图表的最小比例尺时友好的值

我有一些在Excel中创build图表的代码。 x轴是date格式,并且作为标准的excel设置,在数据启动之前,自动缩放总会留下很大的空隙。 为了解决这个问题,我希望我的第一个date值是第二个时间,并将其设置为.MinimumScale,但是我遇到了问题,无法将其转换为正确的格式。 例如,现在的DateTime.Now值是14/12/2017 14:25,而excel中的数字是43083.60。 我认为(虽然我不是100%肯定)我需要这个价值input到我的.MinimumScale With chartPage.Axes(Excel.XlAxisType.xlValue) .HasTitle = True .AxisTitle.Caption = "Time (Days)" .hasminorgridlines = True Dim date1 As String date1 = DateTime.Now.ToString MessageBox.Show(date1) .MinimumScale = date1 谢谢

MS Excel与vb.net连接

我已经使用了下面的连接string,但是在尝试创build表时出现错误 Dim ConnString As String =“Provider = Microsoft.ACE.OLEDB.12.0; Data Source =”&strFName + _“; Extended Properties =”“Excel 12.0 Xml; HDR = YES; IMEX = 1”“” 不能修改表'tablename'的devise。 它在一个只读数据库中。

从访问excel缓慢导出

我必须从访问数据库中生成大约800个excel文件。 对于他们的前10-15它工作很好,几秒/ Excel文件,但它不断需要更长的时间,在第150届Excel文件需要10分钟。 这是我的代码: 它正在访问表中的每个nrliste(约800个) Dim lista = From ls In Liste _ Where ls!Concatenare = nrliste(i) _ Select ls Dim table = lista.CopyToDataTable Dim DataArr(table.Rows.Count, 30) For x = 0 To table.Rows.Count – 1 For y = 0 To 30 DataArr(x, y) = table.Rows(x).Item(y) Next Next Dim filetocopy As String Dim newcopy As String […]