标签: vbscript

这是我的vbscript - 对此并不太了解.我从Microsoft文档中提取的两行不起作用.该文件保存为vbs文件.我双击然后运行.Windows XP是操作系统.

option explicit

Dim Rs1
Set Rs1 = Server.CreateObject( "ADODB.Recordset" )

我收到运行时错误,说错误:变量未定义:'服务器'.有点困惑,因为代码是基本的sooooo.

任何人的想法？谢谢...

在下面的代码中,我在行读取时出错recset.Close.

字符:5
错误:关闭对象时不允许操作.
代码:800A0E78
来源:ADODB.Recordset

如果程序到达该行PQ_ID_number = InputBox("Enter PQ Database ID number, Do not use / ? < > \ : * | !", "PQ ID Number", "Replace Text")似乎工作正常(采取手动输入),但当它试图从浏览器的URL(自动)获取ID时,它会给出错误.

valid_name = 0
Dim objInstances, objIE, counterTab

Do While valid_name = 0  'Flag to exit the loop if the Id  number has content in the SQL Database'

    '-----------------------------------------------------------------------------------------'

    Set objInstances = CreateObject("Shell.Application").windows
    If objInstances.Count > 0 Then '/// make sure we have IE instances open.
        'Loop through …

我一直在使用AccessMode and ConflictResolution,它对vba很好.

在vbs

ObjWB.SaveAs myFolder & "test.xlsx",  AccessMode:=xlExclusive, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges 

投掷expected statement error角色: =

如何在vbs中保存并强制替换？

我有一组十进制数,我需要将它们舍入到最接近7的数字.

例如:

0.45 --> 0.47
4.70 --> 4.67
6.49 --> 6.47
8.32 --> 8.37

我可以使用Excel或Access(基本上是VBS).

我只能抓住2位小数,将其转换为整数(*100),然后应用舍入规则,然后预先挂起原始值的整数值.

例如:

0.45 --> 45 --> 47 --> 0.47
4.70 --> 70 --> 67 --> 4.67
6.49 --> 49 --> 47 --> 6.47
8.32 --> 32 --> 37 --> 8.37

我尝试过舍入公式:

Let N represent the nearest number to round to.
Let X represent the input number.
output = ROUND(X / N, 0) * N

然而,这并没有给出预期的结果.

例如:

0.45 --> ROUND(45 / 7, 0) * 7 --> …

我正在尝试从相对于vbs脚本的路径打开x.txt，该脚本位于：“ Help file \ bin \ html \ x.txt”该脚本也位于Help文件文件夹中

dim x, fso, vbpath
Set x = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
vbpath = fso.GetParentFolderName(WScript.ScriptFullName)
otherpath = "\bin\html\x.txt"
msgbox(vbpath & otherpath)
x.Run(vbpath & otherpath)

它找不到路径；路径是msgbox是正确的，但是它仍然找不到路径。我知道它要求“”是x.Run（）中的字符串，但直到有变量时，它才不允许我添加它们。

我正在尝试通过ftp发送文件,然后检查进程是否成功完成,如果是,我将删除原始文件并仅保留在FTP上的目标文件夹中发送的文件.

我设法修补了连接到FTP并发送文件的脚本,但我不确定如何与FTP上的文件夹交叉检查原始文件夹,以便我可以确定副本是否成功.

这是通过FTP发送文件的代码,在测试中它成功发送所有文件,但我必须在删除之前检查

Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

path = "D:\test\"

FTPUpload(path)
Sub FTPUpload(path)

On Error Resume Next

Const copyType = 16

'FTP Wait Time in ms
waitTime = 80000

FTPUser = "test"
FTPPass = "testtest"
FTPHost = "ftp.test.com"
FTPDir = "/htdocs/test/"

strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)


'Upload single file       
If objFSO.FileExists(path) Then

Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = …

我试图运行VBScript但CFExecute抛出错误

<cfexecute name = "C:\Windows\System32\CScript.exe" 
            arguments = "//NoLogo D:\Excel.vbs D:\test.xls"
            variable = "data"
            timeout = "100">
 </cfexecute>
<cfdump var="#data#">

错误:

 Error: 424 Source: Microsoft VBScript runtime error Description: Object required 

但是当我使用CMD运行VBScript时,它运行正常

C:\Windows\System32 > cscript //nologo D:\Excel.vbs D:\test.xls

我有完全的管理员权限,为什么我收到此错误？

我有以下代码:

output = ...
(some comma-separated data)

Response.Clear
'Response.ChartSet = "UTF-8"
'Response.CodePage = 65001
Response.ContentType = "text/csv"
Response.AddHeader "Content-Disposition", "filename=myfile.csv;"
Response.Write(output)
Response.End

现在,一切工作只与具有数据本身产生直接下载的虚拟CSV文件罚款,但如果我在一个或多个字段(列)具有非ASCII数据,我不UTF得到它-8在生成的UTF-8中.

如何将生成的文件的内容设置为UTF-8？

此代码中的每个注释行似乎都不会影响输出...

我编写了一个VBScript来自动创建Word文档.

我正在使用以下代码插入图像,但我似乎无法找到一种方法来调整它.

objSelection.InlineShapes.AddPicture("C:\test.jpg")

我有一个批处理文件,根据用户输入运行SQL查询.我想创建一个非常简单的GUI来获取用户输入并将这些输入传递给批处理文件.GUI适用于害怕使用黑色CMD窗口的用户.我对HTA,JavaScript和VBscript的了解是有限的,但我确信如果有人引导我走向正确的方向,我可以学习.

提前致谢.