Office
我有大约70个excel文件,我想结合成一个单一的文件。每个文件只有一张表格,并遵循以下格式: 列A与列的标题 行B与第一个条目 行C与第二个条目 某些工作表上最多150行 我想从每列的列AF中刮取信息,并将其组合成一个新文件,其中包含我在同一目录中的所有其他文件的信息 注意:我只想捕获列AF,因为在列G中存在一个是,否数据集来管理列F中的下拉列表。 我尝试使用dug
..
此问题后:在其他工作簿中获取价值/图表不打开它 我编码为: Sub test() Dim oConn As New ADODB.Connection Dim rst As New ADODB.Recordset oConn.Provider =“Microsoft.Jet.OLEDB。 4.0“ oConn.Properties(”扩展属性“)Value =”Ex
..
我需要创建一个宏(我从来没有做过),如果你们可以指导我走一条正确的道路,那将是非常感激的。 我目前正在做的工作: 我已经创建了一个我已导入Excel的映射XML。一旦将其导入到Excel中,用户就会继续粘贴一些数据并将其导出以接收一个XML数据文件,然后用户可以将其删除到一个FTP工作,并将其导入到数据库中。 / p> 这是问题: 导出有以下节点,我不想要的:
..
在Excel中,我有两列属性名称。我需要确定列A中的名称是否完整匹配,部分匹配或第B列中没有匹配。 除了设置这一点以外,令我感到困惑的是好吧,如果有多个局部比赛 - 我不认为使“最佳匹配”组件复杂化是合理的,但我不知道如何处理这一部分。 如何做? 解决方案 完全匹配 查找是否有完全匹配可以很容易 - 您可以使用 MATCH 函数: = MATCH(B1,A:A,
..
我已经写了一个Powershell脚本,它从Microsoft Word中复制一个表,并将它们粘贴到一个excel文档中。我想在列A中最后一行使用行后面追加它。 我到目前为止,我得到了这段代码: $ Excel = New-Object -ComObject Excel.Application $ Excel.Visible = $ True $ ExcelWordB
..
我正在尝试创建一个简单的分类帐,而在“书”的最右边,它总计了我输入的任何借方/贷方。但是,不要将未使用的行留空,而是将最新的总计重复到页面的底部。 如果方程等于0,我该如何使该单元格为空白? = H15 + G16-F16 是我目前使用的公式。 解决方案 您可以更改数字格式列到此自定义格式: 0; -0 ;; @ pre> 这将隐藏
..
Dim rng1 As Range 设置rng1 =范围(范围(“A1:Z1”)Find(“Name”),Range(“A1:Z1”)Find(“Name”)。End(xlDown)) 尝试使用此范围并在图表上设置XValue时 ActiveChart.SeriesCollection(5).XValues = rng1 我也看到了标题来自列表。
..
我有一行数据如下: header1 header2 header3 header4 header5 row key datavalue1 datavalue2 datavalue3 datavalue4 datavalue5 .... 所以基本上,我有一个非规范化数据集,其中数据库可能或可能不是逐行为空。我需要对它们进行规范化。 ie 1234
..
我试图在Excel 2010“Unconcatenate”一个字符串。是的,我知道这不是一个真正的字。这么多我有一个单元格不能分割成多个列,单元格如下所示: 项目1,项目2,项目3 现在这个单元格可能有0-?项目。我想将一个单元格与另一个单页格中的列进行比较。我相信我需要使用匹配函数来执行此操作,但是我需要将第一个单元格转换为一个函数中的数组,并使用分隔符作为逗号。 到目前为止,我有
..
这个问题从上一个问题继续,我问这里。我正在使用建议的修复程序来检查Excel文件是否从Outlook宏(Office 2010)本地打开,但它没有按预期的方式工作。这是我的代码,可能会失败。 Public Sub UpdateFileIndex(ByVal FullFilePath As String,ByVal DocNo As String) Dim xlApp As Excel.A
..
我有一个约1000个IP地址的列,我需要在一个列中打印5次。 例如 10.10.10.1 10.10.10.2 10.10.10.3 10.10.10.4 应该成为 10.10.10.1 10.10.10.1 10.10.10.1 10.10.10.1 10.10.10.1 10.10.10.2 10.10.10.2
..
当我运行我的代码时,我必须清除#N / A的工作表。我不知道为什么和调试了一段时间,但没有效果。我可以做些什么来解决这个问题,就是将其完全从页面中删除,随机发生。如果有人知道如何,请与我分享一个VBA代码。 做一个简单的复制和粘贴到另一个工作表的代码 thevaluestocopy = Sheets(“pivot”)。Cells(thefirstrow,1)_ .Resize(t
..
我想在“A1”中插入一些文本“ABC”,而在“B1”中插入一个如果语句的单元格。但是,我只收到第一个条目“ABC”,然后在 FormulaR1C2“对象不支持此属性或方法”中的错误。我不知道我正确地使用了 R1C2 。我假设它代表第1列第2列,有人可以帮助我。 Dim Excel_App As Object Dim strExcel As String 设置Excel_App = C
..
解决方案 如何: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\X.0\Common\InstallRoot] $ b 其中包含一个名为“Path”的密钥, 的 的安装目录Office版本。 Excel 8.0到12.0这是一致的 。如果您要 想要查找特定的产品, 将使用Excel,Word,Access等在 的普通位置。
..
有没有办法做全局错误处理? 我可以在Workbook代码中放置一些代码,以捕获所有模块中发生的任何错误吗? p> 我可以在每个模块中放置相同的错误处理程序,但我正在寻找更一般的东西。 我问因为我有将这些名称存储为全局变量,如 Sheets(QuoteName)。如果有错误,那么这些全局变量将丢失。我有一个宏,它将重命名全局变量,但我把它放在 Workbook_BeforeSave
..
我正在尝试通过VBA脚本自动登录我的银行帐户并从网站返回一些数据来自动化我的日常任务。但是,我无法编写可以登录到此网站的宏 - https://online.mbank.pl / pl /登录。 我写了以下宏,它与“正常”网站(谷歌)(基于输入框ID)工作良好,但不与银行网站一起返回,出现以下错误: 运行时错误424:需要对象 以下代码google.com: Sub Lo
..
没错。如果我将以下代码中的“Chart_Series_W_Gain_AAPL”中的“C”更改为代码工作的任何其他字母。否则,它会在Series.Formula作业中抛出一个错误1004。事实上,如果我使用以'c'开头的任何随机名称,代码将失败,但不是其他的。我已经尝试关闭Excel并重新打开,但同样的问题。我遇到这个是因为我以图表的名字命名我的图表系列定义的名字,但是后来我决定这是令人困惑的,我试
..
嗨,我正在尝试使用这个代码将每张Excel表保存到新的工作簿中。但是,它将整个工作簿保存到新的文件名。 Dim path As String Dim dt As String dt = Now() path = CreateObject(“WScript.Shell”)。specialfolders(“Desktop”)& “\Cendendars”&替换(替换(dt,“:”,“
..
我不知道发生了什么,但是我有一些包含似乎是一个回车的单元格。我试过 TRIM(), CLEAN(), = SUBSTITUTE(A1,CHAR 10),“”)和一些宏来删除这些字符。 删除这些字符的唯一方法是让单元格活动,单击最后一个字符附近的删除,然后单击输入。 有没有我错过的东西?有没有一种方法来编程? 解决方案 下面的宏将会删除所有不可打印的字符以及开始和结束空格 Tri
..
我有一个在x轴上有日期的图形,我正在尝试使用Excel VBA设置此轴的最大和最小值。我在同一张表中定义了MinXAxis和MaxXAxis值,这里是我的代码: Sub UpdateChartAxes() 使用ActiveSheet.ChartObjects(“Chart 1”)。图 .Axes(xlCategory).MinimumScaleIsAuto = False .
..