Tag: vb.net
在Excel中清洁代码？
作为一名前程序员，我喜欢清洁，可维护和文档化的代码。 作为一名项目经理，我不得不不时地做出复杂的卓越，并且想用我编写程序的方式来写“干净”的公式。 （How）我可以将“注释”添加到（多行）公式中吗？ （如何）我可以“命名”一个（细胞相关）公式并重用它？ （例如用参数写成vb（甚至f＃）函数） 例1：而不是 =IF(AND(L$11+(L$13-1)*7>=$C15;L$11+(L$13-1)*7<$D15);VLOOKUP($A15;RessourcePlan;12+$E15;WRONG);0) 我想写： // check if this columns (L) date is inbetween startdate (Col C) and enddate (Col D) =IF (AND(L$11+(L$13-1)*7>=$C15;L$11+(L$13-1)*7<$D15); // then select the the utilisation (12+E15) for the resp. team from the resource plan VLOOKUP($A15;RessourcePlan;12+$E15;WRONG); // else default to 0 0 ) //ENDIF 而不是example1，我可能会写一个用户定义函数（UDF） Function Utilization(thisDate As Date, […]
以编程方式将XML文件读入工作簿
我想读取各种types的XML文件到Excel中，以便用户可以进行分析和报告。 我可以手动执行此操作（文件|打开，select文件，select作为只读工作簿），但此代码给我一个错误： Dim oExcel As New Excel.Application Dim oBook As New Excel.Worksheet oExcel = CreateObject("Excel.Application") oBook = oExcel.Workbooks.OpenXML(readFiles.Item(thisFile), , LoadOption:=1) 错误是 GFF Translator.exe中出现未处理的types为“System.InvalidCastException”的exception 其他信息：无法将“System .__ ComObject”types的COM对象转换为“Microsoft.Office.Interop.Excel.Worksheet”types的接口。 此操作失败，因为具有IID“{000208D8-0000-0000-C000-000000000046}”的接口的COM组件上的QueryInterface调用由于以下错误而失败：没有此类接口支持（exception来自HRESULT：0x80004002（E_NOINTERFACE）） 。 XML可以采用不同的格式，但包含许多节点，然后是一系列员工节点。 我的（截断）例子看起来像这样 我的testing有限公司testing我的testing有限公司（无）17 MR .. MR .. MR .. 或这个： <?xml version="1.0" encoding="UTF-8"?> <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope"> <EnvelopeVersion>2.0</EnvelopeVersion> <Header><MessageDetails><Class>HMRC-PAYE-RTI-FPS</Class><CorrelationI <SenderDetails><IDAuthentication><SenderID>PRODUCT</SenderID></IDAuth </Header> <Body><IRenvelope xmlns="http://www.govtalk.gov.uk/taxation/PAYE/RTI/ <FullPaymentSubmission><EmpRefs><OfficeNo>123</OfficeNo><PayeRef>ABC1 <Employee><EmployeeDetails><NINO>AA112233D</NINO><Name><Fore>AILEEN.. <Employee><EmployeeDetails><NINO>BB112233D</NINO><Name><Fore>BEATA… <Employee><EmployeeDetails><NINO>CC112233D</NINO><Name><Fore>CERYS… </FullPaymentSubmission></IRenvelope></Body></GovTalkMessage> 我真的只需要提取员工数据，所以也许有一个更简单的方法来做到这一点？ […]
如何使用应用程序级加载项对单个Excel实例的Ribbon元素进行更改？
我正在使用VSTO和VB.NET for Excel 2013.我正在开发一个应用程序级外接程序，但是我不能让两个不同的工作簿存储不同的“function区状态”。 例如，当我想启用一个button时，我使用下面的代码： Globals.Ribbons.Ribbon1.myButton.Enable = False 这使得在每个打开的工作簿上禁用元素“myButton”，但是我只想为其禁用一个工作簿。 我现在的做法是处理事件WorkbookActivate，以更改function区状态。 问题是：这样，用户在其他不在顶部的工作簿中看到无效状态。 有一些更好的解决方法？ 没有办法pipe理function区实例（而不仅仅是像我这样做的全局元素）？ 谢谢
麻烦在ASP.Net中的“Microsoft.ACE.OLEDB.12.0”
我有两个应用程序使用Microsoft.ACE.OLEDB.12.0提供程序在同一台计算机上打开Excel文件。 一个例程是ac＃编译的应用程序，工作正常..另一个是一个非编译的asp.net应用程序，使用vb代码，我们正在尝试重新托pipe，抛出“Microsoft.ACE.OLEDB.12.0”提供程序没有在本地机器上注册。 打开Excel文件时出现错误 – 这在我看来是假的，因为其他应用程序在同一台机器上运行良好。 我已经检查了两个应用程序池，他们似乎设置相同…他们都有32位检查，并使用相同的.Net框架版本。 他们两个web.config具有相同的连接string相同的选项（唯一的区别是连接的名称）..我们甚至重新安装了DLL。 我试图将该dll复制到aspnet应用程序的bin文件夹，但没有运气那里。 我会编译的asp.net应用程序，除了它的输出的一部分使用ColdFusion …我希望有人在那里已经遇到这个特定的问题，并可能有一些指针在哪里看来解决这个问题..或者也许是一个不同的方向？
用列名填充combobox
我有一个应用程序在vb.net文件Excel 首先，我有一个“浏览”button，打开Excel工作簿。 其次，我有一个button“获取工作表的名称”，它给了我在一个combobox1中的工作表的名称，然后我select工作表。 然后我有一个其他的button“获取列名”给我在一个combobox2表中的列的名称。 当我select列的名称新的工作表添加命名列的名称，并具有该列的数据 我想要的是： 当我从combobox1中select另一张纸时，combobox2将会刷新新的纸张的新列名称 Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Chargement_de_données.xlWorkSheet = CType(Chargement_de_données.xlWorkBook.Sheets(Chargement_de_données.ComboBox1.Text), Excel.Worksheet) Chargement_de_données.xlWorkSheet.Activate() Chargement_de_données.xlApp.Visible = True Dim key As String = CStr(DirectCast(ComboBox2.SelectedItem, KeyValuePair(Of Integer, String)).Key) Dim value As String = DirectCast(ComboBox2.SelectedItem, KeyValuePair(Of Integer, String)).Value DataGridView1.Visible = True Dim DoesSheetExists As Boolean = False For Each xs […]
我试图访问Excel文件导出到SQL数据库与ASP.NET和VB.NET，但得到以下错误
Microsoft Access数据库引擎无法打开或写入文件“”。 它已经由另一个用户专门打开，或者您需要查看和写入其数据的权限。 我试图从ASP.NET和VB.NET导入Excel文件，以将其更新到我的SQL服务器。 但我收到以下错误。 请给我一个解决scheme。 VB.NET代码。 Dim strConnection As [String] = "projectlist" Dim path As String = fileuploadExcel.PostedFile.FileName Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties=Excel 12.0;Persist Security Info=False;Mode= Share Deny None;Persist Security Info=False;Mode=12" Dim excelConnection As New OleDbConnection(excelConnectionString) Dim cmd As New OleDbCommand("Select [ID],[Name],[Designation] from [Sheet1$]", excelConnection) excelConnection.Open() Dim […]
按值键入字典并返回键的返回列表
下面的代码旨在检查Excel单元格的值，并返回仅包含值为唯一的单元格的List(Of Excel.Range) 。 带有问号的线是引起疼痛的线。 Private Function UniqueValues(ws As Excel.Worksheet) As List(Of Excel.Range) Dim listRanges As New List(Of Excel.Range) Dim dicValues As New Dictionary(Of Excel.Range, Object) For Each rng As Excel.Range In ws.UsedRange dicValues.Add(rng, rng.Value2) Next 'Get list of cells with unique values listRanges = dicValues.Keys.GroupBy(Function(x) x.Value2).ToList '???? dicValues = Nothing Return listRanges End Function 带有问号的行的正确代码是什么？ […]
在Excel和VB.Net之间input数据
创build一个应用程序来运行jar头查询。 查询使用Excel工作表的forms使用最终用户提供的input数据。 事先知道所需的input列数据types，我创build了types化的数据表对象。 如何从Excel导入时validation提供的数据是否正确input？ 我的查询似乎将数字数据转换为string，以适应我的types的数据表。 我不想要这个，我想在这种情况下抛出一个错误。 对于包含多种types数据的input列，查询也会将less数types转换为空值。 这样可以禁止types表中的空值， 除非查询经常返回几个额外的空值行，即使在正确types的input数据表中也是如此。 下面的代码…如何validationexcel数据严格遵循架构？ Dim strInputData As String = "Desktop\testfile.xlsx" Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strInputData & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";" Dim connection As New OleDb.OleDbConnection(strCon) Dim command As New OleDb.OleDbCommand command.Connection = connection Dim inputDataSQL As String = "Select [Member ID], [Carrier ID] from [Sheet1$]" […]
如何使用INPUT TEXT字段将数据从MYSQL获取到HTML表单以使用PHP填充一些数据以将其存储回数据库中的相应字段
这是我第一次问一个问题。 每次我得到解决scheme与以前的答案，我找不到任何解决scheme，我的问题。 在这里，我有一个名为“class_master”的mysql表中的数据，其中包含一些数据在一些多行的列中的数据 这里我们在课堂上有一些标题（栏目） 2. Class master id 3. Noun 4. Modifier_1 5. Modifier_2 6. Modifier_3 7. Sap_Class_id 8. Sap_Class_Description 9. Sap_Attribute_Description 10. Sap_Atrribute 11. Attribute_Description 12. Sequence 13. Total no of attributes 例如，如果项目是一个阀门。 – **HEADING** **Row data** – Noun :valve – Modifier1 : ball – Modifier2 :Metric – Modifier3 :– (N/A) – Sap_Class_id :ME_BA_VALVE […]
如何检索复杂的Excel文件与合并单元格，并保存为XML文件使用VB.NET？
我有这个可以检索excel文件并保存为xml文件。 Imports Microsoft.Office.Interop.Excel Imports System.Xml Imports System.IO Module Module1 Sub Main() Try Dim excel As Application = New Application Dim filename As String = "person" Dim file_extension As String Dim path As String = "C:\Users\" Dim w As Workbook Try file_extension = "xlsx" w = excel.Workbooks.Open(path & filename + "." & file_extension) Catch ex As […]
