Tag: vb.net

如何检索从远程PC使用VB.NET打开EXCEL文件名: 您好目前我有以下代码。它从进程中检索打开的excel文件的文件名并显示它。现在它可以从我自己的电脑检索到，但是当我想从其他电脑远程检索它，它不起作用。我已经授权访问，我实际上只能获得远程PC的进程ID和名称。 Dim w As Object Dim processQ As String Dim processes As Object Dim processA As Object Dim pname As String w = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & pc & "\root\cimv2") processQ = "SELECT * FROM win32_process WHERE name = 'EXCEL.EXE'" processes = w.execquery(processQ) For Each processA In processes activeprocess = Process.GetProcessById(processA.processid) MsgBox(processA.processid & processA.name) […]

types不匹配错误，在Excel VBA中声明范围variables: 这应该是一个简单的解决方法，但我已经search和search，不知道什么是错的。我得到一个“运行时错误13：types不匹配”： Dim rng As Range Dim endRW As Integer, endCol As Integer endRW = 30 endCol = 10 Set rng = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2,3),Sheets("Sheet1").Cells(endRW,endCol)) ^^^最后一行是导致错误^^^^

删除工作表并closures使用VB.net的Excel文件: 我创build的程序将从文本文件中收集工作表名称，并使用这些来删除用户所选工作簿中的工作表。我能够收集名称，以下删除例程也显示没有错误。 Try Dim sheetname As String = "" Dim indexcounter As Integer = 0 objExcel.DisplayAlerts = False For index As Integer = 0 To worksheet_remove.Length – 1 Step 1 sheetname = CStr(worksheet_remove(Index)) 'worksheet_remove is an array that has the stored excel sheets names. For Each ws In objWorkBook.Worksheets If ws.Name = sheetname Then ws.delete() […]

Infragistics Excel导入Loadoptions: Load-Method通过Infragistics组件加载Excel表单有两个错误。第一：指定的stream或文件不包含有效的工作簿。参数名称：文件名称这是因为Excel-Workbook已损坏。但是，如何加载工作簿而不validation它是否被破坏？第二：无效的URI：主机名不能被分析这是因为工作表中有超链接。如何在加载之前删除它们？我的代码： 'stuff… Dim file as String = "test.xls" xls = New Workbook() xls = Workbook.Load(file) 'stuff… 来自Infragistics的页面不是很有帮助： http : //help.infragistics.com/Help/Doc/WinForms/2012.2/CLR4.0/html/Infragistics4.Documents.Excel.v12.2~Infragistics.Documents.Excel.Workbook 〜负荷（stream）的.html

vb.net以隐形模式打开多个excel文件: 这是我的代码，打开多个Excel文件，根据他们的内容做一些计算。 Imports Microsoft.Office.Core Imports Microsoft.Office.Interop Module Module1 Sub Main() Dim xlApp As Excel.Application Dim wb1 As Excel.Workbook Dim wb As Excel.Workbook Dim w As Excel.Worksheet xlApp = New Excel.Application xlApp.Visible = True wb1 = xlApp.Workbooks.Open("E:\xls\f.xls") wb = xlApp.Workbooks.Open("E:\xls\b.xls") w = wb1.ActiveSheet End Sub End Module 这个代码运行，没关系，但我不想显示Excel应用程序，我取消注释设置xlApp.Visible=True的行， xlApp.Visible=True这个exception发生：在ConsoleApplication12.exe中发生未处理的“System.Runtime.InteropServices.COMException”typesexception 附加信息：服务器引发exception。（从HRESULTexception：0x80010105（RPC_E_SERVERFAULT））那么，我需要做什么？

将.csv文件导入到SSIS: 由于供应商最为人所知的原因，我被提供了ANSI和UTF格式的许多.CSV文件，这使我的平面文件加载过程变得混乱。基本上，我不能依赖每次都是一样的格式，虽然结构是一致的。所以我的问题是：我的平面文件进程有问题（UTF和ANSI）是否意味着我没有正确设置平面文件连接？我相信我已经确定了两种可能的解决scheme，但哪种解决scheme最好？按types拆分（ANSI vs UTF），如果是这样的话？将所有.csv文件转换为“excel”作为VB / C＃脚本任务的一部分？对于“excel”，请阅读其他常用格式。谢谢你的帮助。

VB.Net，利用Excel程序集，内存泄漏: 我的程序本质上是一个使用Excel程序集打开文件并将信息放入数组列表的表单。运行我的程序多次迭代后，我发现在任务pipe理器中，我仍然有多个excel文件打开，尽pipe它们隐藏在我的任务栏中。另外“系统和压缩存储器”每次占用更多的空间。我假设我没有正确地释放内存，但我不知道如何，我现在有： shXL = Nothing wbXl = Nothing appXL.Quit() appXL = Nothing 注意：shxl是工作表，wbxl是工作簿，appxl是应用程序。任何帮助，将不胜感激

将CSV导入到VB.Net时指定UTF8编码: 我从csv文件导入数据到我的vb.net应用程序。下面是我用来实现这个目前的代码： Dim myImportConnectionString As String = "provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & txtboxSelectFile.Text & "';Extended Properties=""Excel 8.0;IMEX=1""" Dim MyImportConnection As New System.Data.OleDb.OleDbConnection MyImportConnection.ConnectionString = myImportConnectionString MyImportConnection.Open() Dim myImportAdapterString As String = "select * from [" & mySheet & "$]" Dim MyImportCommand As New System.Data.OleDb.OleDbCommand(myImportAdapterString, MyImportConnection) Dim myImportDataAdapter As New System.Data.OleDb.OleDbDataAdapter(MyImportCommand) Dim myImportDataTable As New System.Data.DataTable myImportDataAdapter.Fill(myImportDataTable) dgvFirst.DataSource […]

奇怪的错误，当查询到Excel: 我在vb.net中创build一个应用程序来连接到一个Excel文件并进行编辑。在尝试修改Excel文件的时刻，出现以下错误：有了这个function Protected Friend Function obtenerHojaActual(ByVal columna As String, ByVal con As String) As String Dim cmd As String Dim WorkSheet As String = "" Try libro = app.Workbooks.Open(con) For Each hoja As Microsoft.Office.Interop.Excel.Worksheet In libro.Worksheets cmd = "SELECT [" & columna & "] FROM [" & hoja.Name & "$]" Dim adapter As New […]

不能将Excel工作簿标记为最终: 情况如下：我们想发布一个本地编辑的文件到远程机器。这个文件可以是Word，Excel，Powerpointtypes。显然，在发布到远程机器之后，我们希望本地文档被标记为最终的，以防止用户再次编辑（因为所需的工作stream程首先从远程服务器下载，编辑下载文档并将其发布回服务器）。所以，有一堆这样的代码： Public Sub setDocFinal() Select Case addin.HostType Case ADXOfficeHostApp.ohaWord Dim doc As Word.Document = Nothing Try doc = addin.WordApp.ActiveDocument doc.Final = True Catch ex As Exception Throw New Exception(Me.addin.getLabel("cannotSaveCopy", "Cannot Save the document.")) Finally Marshal.ReleaseComObject(doc) End Try Case ADXOfficeHostApp.ohaExcel Dim doc As Excel.Workbook = Nothing Try doc = addin.ExcelApp.ActiveWorkbook doc.Final = […]