Tag: vbscript

从asp.net / C＃网页调用一个VB脚本

我已经写了一个C＃的ASP.NET网页，后面运行一个现有的VB脚本。 这个想法是，用户使用网页上传Excel电子表格（.xls），C＃对文件（文件types，文件名等）进行一些基本检查，然后将.xls保存到networking位置。 然后，C＃将.xls的networkingpath传递给vb脚本，该脚本从.xls获取所需的信息以创build一个.csv文件。 最后将.csv传递到存储过程并上传到数据库表中。 问题是，当我在我的机器上本地运行网页时，所有这些都运行良好。 但是，当我上传页面到networking服务器似乎并没有执行VB脚本; 而只是坐在那里等待脚本退出。 一些快速信息： Excel安装在Web服务器上 该网站设置为执行脚本和可执行文件 该脚本目前被设置为'运行'我的个人域名login（这已经改变），这是在networking服务器上的pipe理员 如果我使用cmd提示符在web服务器上运行该脚本，它将起作用 我真的很感激什么可能会出错的任何想法…认真，我把我的头发放在这一个，并会考虑任何想法，不pipe多么疯狂…但是，这是一个很大的，尽pipe事实上，有很多其他的方式来实现相同的结果，恐怕有很多原因，这是我必须与:) 编辑 这就是我所说的脚本 try { System.Security.SecureString password = new System.Security.SecureString(); string uspw = "mypassword"; foreach (char c in uspw) { password.AppendChar(c); } Process scriptProc = new Process(); scriptProc.StartInfo.FileName = @"cscript"; scriptProc.StartInfo.Arguments = scriptPath + " //Nologo " + uploadPath + xlsFileName; scriptProc.StartInfo.WindowStyle = […]

使用VBSCript将数据一个Excel复制到另一个Excel中的问题

我有一个包含大约1000行数据的excel表单，我将这些数据复制到另一个表单满足条件。 为了实现这个我写了一个脚本， For m = 1 To x2 'iterate single column For n = 1 To x4 'iterate PM_DUMP If InStr(PMSheet.cells(n,6).value, dupSingle.cells(m,1).value) > 0 Then ' For p = 1 To y4 wsc.Activate wsc.Rows.Item(n).Select wsc.Application.Selection.Copy wsb.Activate wsb.Rows(m).Select wsb.paste wsc.Application.CutCopyMode = False On Error Resume Next Exit For End If Next Next GetExcel2.Save 脚本的执行顺利进行到certian限制350行，下一行被复制好，但整个行在几分钟后突出显示在红色，我收到一个错误“一个EXCEL遇到一个错误”然后它closures工作簿并打开一个没有任何数据的新工作表… 任何帮助解决这个问题，非常感谢。 关心，Ramesh.T

麻烦的string作为参数从命令行传递

我试图将平面文件转换为Excel可读的格式。 我们收到使用代字号（〜）作为字段分隔符的文本文件，我想将其转换为使用Tab字符的文本文件。 我有兴趣从命令行运行这个，我需要灵活的文件名，所以我想使用参数。 我为它的VBScript如下所示： Set Args = WScript.Arguments Set inf = Args(0) Set outf = Args(1) Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(infile.Value , ForReading) strContents = objFile.ReadAll objFile.Close strContents = Replace(strContents, "~", vbTab) Set objFile = objFSO.OpenTextFile(outfile.Value , ForWriting) objFile.Write strContents objFile.Close 出于某种原因，我得到错误的对象所需：“[string：”infile.txt“]” 。 使用infile，infile.Value或infile.ToString作为objFSO.OpenTextFile(infile, […]

使用VBScript从客户端浏览器的服务器打开Excel

要求：在客户端打开存储在服务器中的Excel文件。 我正在尝试使用VBScript打开Excel文件。 实际的文件驻留在服务器上，但用户必须有权在本地机器上创build该文件的副本。 任何帮助将不胜感激。 谢谢，穆图

我可以使用VBA复制单元格格式，即将值视为string不是数字吗？

我正在使用VBA去除导入的标题。 我现在面临的问题是这个过程是从date中截断前导0。 即使像指向单元（＃，＃）对象的所有可用方法的描述一样简单的东西将会有所帮助。 ' VBScript source code Option Explicit REM We use "Option Explicit" to help us check for coding mistakes REM the Excel Application Dim objExcel REM the path to the excel file Dim excelPath REM how many worksheets are in the current excel file Dim worksheetCount Dim counter REM the worksheet we are […]

溢出错误在VBScript

我收到以下脚本的第40行上的“溢出”错误： Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "Excel|*.xls|All Files|*.*" objDialog.FilterIndex = 1 objDialog.InitialDir = "D:\" intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(objDialog.FileName) End If objExcel.Visible = True Set objWorksheet2 = objWorkbook.Worksheets("Foaie1") objWorksheet2.Activate objExcel.ScreenUpdating = False objExcel.Calculation = xlCalculationManual Set RngVal = objWorksheet2.Range("D1").CurrentRegion.Columns(4) Set RngCrt […]

两个Excel问题 – 查找string值并保存Excel电子表格

我正在制作一个输出到Excel电子表格的VBScript。 这将在不同的日子在多个系统上运行，所以我想使电子表格主机名和date .xls的名称 我怎么能做到这一点，我一直在使用谷歌search，但无法find它。 此外，我只有两列，但第二列中的一些文本将是“testing通过”或“testing失败”。 大约有25排。 我想这样做，那么在第二列有“testing通过”的行是绿色的，然后是红色的，反之亦然。 我应该怎么做呢？

使用vbscript在Excel列中search所有单元格

我编写了一个vbScript来为每个用户的计算机login时收集计算机信息，并且Id希望脚本将信息logging到服务器上的Excel工作表中，每台计算机都有自己的行。 我写了这个像6年前，但失去了脚本，并没有接触VBScript以来。 所以我需要做的是， 检查列B（这将是计算机名称）有价值的所有单元格 将该值与计算机名称保存的值进行比较 如果匹配，则将计算机信息写入该行 如果没有匹配，则将信息写入第一个空行 我不知道从哪里开始，因为vbScript对我来说是非常陌生的。 编辑 – 我有这个循环到目前为止，回声来testing它，但它只能到1，而我有6列的值在列0我试图有条件检查单元格值我知道存在和我得到一个运行时错误。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("test.xlsx") Do While objExcel.ActiveCell.Offset(iRow,0).Value<>"" WScript.Echo iRow If objExcel.Cells(iRow,0).Value = "three" Then WScript.Echo "three" End If iRow = iRow+1 Loop WScript.Quit

我必须按回车来获得公式运行？

我有一个这样的macros： ActiveCell.FormulaR1C1 = "=COVAR(" & ticker & "!I:I," & MarketIndex & "!I:I)/VARP(" & MarketIndex & "!I:I)" 插入这个： =COVAR(BMY!I:I,GSPC!I:I)/VARP(GSPC!I:I) 但它显示为#NAME? 直到我点击单元格来显示公式，然后按回车。 为什么不自动运行没有干预？

date值减法产生错误的错误

我正在使用下面的代码来显示在日：小时：分钟格式的date差异。 Function TimeSpan(dt1, dt2) Dim seconds,minutes,hours,days If (isDate(dt1) And IsDate(dt2)) = false Then TimeSpan = "00:00:00" Exit Function End If seconds = Abs(DateDiff("S", dt1, dt2)) minutes = seconds \ 60 hours = minutes \ 60 days = hours \ 24 minutes = minutes mod 60 seconds = seconds mod 60 days = days mod 24 […]