Tag: vbscript

尝试使用今天的date更新Excel电子表格时出现VBScriipt错误: 不是一个vbscript专家，我开始怀疑我是否记得任何一个。我只是想获得今天的date，而不会产生“Microsoft VBScript运行时错误：所需对象：'（21,1）”处的'aqDateTime'“。我知道这对某个人来说显而易见，对我来说也可能是显而易见的。我正在使用一个Excel电子表格，这个电子表格需要用另一个date来更新单元格，而不pipe今天的date如何。取得今天的date是我的问题。以下是相关的代码。代码段结尾处的行“CurrentDate = aqDateTime.Today”是发生错误的地方。我不只是在代码上寻求帮助。我希望了解它背后的原因。我忽略了什么？谢谢！ dim CurrentDate dim objExcel, objWorkbook, objWorksheet, strCellValue 'Launch Excel Set objExcel = CreateObject("Excel.Application") 'Make the spreadsheet visible objExcel.Application.Visible = True 'Open the workbook Set objWorkbook = objExcel.Workbooks.Open("C:\Users\QA_Admin\Report\transactiontemplate.xls") 'Select a worksheet Set objWorksheet = objWorkbook.Worksheets(1) 'Obtain the current date CurrentDate = aqDateTime.Today […]

在Excel单元格中居中图像: 下面的代码插入一个图像到Excel工作簿的单元格a1中。假设我已经build立了单元格的宽度，我将如何将这个图像放在单元格中？谢谢！ Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts=False Set objWorkbook1= objExcel.Workbooks.Open("workbook.xlsx") Set Xlsheet = objWorkbook1.Worksheets("Cover") Xlsheet.Range("a1").Activate Xlsheet.Pictures.Insert("logo.png") objWorkbook1.saveAs "workbook_center.xlsx", 51 objWorkbook1.close objExcel.DisplayAlerts=True set objExcel = Nothing

基于VBScript中单元格值的颜色Excel: 我有一个VBS将我的CSV转换为Excel。现在我的CSV有一些字符，如“！” 我想在转换为excel之后在那些具有该字符的单元格上使用黄色。 Sample.CSV： Name,Location,Phone,Comment1,Comment2 "ABC","Pune",123,"Expert Value","! Easy" "XYZ","Kol",567,"! Expert value",Easy" 要求：转换到Excel后，我需要E2和D3 Cell应该是黄色的 MyScript.vbs：需要两个参数才能执行 cscript C:\Test\MyScript.vbs \\C:\Test\Sample.CSV \\C:\Test\Sample.xlsx 这是原始的脚本 '====================================== ' Convert CSV to XLS ' ' arg1: source – CSV path\file ' arg2: target – Excel path\file '====================================== srccsvfile = Wscript.Arguments(0) tgtxlsfile = Wscript.Arguments(1) 'Create Spreadsheet 'Look for an existing Excel instance. On Error […]

