Tag: vbscript

我怎样才能打开一个xls文件，保存它，然后在java中closures它？: 我怎样才能打开一个xls文件，保存它，然后在java中closures它？我目前有一个解决方法，我做的Java写一个vbs脚本，做同样的事情 Set excel = CreateObject("Excel.Application") excel.Workbooks.Open("path to xls file") excel.ActiveWorkbook.Save() excel.quit 然后Java通过将path传递给cmd来运行这个vbs脚本 Runtime rt = Runtime.getRuntime(); rt.exec("cscript " + decodedPath3 + filename + ".vbs"); 然后删除我创build的vbs 有没有一种方法可以在java中复制这些步骤？我已经做了很多关于POI的阅读，我不知道如何用java来完成这个简单的任务。注意 – VBS脚本实际上并没有使excel打开并显示快速的表单。我需要java来做同样的事情。为了回应有关http://jexcelapi.sourceforge.net/的意见，请问这个工作吗？ import java.io.File; import java.util.Date; import jxl.*; import jxl.write.*; Workbook workbook = Workbook.getWorkbook(new File("myfile.xls")); WritableWorkbook copy = Workbook.createWorkbook(new File("myfile.xls"), workbook);

将文本文件转换为带分隔符和文本格式的列vbscript的excel: 我想通过VBScript将.txt文件转换为Excel。我有一个angular色，我想分隔“|”。我还想在文本打开之前将列数据格式化为文本。这是我目前正在使用的减去列数据的格式作为文本。 Const xlDelimited = 1 Const xlOpenXMLWorkbook = 51 xl.Workbooks.OpenText "C:\project\project.txt", , , xlDelimited, , , , , , , True, "|" Set wb = xl.ActiveWorkbook wb.SaveAs "C:\project\project.xlsx", xlOpenXMLWorkbook, , , , False wb.Close xl.Quit 在打开文本文件之前，我需要格式化列数据的帮助。我不知道如何去做这件事。在打开文件后，我试图将文本格式设置为文本，导致从零开始的数字数据丢失。任何帮助将不胜感激。先谢谢你。

将.xls转换为.csv: 我需要将Excel电子表格转换为CSV文件。我想自主地做，而不是打开它，并保存为手动。正如我试图把这个到一个batch file，我也不想安装任何东西。我正在使用Excel 2007。我已经搜遍整个网站和其他人，但一直没有拿出一个完整的解决scheme。我发现这个vbs代码在另一个问题上，所以谢谢谁让我开始。 if WScript.Arguments.Count < 2 Then WScript.Echo "Please specify the source and the destination files. Usage: ExcelToCsv <xls/xlsx source file> <csv destination file>" Wscript.Quit End If csv_format = 6 Set objFSO = CreateObject("Scripting.FileSystemObject") src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0)) dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1)) Dim oExcel Set oExcel = CreateObject("Excel.Application") Dim oBook set […]

