Tag: vbscript

ADODB Excel SQL语句写入下一个可用行: 我目前能够在我的VBScript中使用ADODB连接来读取和更新Excel电子表格中的数据。这工作顺利，我知道如何操纵不同的列和不同的行与我想要的。我的问题是，我现在需要input一行新的数据。它如何知道在哪里放置它？我一直在使用的代码总是给出一些参考点：例如： rs.Open "Update [links$] Set [F" & arrLocals(i) & "]= '" & arrChangeData(i) & "' Where [F2] = '" & arrFormID(j) & "'", cn, adOpenStatic, adLockOptimistic 所以根据这一点，只要你正在使用arrFormID(j)与F2列匹配工作，就意味着要在这一行做些什么。但是，如果你想要一个新的行，我不知道要匹配什么？

“50289项目受到保护后无法执行操作”，但是为什么？: 我正在提供正确的密码 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("H:\M\X\C.xls", 0, , , "password") '这些行中的任何一行都会导致上述错误 Set vbcomp = objWorkbook.VBProject.VBComponents(modname) objWorkbook.VBProject.VBComponents.Remove vbcomp objWorkbook.VBProject.VBComponents.Import modpath & modtest 任何想法可能是什么问题？工具 – macros安全设置为允许VB项目访问

在多个文件上运行excelmacros: 我有一个保存在空白工作簿和多个数据工作簿的Excelmacros。我目前打开macros文件和每个数据文件，每个用键盘快捷方式运行macros。有没有办法在没有打开它们的情况下在所有数据工作簿上运行macros 一个batch file， VBA / VBScript中，电源shell，或类似的东西？

将具有标题的大型CSV文件分割为具有标题的每第n行的多个CSV文件: 我有一个很大的CSV文件，我想分割成多个CSV文件。我已经尝试了许多VBS脚本，但我似乎无法得到这个。这个脚本做了一些我想要的，但不保存为CSV文件： Sub Split() Dim rLastCell As Range Dim rCells As Range Dim strName As String Dim lLoop As Long, lCopy As Long Dim wbNew As Workbook With ThisWorkbook.Sheets(1) Set rLastCell = .Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious) For lLoop = 1 To rLastCell.Row Step 35 lCopy = lCopy + 1 Set wbNew = Workbooks.Add .Range(.Cells(lLoop, 1), […]

使用vbs打开excel工作簿，运行macros并保存工作簿: 我有一个macros，我需要每5分钟运行一次。我有一个安排macros的vbs文件。 macros正在检查某个文件夹中的新文件，将它们的信息写入表中，并将这些文件移动到归档文件中。该表与macros一样在excel文件中！它正在运行macros，但最后，它问我，如果我不会保存该文件。我需要它来保存macros自动更改的文件！这是我目前的vbs代码： Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.Open("W:\Excel Macro\EIM File Maneger\EIM_file_check.xlsm", 0, True) xlApp.Run "GetFiles" xlBook.Close true xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit

使用VBscript在Excel中search和replace一些字符: 我需要search并replaceExcel工作表中的string的特定部分。这是我的代码，我不知道如何在每个Cell.value完全search这部分。 my_new_string = "abc" For each objSheet1 in objworkbook2.sheets If objSheet1.Name = "Name1" Then LastRow = objsheet1.UsedRange.Rows.Count + objsheet1.UsedRange.Row – 1 For i = 1 To LastRow Step 1 For j = 1 To 15 Step 1 If objExcel1.Cells(i, j).value = "xyz" Then 'Here I have to check if the Cell value contains xyz […]

在VBscript HTML应用程序中等待函数: 我正在开发一个HTML页面，其中我使用VBScript作为脚本语言，即在HTML页头部分的VBScript。我想在某些函数的执行中插入显式的等待。在ExcelmacrosApplication.wait waitTime伟大工作，但在HTML页面我无法实现我想要的。有人可以请build议任何代码片段，可以帮我插入一些等待说10秒？

从VBA运行代码到VBScript返回到VBA: 我试图找出一种方法来在Excel使用vba调用VBScript函数，然后将值传回给excel-vba 。见下文 Excel中的VBA Sub RunTest() Dim objString as String 'Begin Pseudocode objString = Call VBScript Function Test() 'End Pseudocode MsgBox objString `from VBS End Sub VBScript Function Test Test = "Hello World" End Function 我知道这可能看起来很奇怪，因为我可以在VBA中编写这个函数，但是我们有一个办公室补丁被推出，由于某种原因，它完全丧失了我的一个macros的function。奇怪的是，我可以在任何其他办公室程序中运行完全相同的代码，只是不是很好。作为一个解决办法，我将excel崩溃的函数移动到了word中，并使用application.run将其拉出，但是我更喜欢不必这样做，因为打开一个单词应用程序来运行我的macros会减慢我的处理速度。任何帮助表示赞赏，谢谢

从Excel VBAmacros执行VBScript文件: 我需要一些excel vba示例，在VBA代码（Excelmacros）中，我可以调用VBScript，并从vbscript中获取一些文件名和目录信息等值，并将其分配给VBA代码中的variables。先谢谢你有些事情是这样的 VBAmacros： Sub Foo2Script Dim x As Long x=2 'Call VBscript here MsgBox scriptresult End Sub VBScript中： Dim x, y ,Z x = x_from_macro y = x + 2 Z = X+Y scriptresult = y,Z

在VBA / VBS中退出一个while循环: 我有一个Excel VBA程序，循环通过数据表中的每一行数据。我的目标是一旦boolean bFound设置为True ，退出while循环。我认为我的条件“或bFound = True”可能是不正确的。 bFound = False While Sheets("Data").Cells(iRow, 1) <> "" Or bFound = True If Sheets("Data").Cells(iRow, 11) = Sheets("Data2").Cells(iRow, 1) Then bFound = True End If iRow = iRow + 1 Wend 'exit loop after the boolean=true