Tag: 脚本

Excel VBA将文件名保存为CSV和单元格值

我有一个macros来导出一系列单元格到csv这是好的，我现在需要它调用文件作为单元格的值，最好是B2。 提前致谢。 macros： Sub WriteCSVFile() Dim My_filenumber As Integer Dim logSTR As String My_filenumber = FreeFile logSTR = logSTR & Cells(2, "B").Value & " , " logSTR = logSTR & Cells(3, "B").Value & " , " logSTR = logSTR & Cells(4, "B").Value & " , " logSTR = logSTR & Cells(5, "B").Value & " , […]

对话框将文件保存为现有脚本

我有下面的代码，但我试图让它提示用户使用dynamic对话框来获取输出文件“另存为”。 $pathtsv = "c:\test.txt" $pathxlsx = "c:\NBP ESP-152 REV F TEMPLATE.xlsx" $Excel = New-Object -ComObject "Excel.Application" $Excel.Visible=$true $Workbook = $Excel.Workbooks.Open($pathxlsx) # Open Template $TempWorkbook = $Excel.Workbooks.Opentext($pathtsv) # Open text file in excel $temp = $excel.Workbooks.Item(2) #select workbook with text $temp = $temp.Worksheets.Item(1) #select text worksheet $CopyRange = $temp.Range("A1:G8") #set range $CopyRange.Copy() #copy data $workbooksheet = […]

第一次写脚本，不知道使用什么语言（parsingexcel和其他文件）

我有一个Excel电子表格（版本1997-2003）和另一个非特定的数据库文件（一个.csy文件，我假设它可以被parsing为一个文本文件，就像它看起来那样）。 我需要从两张表中获取信息，将它们匹配起来，放在一行上，然后打印到文本文件中。 我打算使用python作为使用Visual Studio 2010的python插件以及xlrd软件包似乎是我能find的最好的方式，我只是在python中使用默认软件包来处理其他文件。 python会是一个不错的语言select来学习和编程这个脚本？ 我不熟悉VBS以外的脚本语言，所以任何语言对我来说都是一种学习体验。 将xls转换为csv不是一个选项，excel文件太多，而且如果使用xlrd，通过csv捕捉它们的方式会更困难。

将工作表复制到VbScript中的新工作簿 – “调用的对象与客户端断开连接”错误代码：80010108

我是VbScript的新手。 我试图将一个文件夹中的所有工作表复制到一个工作簿。 它正在被复制，但在保存新工作簿之前显示错误。 错误： “被调用的对象与客户端断开连接” 。 代码： 80010108 。 请帮帮我。 这是我的代码。 Option Explicit 'On Error Resume Next Dim strFileName, strDirectory, counter, extension, Temp Dim intMessage, FileName, wbSrc, wbDst Dim objFSO, objFolder, objFile, objExcel, objWorkbook 'create an empty excel file starts strFileName = "C:\Users\ARUN\Desktop\LD.xlsx" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() objWorkbook.SaveAs(strFileName) […]

只有在索引号已知使用PowerShell时，才能更改一个单元格的值

我有一个保存电话号码的CSV文件。 根据使用的数字，这些数字的状态将是SPARE或USED。 每当我需要find可用的下一个SPARE编号时，我想运行powershell脚本find下一个SPARE编号，并将其分配给新用户（稍后执行），并将该特定编号的值更改为USED。 我已经设法findSPARE号码使用下面的脚本，但现在一旦find号码，我想改变该号码的状态为USED。 $LineUri = @() $Status = @() $csv = Import-Csv C:\Users\user\Desktop\PhoneData.csv -Delimiter "," |` ForEach-Object { $LineUri += $_.LineUri $Status += $_.Status } $currentStatus = "Spare" if ($Status -contains $currentStatus) { $Where = [array]::IndexOf($Status, $currentStatus) $AvailableURI = $LineUri[$Where] Write-Host "Next Uri Available: " $LineUri[$Where] $changeWhere = [array]::IndexOf($LineUri, $AvailableURI) } 我的CSV文件如下所示： Name LineUri […]

VBA：如何通过其定义的名称显示单元格值？

我已经为我的工作表中的特定列定义了一个名称。 如何通过定义的名称显示单元格值？ 我试过这些： Public Sub Test() Dim R As Range Set R = ThisWorkbook.Names("SomeName").RefersToRange MsgBox CStr(R.Value) End Sub 但运行时错误发生“types不匹配”（错误代码：13）。 代码有什么问题？ 什么是RefersToRange.Value的实际数据types？ 该文件说，RefersToRange返回Range对象，但它似乎不同于ActiveCell返回的Range对象，因为我没有问题，下面的代码： MsgBox CStr(ActiveCell.Value) 我一直在使用Excel 2003

excel vba – 有效循环2d数组

我毫无希望地试图find一个更好的填充范围内容的方法。 这样可以产生正确的结果，但速度很慢。 任何人都可以指出我正确的方向如何填补二维数组或加快algorithm？ 我会喜欢有人成功的代码片段，甚至只是链接，显示一个更清洁的方法。 here is my OLD code: —————- f = 1 maxcol = 'func call to get last non blank col ref .ie could return T, R, H.etc For f = 1 To UBound(filenames) Set aDoc = LoadXmlDoc(filenames(f)) For Each c In Worksheets("Results").Range("A1:" & maxcol & "1") c.Offset(f, 0).Value = aNode.Text Next c […]

通过SAP GUI脚本处理SAP错误

我使用SAP GUI脚本代码通过SAP表单提交批量logging。 它从excel文件中逐一挑选logging并在SAP系统中提交。 我的问题： 我想包括error handling。 因此，如果在任何特定logging提交时发生错误，脚本不应该停止。 在“注释”字段中input适当的信息后，它应该移动到下一行。 任何人都可以抛出一些指示如何确定SAP是否面临一些错误或警告？ 如果错误发生，如何摆脱它即如何处理，并移动到下一个logging提交。

将xlxs文件转换为csv

我有一个excel文件N张。 现在我想将所有的工作表转换成.csv格式使用bash shell脚本在将xlxs文件转换为.csv我需要在每个工作表中添加额外的列，最后使用公共值。 请帮忙

什么是Scripting.Dictionary的最大大小？

我正在试图find什么是Scripting.Dictionary的上限？ 有一个吗？ 它可以是元素数量或内存大小的限制。 我无法追踪任何信息。