HTML + VBScript – 写入本地Excel模板: 在我的html文件中，我通过点击一个button来使用一些vba代码。我连接到Adodb来获取一些数据，这是正常工作。这些数据（存储在logging集中）应该使用excel模板保存在excel文件中。为此，我尝试打开一个本地模板： Workbook.Add Template:="MyPath" 我也尝试将这个文件保存到我的本地驱动器。 oExcel.ActiveWorkbook.SaveAs "MyPath" 这是没有工作:(任何想法？似乎无法从我的浏览器访问本地数据。

VBScript – 在Excel脚本中运行macros: 我已经search了这个社区和其他人，我仍然有困难得到这个工作。我想有一个VB脚本，当我执行它将打开一个Excel文档，运行脚本（macros），并closuresExcel。该macros不存在于我打开的文档中，这就是为什么我想在VB脚本中有macros 我试图修改这个，但没有运气。当我input我的macros代码到它失败。我明白，VBS和VBA是不同的，但我也不是很有经验。 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Open("C:\scripts\test.xls") Set xlmodule = objworkbook.VBProject.VBComponents.Add(1) strCode = _ "sub test()" & vbCr & _ " msgbox ""Inside the macro"" " & vbCr & _ "end sub" xlmodule.CodeModule.AddFromString strCode objWorkbook.SaveAs "c:\scripts\test.xls" objExcel.Quit 这是我想要合并到这个VB脚本的macros。 Sub Billing_Cleanup() Columns("A:A").Select Selection.Delete […]

“文件正在使用”消息停止运行Visual Basic Excel脚本的过夜: 所以我有一个VBScript，我通过我的任务调度程序运行。经过testing和日常运行，大约有50％的时间我在上class的时候看到这个错误：然后，如果我点击“通知”程序，然后完成执行。但是这并不能帮助我，因为它会使程序自动运行。我为什么只发生在50％的时间内的假设是，当我点击通知程序正确执行并closures所有内容时，那么当它运行的第二天不能正确closuresAPG.xlsx ，那么当它运行的第二天它会产生相同的错误信息。程序布局打开一个主excel表来运行VBA脚本打开文件列表1，1刷新实时数据连接，然后将excel表保存为name_POSReport.xlsx （即APG_POSReport.xlsx ） closures文件，并移动到下一个文件。我的想法是，即使我把报告保存为另一个文件，我是否还必须closures原始文件？事实并非如此，但也许是这样。所以我希望有一些澄清。 Visual Basic脚本： Dim xlApp Dim xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("\\fileserver\homeshares\asweet\My Documents\POS Reports\POS Live Reports\runReport.xlsm", 0, False) xlApp.Run "executeUpdate" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing VBA代码 Public wb As Workbook Sub executeUpdate() ' […]

使用Workbooks.Open文件具有“不可读内容”/ VBS时: 在VBS代码下面，将.xls转换为.csv。 Set oBook = oExcel.Workbooks.Open(sfile) oBook.SaveAs fulldest, 6 oBook.Close False 如果对大多数文件工作正常，但其中一个有通常的Excel found unreadable content in filename.xls'. do you want to recover the contents of this workbook ? If you trust the source of this workbook, click Yes. Excel found unreadable content in filename.xls'. do you want to recover the contents of this workbook ? If […]

从Microsoft Excel自动化Powerpoint数据: 我最近build立了一个PowerPoint仪表板，在一张幻灯片上显示文本框，表格和图表。所有这些数据经过人类解释器的一些分析后，build立在一个单独的Microsoft Excel文件中。我想在这里自动化的过程是将这些数据从Excel转换到Microsoft PowerPoint中，到目前为止，这些工作都是手动完成的，包括哪些格式必须对input的某些graphics和文本框进行重做。但是，布局通常是相同的。我期望从中得到回报是什么将这是最好的build议这样做？我在那里看到了一些VBScript模板，这可以将文本和表格数据直接一对一地映射到它们各自的文本框/单元格。我很好奇的获得反馈的方式是映射图表（和/或其相关数据），并将幻灯片格式化以符合我准备好的仪表板的约束和主题。我有广泛的面向对象的编程经验，但在Microsoft Office套件中没有太多的编程经验。非常感谢提示和build议，以及对我可能遇到的一些限制的build议。

将1个excel表分成多个excel表（每个1000条logging）: 我有一个超过60Klogging的Excel表。我想把这个Excel表分成多个表，每个表有1000个logging。有没有办法在VBScript或直接在Excel中实现？现在我有下面的代码，需要一个单元格的范围，另存为另一个文件。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Users\user\Desktop\User\users.xlsx") objWorkbook.Worksheets("users").Range("A1:A1000").Copy objWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial objWorkbook.Worksheets("Sheet1").Activate objWorkbook.SaveAs "C:\Users\user\Desktop\User\Sample57.xlsx", 51 在上面的代码中，我们可以进行修改，使其遍历所有行并自动完成整个Excel表单？

从许多子文件夹中复制所有（许多）excel工作簿中的数据，并将其复制到另一个excel工作簿中: 下面是循环遍历每个子文件夹中的所有Excel工作簿（通过子文件夹循环）和从每个Excel工作簿复制数据并附加到另一个Excel工作簿的代码。超越下面的代码我得到一个错误，因为“对象不支持这个属性或方法：'objsubfolder.files'”请帮助我这个。 'Sub RunCodeOnAllXLSFiles() Set objExcel = CreateObject("Excel.Application") strPath = "C:\Documents and Settings\SupriyaS\Desktop\su" pathName="xlsx" if strPath = "" then Wscript.quit if pathName = "" then Wscript.quit 'Creating an Excel Workbook in My Documents Set objWorkbook2= objExcel.Workbooks.Add() objExcel.Visible = True objExcel.DisplayAlerts = False Set objFso = CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder (strPath) Set objsubFolder = objfolder.subFolders […]