Tag: batch file

单元格在Excel中打开文件夹，如果不存在，则创build文件夹

我正在尝试在电子表格中创build一个单元格，它将执行一些操作： 根据一行中两个单元格的值打开一个文件夹 如果它不存在，从两个单元格上面创build文件夹 只有当我点击它的行 目前，我正在使用超链接公式链接到我手动创build的文件夹。 我有一个明确的想法，链接到一个batch file，从分析的数据打开/创build文件夹。 我试了很长一段时间，但一直没有能够从Excel中获取数据到batch file。 无论如何要做到这一点？ 要么用我描述的方式，要么用VBA？ 我的实际电子表格有更多的列和行，但希望下面的图像说明如何我想链接到文件夹布局。 基本上，我想单击该行中的“Open”，并从B2和C2获取数据，并在C：\ New Folder \ B2 \ C2中打开/创build一个文件夹（例如C：\ New Folder \ 2015 \ Folder 0001 ）。 下面是我目前在Excel中使用的超链接公式，试图完成这个： =HYPERLINK("C:\New folder\new.bat "&B2&" "&C2,"Open") 我得到一个“无法打开指定的文件”错误。 如果我删除单元格数据，它将打开程序，但没有数据，我没有办法创build必要的文件夹。 下面是我写的打开/创build文件夹的batch file： @echo off set dir="C:\New folder\%1\%2" if not exist %dir% mkdir %dir% start "" %dir% 从命令行运行时，它可以正常工作： new.bat 2015 Folder 0001 […]

如何使用batch file自动运行VBA代码

大家好，我需要将包含多个工作表的Excel文件拆分为基于不同工作表名称的各个Excel文件。 我发现了一个很好的VBA代码。 但是，现在我需要创build一个batch file来自动运行VBA代码，如何达到这个function？ 由于我没有很好的代码体验， 希望有人会告诉我或提示。 这里是代码： Sub Splitbook() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

batch file复制最新的Excel文件在新的文件夹中

我想复制最新的Excel电子表格（.xlsm）到一个新的文件夹。 但问题是我的原始数据转储文件夹与数以千计的Excel和Word文档太大，无法导航。 我发现一个链接“ 如何编写一个Windows批处理脚本从目录中复制最新的文件？ ”但它并没有解决复制excel文件的组件。 有人可以通过展示未来的方式填补空白吗？ 谢谢你的帮助！ Newlearner

从Jenkins运行Excelmacros

我试图从Windows 7 64位虚拟机上的Jenkins Windows服务运行Excelmacros。 我有一个指定VBS文件的batch file。 然后在VBS文件中列出Excelmacros。 batch file在本地运行良好，但是当我从Jenkins运行它时，出现以下错误： Microsoft VBScript运行时错误：ActiveX组件无法创build对象：“Excel.Application” 错误似乎发生在VBS文件中的以下每个实例上： Set xlApp = CreateObject("Excel.Application") 只是四处search，我发现很多其他人遇到了用于执行VBS文件的cscript版本问题。 在64位计算机上，似乎必须使用32位版本的cscript 。 但是不pipe我怎么强制使用这个版本的cscript ，Jenkins似乎都忽略了它，并显示了相同的错误，这让我认为cscript版本不是我错误的原因。 我在Excel中启用了macros，并检查了ActiveX设置。 就像我说的，双击batch file，一切工作正常。 jenkins正在做一些奇怪的事情，导致这个问题。 有任何想法吗？

将代码从批处理转换为vba

我有这个batch file，查找进程名称msmdsrv.exe ，使用tasklist获取PID number然后使用netstat获取连接types所在的port number 。 最后它会将结果导出到文件PBD_Port.csv for /f "tokens=2 delims=," %%F in ('tasklist /nh /fi "imagename eq msmdsrv.exe" /fo csv') do ( set var=%%F ) for /f "tokens=2 delims= " %%h in ('netstat -ano ^| findstr ESTABLISHED ^| findstr %var%') do ( set var1=%%h ) echo %var1% > PBD_Port.csv 我使用此代码来获取PowerBi桌面的端口号，因为每次启动Power Bi Desktop时都会更改它。 是否有可能在Excel中有一个macros，做同样的事情？ 所以，而不是使用batch […]

批处理：如何在现有的opend excel会话中打开Excel工作簿

在我的工作中，我有每天早上在不同excel会话中打开许多Excel Wrokbook的命令。 我无法修改这些.cmd文件。 这些Excel工作簿具有所有相同的名称“C.xlsb”，但如果你去每个人的第一张表，看看P11，你会发现他们是不一样的。 我想编写一个批处理代码，select一个打开的“C.xlsb”工作簿，并在其会话中打开另一个名为“I.xlsm”的工作簿 到目前为止，我有以下打开我想要的文件，但它是在一个Excel中，不是我想要的会话中打开文件。 我如何select特定的Excel会话来打开我的工作簿呢？ "\\nas0013\pub$\E\I\I.xlsm" exit /B

batch file命令打开excel \ csv作为记事本

我可以通过简单地使用文件的path从.bat打开一个excel文件。 有没有一个参数来打开编辑模式下的CSV（作为记事本）？

date格式转换为excel

我正在尝试使用BATCH Input为我的logging添加页面， 但我不能从Excel中收到date格式，它总是显示为“00000000”。 我试过这些例子：31.07.2012 20123007 20120730等等 但是这些都不能解决我的问题。 我该如何解决这个问题？

如何通过在excell中按vbabutton来运行ftp.bat？

我试图从大型机自动提取数据，我试过下面的解决scheme，但没有奏效。 相反，它删除了FtpLogin2.bat文件的内容。 Private Sub Workbook_Open() Call Shell(Environ$("COMSPEC") & " /c D:\user\MyDocs\Downloads_FTP\FtpLogin2.bat", vbNormalFocus) End Sub ftplogin2.bat的内容 @ftp -i -s:"%~f0"&GOTO:EOF open ip user password ped get 'mainframe_dataset' pc_dataset.txt 我想要做的是build立一个表单，我有一个input。 该input是我想要提取的主机文件的名称。 那么这个数据会出现在Excel的另一个工作表中。我的意思是通过一个文本字段和一个提交button来自动化这个过程，这个button应该触发macros中的FTP。 有没有办法做到这一点？

每十分钟打开并保存一份Excel 2003表格

我正在使用Excel 2003.我的要求是每十分钟打开并保存一个Excel表格。 我的工作表使用ODBC连接来获取数据，每次打开时都会刷新数据。 我创build了一个计划任务来运行一个bat文件，该文件调用一个VB脚本，这个脚本将打开excel表并在closures之前保存它。 蝙蝠文件 C:\SaveExcel.vbs C:\MySheet.xls Exit VB脚本： Dim args, objExcel Set args = WScript.Arguments Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open args(0) objExcel.Visible = True objExcel.Workbooks.Open "C:\Program Files\Microsoft Office\OFFICE11\Library\Analysis\FUNCRES.XLA" objExcel.Addins("Analysis Toolpak").Installed = True objExcel.Addins("Analysis ToolPak – VBA").Installed = True objExcel.ActiveWorkbook.RefreshAll WScript.Sleep 10000 ' Waiting as refresh may take upto ten seconds objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close(0) objExcel.Quit 上面的问题是插件“分析工具包”没有加载，因此大多数的公式不工作，当我打开工作表使用上面的VB。 […]