Tag: excel automation

使用可变但行数相等的格式对消毒列进行格式化，并且列不相邻

我的数据有10列以上，我想select三列， 进一步格式这三列 ，但没有。 行不固定，所以我无法一次select所有这三列。 这是我想要做的 Dim lastrow As Long lastrow = Range("A" & Rows.Count).End(xlUp).Row Range("G2:H" & lastrow, "J2:J" & lastrow).Select 但是这也是selectI列。 我也试过这个 Range("G2:H & lastrow, J2:J" &lastrow).select 但是，这给了我错误的预期。 使用时 Range("J2:J" & lastrow).Select With Selection .NumberFormat = "0" .Value = .Value End With 数据得到正确的格式，但我想这样做所有三个不是adjacnet列 但是，如果我使用 Intersect(Range("G:H, J:J"), Rows("2:" & lastrow)).Select With Selection .NumberFormat = "0" .Value […]

为什么ITypeInfo :: GetIDsOfNames不工作？

我正在修改COM自动化的一些代码。 使用Excel（应用程序）的IDispatch客户端，我可以评估 idispatch.GetIDsOfNames('Run' 'Macro' 'Arg1' 'Arg2') 它的工作。 它返回一个数组，其中包含Run的方法（本版本中为1925）的成员ID和参数Macro，Arg1和Arg2的索引。 但是，如果我试图从ITypeInfo获得相同的信息，我得到发送GetTypeInfo（0）到相同的idispatch，它会产生错误HRESULT_E_NOTIMPL。 这个函数在ITypeInfo上工作吗？ 文件说是…

用dynamic行selectdynamic列

我的数据有10列以上，我想select三列， 进一步格式这三列 ，但没有。 行不固定，所以我无法一次select所有这三列。 这是我想要做的 Dim lastrow As Long lastrow = Range("A" & Rows.Count).End(xlUp).Row Range("G2:H" & lastrow, "J2:J" & lastrow).Select 但是这也是selectI列。 我也试过这个 Range("G2:H & lastrow, J2:J" &lastrow).select 但是，这给了我错误的预期。

什么是需要通过API将文件保存为PDF的Excel 2007中的PDF文件types编号？

我需要调用一个函数来保存Excel工作簿。 我安装了Excel 2007的PDF保存插件，但是现在我需要知道保存Excel文件时文件格式的数字代码是什么。 excel文件格式编号的例子可以在这里find。 SaveAs in Excel 2007 FileExtStr = ".xlsb": FileFormatNum = 50 FileExtStr = ".xlsx": FileFormatNum = 51 FileExtStr = ".xlsm": FileFormatNum = 52 FileExtStr = ".xls": FileFormatNum = 56 FileExtStr = ".csv": FileFormatNum = 6 FileExtStr = ".txt": FileFormatNum = -4158 FileExtStr = ".prn": FileFormatNum = 36 我需要一个.pdf结尾。

自动化在使用Excel调用WCF mex Moniker方法时出现错误

我成功地创build了一个服务名字对象作为我的WCF服务的客户端。 但是我无法用绰号来调用任何方法。 在WCF服务端，我有一个名为TestMethod的虚拟方法，如下所示： Public Function TestMethod(ByVal TestValue As String) As String Implements ICustomerService.TestMethod Return "You said…. " & TestValue End Function 以下代码在Excel中创buildMoniker。 Public Sub WCFMexMonkierDemo() ' Create a string for the service moniker including the content of the WSDL contract file Dim mexMonikerString As String mexMonikerString = "service:mexAddress='http://localhost/CustomerService.svc/mex'" & _ ", address='http://localhost/CustomerService.svc'" & _ ", […]

将值传递给VB.NET中的input框

我试图自动化一些有一些macros的Excel表上的数据人口。 现在excel被保护，我不能得到密钥。 现在我能够运行macros，但是当我尝试传递参数时，我得到的参数不匹配。 如果我只是用这个名字运行macros，我会得到一个inputinputbox ，它将一个额外的参数作为input，并自动生成一些列的值。 截至目前，我必须手动input这个值到input框中。 有没有什么办法可以使这个过程自动化，也就是捕获vb.net脚本中的macros引发的input框，并从那里input值？ 即我想要运行macros，当我得到popup要求我input一些值，使用vb.net代码input该popup的值。 这是我到现在为止 Public Class Form1 Dim excelApp As New Excel.Application Dim excelWorkbook As Excel.Workbook Dim excelWorkSheet As Excel.Worksheet Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click excelWorkbook = excelApp.Workbooks.Open("D:/excelSheets/plan_management_data_templates_network.xls") excelApp.Visible = True excelWorkSheet = excelWorkbook.Sheets("Networks") With excelWorkSheet .Range("B7").Value = "AR" End With excelApp.Run("createNetworks") // […]