vbscript

0热度

2回答

我有一个vbscript，将特定范围的行转换为csv文件。我的问题是它也复制空行而不需要蓝色行。如何在复制之前删除这些完整的空行或将它们从复制中排除？我的代码： Public Sub xlsToCsv() Const WorkingDir = "C:\Test\" Const xlCSV = 24 Const xlUp = -4162 Dim fso

0热度

1回答

Qlikview - 在标签/ qvw文档中滚动时冻结对象的位置

是否有Qlikview扩展程序允许当前选择框和搜索条件（在选项卡顶部）在我们向下滚动任何文档时可见？一些类似于Excel中的“顶行冻结”的东西，不过是用它来代替对象。非常感谢！

0热度

1回答

如何在没有给出条目的情况下结束vbs文件

如果未输入密码，我将如何结束vbs文件，如果单击“好”，它将继续。如果没有输入任何内容，我希望它结束。是可能的吗？ If InputBox("Please enter the passcode.", "Restricted access") = "Passcode" Then MsgBox "Correct passcode. You may continue. Dim speaks,

-2热度

1回答

如何防止从vbs脚本运行.bat文件时出现cmd.exe和conhost进程

我正在使用下面的vbs脚本来运行我的file.bat批处理脚本以防止命令propmt窗口出现但我注意到vbs脚本每次运行时都会在任务管理器中生成cmd.exe和conhost进程。任何想法如何我可以防止他们出现？ Set WshShell = CreateObject("WScript.Shell") WshShell.Run "file.bat", 0 Set WshShell = Noth

0热度

1回答

打开循环中的每个文件

我在写一个子程序，需要从目录中的文件中提取文本。例程如下。只要目录中只有一个文件，它就会工作。当有多个时，它会告诉我Set intFSO = intFSO.OpenTextFile(filePath, 1)下面的一行。我认为有一些事情我需要做的重置下一个文件，但我似乎无法弄清楚它是什么。有小费吗？ Sub ExtractEDI(folPath) Dim sName, fil

0热度

1回答

在表格中添加文本区域并将其保存到SQL Server数据库

我使用的是传统ASP向从数据库显示行的表中添加注释函数。插入的行将保存到数据库保存备注但下面的代码不起作用。 <% Dim fRemark fRemark = Request.Form("Remarks") Dim rsIntra,MyQryItr2 set cnIntra = Server.CreateObject("ADODB.Connection")

-2热度

2回答

VBScript无法迭代XML节点

这是我的代码片段，这部分是读取XML文件并获取操作的最后一个子属性。在这种情况下，我想获得类型C.事实是，脚本跳过了整个For循环，正如我所说的回声所证明的那样。我做了一些搜索，但仍然无法找到我的代码出了什么问题。 Set FSO = CreateObject("Scripting.FileSystemObject") Set xmlDoc = CreateObject("Microsoft.X

1热度

1回答

在没有prnadmin.dll的情况下使用powershell安装“打印机窗体”？

由于来自Microsoft的最新安全更新已将Jet OLEDB Provider无法使用，因此我必须重写几个较老的VBScript。是否有更好的方法在Windows Server 2008 R2和2012 R2上安装打印机表单，然后通过regsvr32/COM/VBscript调用过时的prnadmin.dll？ prnadmin.dll最初与Windows Server 2000 Resour

2热度

1回答

未使用粘贴特殊复制单元格边框

VB新手脚本。我的问题是2部分：我需要从一个Excel表复制450列标题到另一个Excel数据表。标题具有表格边框并被格式化。我在网上查找了一些例子，并将这个脚本放在一起进行复制。但是，单元格边框不被复制。只是文本 - 所以标题格式不会结转。下面是我的代码。这是不是粘贴边界的正确方法？一旦用边框复制，如果我要将此工作表复制到另一个工作表，那么单元格边框和格式化是否也会继续？ Set

0热度

1回答

使用VB脚本实现自动登录

我想实现自动登录到我的网站usinf VBscript并通过cmd上的批处理命令运行它。自动登录得到完成，但还我得到以下错误： VB脚本运行错误对象所需IPF 请帮忙为什么我收到这个错误？这里是代码 Set IE = CreateObject("InternetExplorer.Application") IE.navigate "mysitename" IE.Visible = True