Tag: vbscript

将Outlook电子邮件内容导出到Excel中: 我收到格式如下的电子邮件：我使用了某人在其他主题中获得的代码。这里是代码： Const xlUp As Long = -4162 Sub ExportToExcel(MyMail As MailItem) Dim strID As String, olNS As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim strFileName As String '~~> Excel Variables Dim oXLApp As Object, oXLwb As Object, oXLws As Object Dim lRow As Long strID = MyMail.EntryID Set olNS = Application.GetNamespace("MAPI") Set olMail = […]

Excel中input的名称“无效”错误: 我试图运行一个简单的VBScript示例（而不是一个Excelmacros），并运行到您input的名称是无效的问题。名称有一个下划线，没有空格，工作簿是全新的（名称pipe理器什么也没有显示）。另外，虽然大多数Web示例显示：=这是我的语法错误。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\test.xlsx") 'This line fails objExcel.ActiveWorkbook.Names.Add Name="_myRange", RefersTo="Sheet1!$A$1:$D$3" objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close objExcel.Application.Quit WScript.Echo "Finished." WScript.Quit 有任何想法吗？

运行macros后保存并closures工作簿而不提示？: 我想通过VBScript保存并closures在其中执行macros（模块：modBex，Sub：Test）的Excel文件。下面的代码工作正常，除了Excel文件（ macro_file.xlsm ）没有得到保存。这是我的代码： Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\macro_file.xlsm", 0, True) xlApp.Run "modBex.Test" xlApp.DisplayAlerts = False xlBook.Save xlApp.Quit Set xlApp = Nothing Set xlAddin = Nothing Set xlBook = Nothing WScript.Quit

在Excel中使用查找范围: 我有一个excel（oSht加载），并在单元格B67中，我有“mystr”文本和单元格B110也。当我运行这个VBS代码： Set Excel = CreateObject("Excel.application") Excel.Workbooks.Open "C:\…\…\Desktop\myExcel.xls" Set oSht = Excel.Worksheets("mysheet") Set aCell = oSht.Range("B110:B111").Find("mystr") aCell.row是67而不是110，为什么？

从Windows 7升级到Windows 10后出现VBScript问题: 所以我有一个在VBA中与VBA一起工作的VBScript，并且每天都执行模型的自动更新（绑定到Task Scheduler）。除了将名称中的当前date保存为excel文件外，还可以保存pdf格式的硬拷贝（也包含相关date）。切换到Win 10后，脚本每运行一次，窗口就会popup并询问 – 您想如何打开一个文件？ Adobe，记事本等pdf默认由Adobe（set）打开。那么我怎样才能摆脱那个popup窗口？它违背了自动化过程的整个目的，也阻止了它的正常工作，因为在popup之后，pdf不被保存。另外，如果我通过cmd通过cscript运行脚本，它一切正常，但如果通过任务调度（也与cscript）比问题仍然存在。任何帮助？

发送键的语法: 我正在尝试使用Excel VBA脚本在文本框中input一个值。 Iam使用下面的代码相同 Dim sel3 as WebElement sel3 = driver.findElementByName("*amtfld" & l).SendKeys "100" 但在编译过程中给了我SYNTAX ERROR

Excel VBA – 对象'_Global'的方法'范围'失败。错误: 我是新的excel VBA和在这个项目中，我想如果单元格B4不是空的，单元格C4是空的，那么应该高亮显示C4。同样的代码应该循环到B16单元格。 “AMA79”是工作表名称。我得到对象'_Global'的方法'范围'失败。错误使用此代码。你可以让我知道该怎么做才能纠正这个问题。 Dim i As Integer Dim rng As Range Set rng = Range("B4:B16") For i = 4 To 16 With ThisWorkbook.Worksheets("AMA79") If Range(B, i).Value <> "" And Range(D, i).Value = "" Then Range(c, i).Interior.Color = vbYellow End If End With Next i

用另一个文件名保存打开的工作簿（另存为）: 我有一个我运行的脚本，在代码中命名的文件夹中打开一个xls文件（不pipe文件名），然后用一个新名字保存该文件。直到昨天一直工作正常。我现在得到一个VBScript运行时错误，说需要的对象：'wb' 什么是错误的任何想法将不胜感激。 'Opens Excel Set app = CreateObject("Excel.Application") 'sets variable to Division Market Share Report v2.0.xls strPath_Excel = "C:\Users\DSO7761\Desktop\Ideas\Market Share Report Automation\Market Share Reports\Division Market Share Report v2.0.xls" 'Opens Division Market Share Report v2.0.xls Set objWB2 = app.Workbooks.Open(strPath_Excel) app.Visible = False app.DisplayAlerts = False 'This section opens files with "xls" extension in […]

将两个单独的xlsx文件中的.xlsx工作表合并到新工作簿中的单个工作表中: 我需要用vbscript（而不是vba）完成这个。我找不到如何做到这一点的任何例子。我已经有了vbs，可以完成所有我需要的Excel文件的主要处理，但是我需要的最后一部分只是简单地将两个单独的.xlsx文件中的工作表合并到一个工作表中，放到一个新的工作簿中。我已经find了使用vba将两个文件合并到单独的wb中的示例，但是我需要它们在同一个工作表上，并通过vbscript。它基本上就像两张床单的结合。它们都包含相同数量的列（6列）和相同types的数据。基本上需要复制任一电子表格中的标题并粘贴到新的工作簿/工作表中，然后将所有数据复制到标题下方的新工作簿/表单中。希望这是有道理的。任何帮助表示赞赏。我半接近这个，这将两个数据表放到同一个新的工作簿称为“合并”，但需要它合并到一个工作表。 Set objExcel = WScript.CreateObject ("Excel.Application") objExcel.Visible = false strFileName = "c:\excel\merged.xlsx" Set objWbA = objExcel.WorkBooks.open("c:\excel\wb1.xlsx") Set objWbB = objExcel.WorkBooks.open("c:\excel\wb2.xlsx") Set objWorkbook = objExcel.Workbooks.Add() objwba.worksheets(1).copy _ objWorkbook.worksheets(1) objwbb.worksheets(1).copy _ objWorkbook.worksheets(2) objWorkbook.SaveAs(strFileName) objWorkbook.close objWbA.Close True objWbB.Close True objExcel.Quit Set objExcel = Nothing ========================== 这是我想出的一个解决scheme（用CSV输出）： Option Explicit Dim […]

VBScript打开Excel文件，然后执行另存为: 我正在尝试编写一个vba脚本来自动打开一个excel文件，在某个单元格中增加一个，然后等待2分钟，让所有其他字段填充当天的信息。一旦填充了其他字段，我希望脚本closures文件并保存为脚本运行的那一天。我将把这个脚本添加到Windows任务pipe理器，每天凌晨2点运行。到目前为止，我有这样的事情。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("c:\Users\dr\Desktop\test.xlsx") objExcel.Application.Visible = True objExcel.Workbooks.Add objExcel.Cells(3, 2).Value = "=today()" WScript.Sleep 120000 wb.SaveAs Format( Now(), “DD-MMM-YY”)