Tag: vbscript

忽略excel退出时的“你想保存”框

我有一个脚本，打开一个Excel文件并运行一个macros，然后退出该文件。 由于文件处于只读模式，并且脚本对文件进行了临时更改，因此当脚本调用myExcelWorker.Quit() excel时，询问是否要保存更改，并且必须单击“否”。 有什么办法可以退出程序并跳过这个框？ ' Create a WshShell to get the current directory Dim WshShell Set WshShell = CreateObject("WScript.Shell") ' Create an Excel instance Dim myExcelWorker Set myExcelWorker = CreateObject("Excel.Application") myExcelWorker.Visible = True ' Tell Excel what the current working directory is ' (otherwise it can't find the files) Dim strSaveDefaultPath Dim strPath strSaveDefaultPath = […]

如何使用Windows任务计划程序为xlsm文件设置重复计划

我有一个xlsxmacros启用文件。 我如何在任务pipe理器中设置它，以便每天早上9点任务pipe理器打开工作簿，激发macros并closures工作簿。 到目前为止，我正在使用 Application.OnTime . . . 但是我意识到保持打开xlsm文件是不方便的

自动从外部工作簿更新值

我有以下工作簿设置： 工作簿A有一个x工作簿B的链接，并从中获取数据。 工作簿B有一些其他工作簿的链接并从中获取数据。 练习册A是所有其他练习册包含的一种“概要”。 现在，我必须打开所有的工作簿B，在打开工作簿A之前刷新它们并保存。如果不这样做，工作簿B将不会更新工作簿中的数据C. 是否有可能使用.bat或vbs脚本更新所有的工作簿B？ 或者有可能从工作簿A内更新它们？ 我可能会补充说，我在这台电脑上使用Excel启动器，所以更好的解决scheme将是兼容的。

如何判断Excel 2007电子表格是否打开，世卫组织是否使用VBScript打开它

如何判断Excel 2007电子表格是否已打开并且WHO是否使用VBScript打开？ 我想弄清楚是否Excel工作簿当前是由另一个用户打开，并返回该用户在我的脚本中。 我已经想出了谁来确定工作簿是否已经打开。 这是一个解决方法，但我基本上打开工作簿，并检查它是否是只读的。 这很好， 我已经testing过了。 我知道这是可能的，因为Excel为您提供打开文件的用户，如果您通过浏览器打开它。 这是我的代码（isWorkbookOpen.vbs）： Set objExcelTestWorkbook = CreateObject("Excel.Application") objExcelTestWorkbook.DisplayAlerts = False 'doesn't display overwrite alert testWorkbookFile = "I:\test_workbook.xlsx" Set objBook = objExcelTestWorkbook.Workbooks.open(testWorkbookFile) If objBook.ReadOnly Then Wscript.echo "The file is read only" Call EndScript Else Wscript.echo "The file is available" Call EndScript End If Function EndScript objExcelTestWorkbook.Workbooks.close objExcelTestWorkbook.Quit WScript.Echo "Closed " […]

如何将所有表从Access数据库导出到Excel中 – 每张表的表单

我有一个Access数据库〜30表。 如何将所有30个表格导出到Excel工作簿的单独工作表中？ 我希望find一些VBA / VBS代码，我可以在Access内运行来完成这个任务。 有任何想法吗？

从任务计划程序启动Excel工作，现在失败

我已经运行了我的Excel 2000的VBA程序与任务计划和CScript和VBScript大约一年了。 几天前它停止工作。 我可以手动运行程序。 每当任务计划程序启动时，黑色窗口显示大约1-2秒，然后closures。 我试过评论error handling，但我总是得到相同的结果。 我试着显示MsgBoxes但结果仍然是一样的。 我在你的论坛上发现了一个更简单的方法，我尝试了同样的结果。 那么我需要做些什么来debugging呢？ 这里是我从这个论坛尝试的代码： Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") '~~> Change Path here Set xlBook = xlApp.Workbooks.Open("C:\My Documents\___Stocksfilter.xls", 0, True) xlApp.Run "A_Pick" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit 这里是我一直在使用的代码： 'Script to start my filter.xls program with named […]

循环遍历指定文件夹中所有excel文件的代码，以及从特定单元格中提取数据的代码

我有大约50个左右的Excel工作簿，我需要从中提取数据。 我需要从特定单元格，特定工作表中获取数据，并将其编译为一个数据集（最好放入另一个Excel工作簿）。 我正在寻找一些VBA，以便我可以将结果编译到我用来运行代码的工作簿中。 所以，我需要从工作表（“DataSource”）拉动数据的xls或xlsx文件之一，我需要评估单元格（D4），如果它不为空，然后从单元格（F4）拉数据，并把成一个新的行进入编译的数据集。 如上所述循环访问该文件夹中的所有Excel文件。 如果可能，我希望第一列中的第一个数据字段是从结果数据集中提取数据的文件的名称。 有人可以帮我弄这个吗？ 我正在寻找VBA，因为我对此比较熟悉，但也对VBScript感兴趣（正如我试图深入了解这些差异）。

如何使用vbscript在Excel中查找特定值的行号

我有一个打开的Excel文件，并使用VB脚本，我需要在Excel工作表中只search列“A”，直到它匹配一个文本string。 当脚本find匹配的时候，我想查看find匹配的单元格的行号。 感谢您的帮助提前！

Oracle到Excel – PL / SQL导出过程

我正在写数据从Oracle导出到Excel的pl / sql过程。 我需要数据格式，所以我不能使用CSV。 我已经尝试过使用XML，但是当我想要导出例如70000行50列（几乎300 MB !!!）时，它会生成太大的文件。 这就是为什么我决定使用HTML标记生成XLS文件 – 它比XML小，我必须直接定义格式只有一些特殊的列（string，数字和date由Excel自动格式化）。 这是非常简单和方便，但我不能定义多个工作表。 你知道如何在使用HTML编写的excel文件中添加/定义多个工作表吗？ 我试图使用VBScript公式，如<％ActiveWorkbook.Worksheet.Add％>，但它不起作用。 最好的祝福， Przemek

我可以用UTF-8输出excel数据吗？

我通过Excelmacros（VBScript）导出Microsoft Excel数据。 由于文件是lua脚本，我将其导出为UTF-8。 我可以在Excel中制作UTF-8的唯一方法就是使用adodb.stream set fileLua = CreateObject("adodb.stream") fileLua.Type = 2 fileLua.Mode = 3 fileLua.Charset = "UTF-8" fileLua.Open fileLua.WriteText("test") fileLua.SaveToFile("Test.lua") fileLua.flush fileLua.Close 我想从Test.lua中删除BOM，但我不知道如何。 （因为Test.lua有一些unicode文本，我必须使用UTF-8格式。） 你知道如何在excel文件中制作没有BOM的UTF-8文件吗？ 提前致谢。