VBA：原理图复制例程: 我今天不得不用VBA来解决Excel的问题，但我觉得自己是个小菜鸟。我的要求很简单，但不知何故，我在线上。我想添加到每个现有的行，在一个额外的工作表上的一些变种。看看这里的计划这怎么可能？任何人都可以帮我吗？感谢您的反馈和您的帮助。问候eXocode 解决scheme是： Sub CopyData（） RowInSheet3 = 1 For RowInSheet1 = 1 To Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row Sheets(3).Cells(RowInSheet3, 1) = Sheets(1).Cells(RowInSheet1, 1) RowInSheet3 = RowInSheet3 + 1 For RowInSheet2 = 1 To Sheets(2).Range("A1").SpecialCells(xlCellTypeLastCell).Row Sheets(3).Cells(RowInSheet3, 1) = Sheets(2).Cells(RowInSheet2, 1) Sheets(3).Cells(RowInSheet3, 2) = Sheets(2).Cells(RowInSheet2, 2) RowInSheet3 = RowInSheet3 + 1 Next Next 结束Sub`

通过ADODB访问Excel工作簿 – 同时有多个用户: 我试图通过不同的远程机器上的ADODB连接访问放置在共享path中的Excel工作簿。但是，当多个远程机器试图访问同一个Excel工作表时，会出现以下错误： Microsoft Office Access数据库引擎无法打开或写入文件“”。它已经由另一个用户专门打开，或者您需要查看和写入其数据的权限。连接string使用： strConnection_Write = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _ Runmanager_path & ";Mode= Share Deny None" & _ ";Extended Properties=""Excel 8.0;HDR=Yes;"";" 请给我一个解决scheme。

使用vbscript将特定列保存到新的xlsx文件中: 我有一个xlsx文件有很多列和行。我需要select具体的列来生成一个新的xlsx文件。我的代码是： Public Sub xlsToCsv() Dim WorkingDir WorkingDir = "C:\test.xlsx" Dim fso, FileName, SaveName, myFile Dim objExcel, objWorkbook Set fso = CreateObject("Scripting.FilesystemObject") Set myFile = fso.GetFile(WorkingDir) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Open(myFile) With objWorkbook.Sheets(1) .Range("D87", .Range("D87").End(-4121)).Copy objWorkbook.Sheets.Add().paste .Range("E87", .Range("E87").End(-4121)).Copy End With dim sheet: set sheet = […]

用vbscript从xlsx中删除蓝色和空的单元格: 我有一个VBScript将特定范围的行转换为CSV文件。我的问题是它也复制空行，不需要蓝色的行。如何在复制之前删除这些完整的空行或将它们从复制中排除？我的代码： Public Sub xlsToCsv() Const WorkingDir = "C:\Test\" Const xlCSV = 24 Const xlUp = -4162 Dim fso, SaveName, myFile Dim objExcel, objWorkbook, wsSource, wsTarget myFile = "source_file.xlsx" SaveName = "test.csv" With CreateObject("Scripting.FilesystemObject") If Not .FileExists(WorkingDir & myFile) Then MsgBox "File not found:" & vbCrLf & WorkingDir & myFile, vbInformation, "Script Cancelled" […]

如何接受来自HTML的数据并将其发送到Excel？: 以下是我的代码。问题是它不是将这些字段添加到Excel工作表。 <! DOCTYPE html> <Html> <Head> <script language="vbscript" type="text/vbscript"> Sub Sample () Dim iRow Set objExcel = CreateObject ("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open ("C:\Users\ARPIT SHAJU\Desktop\Church\Member.xlsx") objExcel.Application.Visible = True ObjWorkbook.Windows (1).Visible = True Set XlSheet =objWorkbook.Sheets (1) XlSheet.Activate iRow = 1 With objExcel Do while .Cells (iRow, 1).value <> "" .Cells (iRow, 1).activate iRow = […]

在消息框中单击“确定”后，如何将消息框中显示的值存储到其他表单中: 有没有什么办法，我可以存储在excel中使用vba的消息框中显示的数据到相同的工作簿中的新工作表，像使用vba单击消息框上的“ok”之后的条目？这是我已经尝试了@MarcinSzaleniecbuild议的代码，但它不工作 – Sub Workbook_AfterSave(ByVal Success As Boolean) Dim sMsg As String sMsg = MsgBox("Values saved in cell " & Replace(Selection.Address, "$", "")) If MsgBox(sMsg) = vbOK Then ThisWorkbook.Sheets("Sheet2").Range("A1") = sMsg End Sub Sub Test() Workbook_AfterSave True End Sub 我想在点击下面的照片中的“确定”button之后将值存储在其他工作表中，

导入Excelmacros并使用VBS运行它: 我想创build一个vbs脚本，将打开一个.xlsx文档，导入一个macros并运行macros。对于我的使用，.xlsx文档的名称将有所不同 – 所以我可能需要一个通配符的文件名。这是我迄今为止： Set xl = CreateObject("Excel.application") xl.Application.Workbooks.Open "\\path\Missed_Scans\Report\Report.xlsx" xl.Application.Visible = True x1.VBProject.VBComponents.Import "\\path\Missed_Scans\Missed_Scans.bas" x1.Save xl.Application.run "'Report.xlsx'!Missed_Scans" Set xl = Nothing 上面的脚本将打开“report.xlsx”，但似乎没有正确导入或运行macros。只要macros被导入并运行，report.xlsx就不需要被打开（可见或不可见）。编辑这是macros： Attribute VB_Name = "Module1" Sub Missed_Scans() Attribute Missed_Scans.VB_ProcData.VB_Invoke_Func = " \n14" ' ' Missed_Scans Macro ' ' Sheets("Incomplete_ASINs").Select ActiveSheet.Range("$A$1:$J$52951").AutoFilter Field:=1, Criteria1:="SDF8" Columns("B:D").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Rows("1:1").Select Application.CutCopyMode = […]